version 1.19, 2006/05/10 02:12:17
|
version 1.21, 2006/05/10 02:21:19
|
Line 31
|
Line 31
|
# |
# |
|
|
use Expect; |
use Expect; |
use IPC::Open3; |
|
use IO::Select; |
use IO::Select; |
use IO::Socket; |
use IO::Socket; |
use IO::File; |
use IO::File; |
Line 255 sub make_new_child {
|
Line 254 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'); |