loncom/lonmaxima - diff

Return to lonmaxima CVS log

Up to [LON-CAPA] / loncom

version 1.10, 2006/03/04 06:56:10	version 1.11, 2006/03/04 15:47:26
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
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);	$pidfile $port %perlvar $lastlog $maximapid);

sub maximareply {	sub maximareply {
my ($cmd) = @_;	my ($cmd) = @_;
Line 64 sub maximareply {	Line 65 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);
my $maximapid = open3($cmd_in, $cmd_out, $cmd_err, 'maxima');	$maximapid = open3($cmd_in, $cmd_out, $cmd_err, 'maxima');
$children{$maximapid} = 1;	$children{$maximapid} = 1;

print $cmd_in $cmd;	print $cmd_in $cmd;
Line 72 sub maximareply {	Line 73 sub maximareply {

&status("Command sent");	&status("Command sent");

$SIG{ALRM} = sub { kill 9 => $maximapid; };	$SIG{ALRM} = sub { kill(9 => $maximapid); };
alarm(5);	alarm(5);

my $selector = IO::Select->new();	my $selector = IO::Select->new();