version 1.19, 2006/05/10 02:12:17
|
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); |
&sync($command); |
&sync($command); |
while (my $cmd=<$client>) { |
while (my $cmd=<$client>) { |
&status('Processing command'); |
&status('Processing command'); |