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

Diff for /loncom/lonmaxima between versions 1.8 and 1.10

version 1.8, 2006/03/04 06:44:11 version 1.10, 2006/03/04 06:56:10
Line 74  sub maximareply { Line 74  sub maximareply {
   
     $SIG{ALRM} = sub { kill 9 => $maximapid; };       $SIG{ALRM} = sub { kill 9 => $maximapid; }; 
     alarm(5);      alarm(5);
     no strict 'refs';  
   
     my $selector = IO::Select->new();      my $selector = IO::Select->new();
   
Line 82  sub maximareply { Line 81  sub maximareply {
           
     while (my @ready = $selector->can_read()) {      while (my @ready = $selector->can_read()) {
  foreach my $fh (@ready) {   foreach my $fh (@ready) {
     if (fileno($fh) == fileno($cmd_err)) {      if (ref($fh) 
    && ref($cmd_err)
    && fileno($fh) == fileno($cmd_err)) {
  $error.=<$cmd_err>;   $error.=<$cmd_err>;
     } else {      } else {
  my $line = scalar(<$cmd_out>);   my $line = scalar(<$cmd_out>);
Line 96  sub maximareply { Line 97  sub maximareply {
     }      }
     alarm(0);      alarm(0);
     $SIG{ALRM} = 'DEFAULT';      $SIG{ALRM} = 'DEFAULT';
     close($cmd_out);      if (ref($cmd_out)) { close($cmd_out); }
     close($cmd_err);      if (ref($cmd_err)) { close($cmd_err); }
     use strict 'refs';  
     &status("Command processed");      &status("Command processed");
     return ($reply,$error,$exitstatus);      return ($reply,$error,$exitstatus);
 }  }
Line 247  close(PIDSAVE); Line 248  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.8  
changed lines
  Added in v.1.10

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