1*b8851fccSafresh1#!perl
2*b8851fccSafresh1
3*b8851fccSafresh1# Simple ARExx Host
4*b8851fccSafresh1
5*b8851fccSafresh1use strict;
6*b8851fccSafresh1use Amiga::ARexx;
7*b8851fccSafresh1use feature "switch";
8*b8851fccSafresh1
9*b8851fccSafresh1my $host = Amiga::ARexx->new('HostName' => "TESTSCRIPT");
10*b8851fccSafresh1
11*b8851fccSafresh1my $alive = 1;
12*b8851fccSafresh1
13*b8851fccSafresh1while ($alive)
14*b8851fccSafresh1{
15*b8851fccSafresh1	$host->wait();
16*b8851fccSafresh1    my $msg = $host->getmsg();
17*b8851fccSafresh1	while($msg)
18*b8851fccSafresh1	{
19*b8851fccSafresh1		my $rc = 0;
20*b8851fccSafresh1		my $rc2 = 0;
21*b8851fccSafresh1		my $result = "";
22*b8851fccSafresh1
23*b8851fccSafresh1		print $msg->message . "\n";
24*b8851fccSafresh1		given($msg->message)
25*b8851fccSafresh1		{
26*b8851fccSafresh1			when ("QUIT")
27*b8851fccSafresh1			{
28*b8851fccSafresh1				$alive = 0;
29*b8851fccSafresh1				$result = "quitting!";
30*b8851fccSafresh1			}
31*b8851fccSafresh1			when ("SHOUT")
32*b8851fccSafresh1			{
33*b8851fccSafresh1				$result = "HEEELLLLOOOO!";
34*b8851fccSafresh1			}
35*b8851fccSafresh1			default {
36*b8851fccSafresh1				$rc = 10;
37*b8851fccSafresh1				$rc2 = 22;
38*b8851fccSafresh1			}
39*b8851fccSafresh1		}
40*b8851fccSafresh1		$msg->reply($rc,$rc2,$result);
41*b8851fccSafresh1
42*b8851fccSafresh1		$msg = $host->getmsg();
43*b8851fccSafresh1	}
44*b8851fccSafresh1
45*b8851fccSafresh1}
46*b8851fccSafresh1
47