version 1.18, 2006/05/10 01:08:01
|
version 1.20, 2006/05/10 02:15:51
|
Line 255 sub make_new_child {
|
Line 255 sub make_new_child {
|
&status('Accepting connections'); |
&status('Accepting connections'); |
my $client = $server->accept() or last; |
my $client = $server->accept() or last; |
print $command "kill(all);reset();\n"; |
print $command "kill(all);reset();\n"; |
&getmaximaoutput($command); |
&getmaximaoutput($command); |
|
&sync($command); |
while (my $cmd=<$client>) { |
while (my $cmd=<$client>) { |
&status('Processing command'); |
&status('Processing command'); |
&sync($command); |
|
print $command &unescape($cmd); |
print $command &unescape($cmd); |
my $reply=&getmaximaoutput($command); |
my $reply=&getmaximaoutput($command); |
print $client &escape($reply)."\n"; |
print $client &escape($reply)."\n"; |
Line 267 sub make_new_child {
|
Line 267 sub make_new_child {
|
$client->close(); |
$client->close(); |
$command->hard_close(); |
$command->hard_close(); |
exit; |
exit; |
} |
} |
|
&sync($command); |
&status('Waiting for commands'); |
&status('Waiting for commands'); |
} |
} |
} |
} |