version 1.7, 2006/03/04 02:33:54
|
version 1.8, 2006/03/04 06:44:11
|
Line 52 my $pidfile; #
|
Line 52 my $pidfile; #
|
my $port; # path to UNIX socket file |
my $port; # path to UNIX socket file |
my %perlvar; # configuration file info |
my %perlvar; # configuration file info |
my $lastlog; # last string that was logged |
my $lastlog; # last string that was logged |
my $maximapid; # PID of maxima process |
|
my $selector; # open3's selector |
|
use vars qw($PREFORK $MAX_CLIENTS_PER_CHILD %children $children $status |
use vars qw($PREFORK $MAX_CLIENTS_PER_CHILD %children $children $status |
$pidfile $port %perlvar $lastlog $maximapid $selector); |
$pidfile $port %perlvar $lastlog); |
|
|
sub maximareply { |
sub maximareply { |
my ($cmd) = @_; |
my ($cmd) = @_; |
Line 66 sub maximareply {
|
Line 64 sub maximareply {
|
unless ($cmd=~/\;\n$/) { $cmd.=";\n"; } |
unless ($cmd=~/\;\n$/) { $cmd.=";\n"; } |
|
|
my ($cmd_in, $cmd_out, $cmd_err); |
my ($cmd_in, $cmd_out, $cmd_err); |
$maximapid = open3($cmd_in, $cmd_out, $cmd_err, 'maxima'); |
my $maximapid = open3($cmd_in, $cmd_out, $cmd_err, 'maxima'); |
$children{$maximapid} = 1; |
$children{$maximapid} = 1; |
|
|
print $cmd_in $cmd; |
print $cmd_in $cmd; |
Line 78 sub maximareply {
|
Line 76 sub maximareply {
|
alarm(5); |
alarm(5); |
no strict 'refs'; |
no strict 'refs'; |
|
|
$selector = IO::Select->new(); |
my $selector = IO::Select->new(); |
|
|
$selector->add($cmd_err, $cmd_out); |
$selector->add($cmd_err, $cmd_out); |
|
|