&esv'register_serv(SERVER, 2345); # make a server socket on port 7999
&esv'run_serv(); # dispatching (never returns)
sub serv_body { # Users must supply this routine.
# $_[0] : request data sent from a client
# $_[1] : socket name corresponding to the current client
print "client sock name=" . $_[1] . "\n";
if ($_[0] eq "who") {
$reply = `who`;
} elsif ($_[0] eq "ps") {
$reply = `ps`;
} elsif ($_[0] eq "kill") {
&cleanup_serv();
} else {
$reply = "who : who is on this host\\n"
. "ps : show process\\n"
. "kill : kill server\\n"
. "help : show this message\\n";
}
return $reply; # This value is sent back to the current client
}
