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

Diff for /loncom/lonmaxima between versions 1.41 and 1.43

version 1.41, 2012/02/16 19:54:06 version 1.43, 2018/10/29 02:57:30
Line 156  my $wwwid=getpwnam('www'); Line 156  my $wwwid=getpwnam('www');
 if ($wwwid!=$<) {  if ($wwwid!=$<) {
     my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";      my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
     my $subj="LON: User ID mismatch";      my $subj="LON: User ID mismatch";
     system("echo 'User ID mismatch.  lonmaxima must be run as user www.' |\      system("echo 'User ID mismatch.  lonmaxima must be run as user www.' |".
  mailto $emailto -s '$subj' > /dev/null");             " mailto -s '$subj' $emailto > /dev/null");
     exit 1;      exit 1;
 }  }
     
Line 259  sub make_new_child { Line 259  sub make_new_child {
   
         &logthis('New process started');          &logthis('New process started');
   
         my $command=Expect->spawn('maxima');          my $command = new Expect();
           $command->log_stdout(0);
           #$command->log_file("$execdir/logs/lonmaxima.session.log");
           $command->spawn('maxima');
           &getmaximaoutput($command, 2); # wait for maxima to finish initialization
  # soft/hard_close can take awhile and we really   # soft/hard_close can take awhile and we really
         # don't care we just want it gone          # don't care we just want it gone
  $SIG{INT} = sub {   $SIG{INT} = sub {
Line 268  sub make_new_child { Line 272  sub make_new_child {
     exit;       exit; 
  };   };
   
  $command->log_stdout(0);  
  #$command->log_file("$execdir/logs/lonmaxima.session.log");  
   
         for (my $i=0; $i < $MAX_CLIENTS_PER_CHILD; $i++) {          for (my $i=0; $i < $MAX_CLIENTS_PER_CHILD; $i++) {
             &status('Accepting connections');              &status('Accepting connections');
Removed from v.1.41  
changed lines
  Added in v.1.43

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