[BACK]Return to lonmaxima CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/lonmaxima between versions 1.9 and 1.11

version 1.9, 2006/03/04 06:51:02 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();
Line 248  close(PIDSAVE); Line 249  close(PIDSAVE);
 &status('Starting');  &status('Starting');
             
   
   # Install signal handlers.
   $SIG{CHLD} = \&REAPER;
   $SIG{INT}  = $SIG{TERM} = \&HUNTSMAN;
    
 # Fork off our children.  # Fork off our children.
 for (1 .. $PREFORK) {  for (1 .. $PREFORK) {
     &make_new_child($server);      &make_new_child($server);
 }  }
     
 # Install signal handlers.  
 $SIG{CHLD} = \&REAPER;  
 $SIG{INT}  = $SIG{TERM} = \&HUNTSMAN;  
    
 # And maintain the population.  # And maintain the population.
 while (1) {  while (1) {
     &status('Parent process, sleeping');      &status('Parent process, sleeping');
Removed from v.1.9  
changed lines
  Added in v.1.11

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>