[LON-CAPA-cvs] cvs: modules /gerd/maxima lonmaxima

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 03 Mar 2006 23:47:57 -0000


albertel		Fri Mar  3 18:47:57 2006 EDT

  Modified files:              
    /modules/gerd/maxima	lonmaxima 
  Log:
  - some more style
  
  
Index: modules/gerd/maxima/lonmaxima
diff -u modules/gerd/maxima/lonmaxima:1.5 modules/gerd/maxima/lonmaxima:1.6
--- modules/gerd/maxima/lonmaxima:1.5	Fri Mar  3 18:41:38 2006
+++ modules/gerd/maxima/lonmaxima	Fri Mar  3 18:47:55 2006
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # Connect to MAXIMA CAS
 #
-# $Id: lonmaxima,v 1.5 2006/03/03 23:41:38 albertel Exp $
+# $Id: lonmaxima,v 1.6 2006/03/03 23:47:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -76,12 +76,12 @@
     my $selector = IO::Select->new();
     $selector->add($cmd_err, $cmd_out);
     
-    while (my @ready = $selector->can_read) {
+    while (my @ready = $selector->can_read()) {
 	foreach my $fh (@ready) {
 	    if (fileno($fh) == fileno($cmd_err)) {
 		$error.=<$cmd_err>;
 	    } else {
-		my $line = scalar <$cmd_out>;
+		my $line = scalar(<$cmd_out>);
                 if ($line=~/^(\(\%o|\s)/) {
 		    $line=~s/^\(.*\)/     /; 
 		    $reply.=$line; 
@@ -101,13 +101,13 @@
                                     # and MAXIMA processes
     $SIG{CHLD} = \&REAPER;
     my $pid = wait;
-    $children --;
-    delete $children{$pid};
+    $children--;
+    delete($children{$pid});
 }
  
 sub HUNTSMAN {                      # signal handler for SIGINT
     local($SIG{CHLD}) = 'IGNORE';   # we're going to kill our children
-    kill 'INT' => keys %children;
+    kill('INT' => keys(%children));
     unlink($pidfile);
     unlink($port);
     &logthis('---- Shutdown ----');
@@ -197,7 +197,7 @@
     my $lfh=IO::File->new("$pidfile");
     my $pide=<$lfh>;
     chomp($pide);
-    if (kill 0 => $pide) { die "already running"; }
+    if (kill(0 => $pide)) { die "already running"; }
 }
 
 # ------------------------------------------------------- Listen to UNIX socket
@@ -208,26 +208,25 @@
 unlink($port);
  
 
-my $server;
-unless (
-  $server = IO::Socket::UNIX->new(Local  => $port,
-                                  Type   => SOCK_STREAM,
-                                  Listen => 10 )
-   ) {
-       my $st=120+int(rand(240));
-       &logthis(
-         "<font color=blue>WARNING: ".
-         "Can't make server socket ($st secs):  .. exiting</font>");
-       sleep($st);
-       exit;
-     };
+my $server = IO::Socket::UNIX->new(Local  => $port,
+				   Type   => SOCK_STREAM,
+				   Listen => 10 );
+if (!$server) {
+    my $st=120+int(rand(240));
+
+    &logthis("<font color=blue>WARNING: ".
+	     "Can't make server socket ($st secs):  .. exiting</font>");
+
+    sleep($st);
+    exit;
+}
     
  
 # ---------------------------------------------------- Fork once and dissociate
  
 my $fpid=fork;
 exit if $fpid;
-die "Couldn't fork: $!" unless defined ($fpid);
+die("Couldn't fork: $!") unless defined($fpid);
  
 POSIX::setsid() or die "Can't start new session: $!";
  
@@ -239,11 +238,9 @@
 close(PIDSAVE);
 &logthis("<font color='red'>CRITICAL: ---------- Starting ----------</font>");
 &status('Starting');
- 
- 
+     
 
 
-     
 # Fork off our children.
 for (1 .. $PREFORK) {
     &make_new_child($server);
@@ -269,14 +266,14 @@
     # block signal for fork
     my $sigset = POSIX::SigSet->new(SIGINT);
     sigprocmask(SIG_BLOCK, $sigset)
-        or die "Can't block SIGINT for fork: $!\n";
+        or die("Can't block SIGINT for fork: $!\n");
      
-    die "fork: $!" unless defined (my $pid = fork);
+    die("fork: $!") unless defined(my $pid = fork);
      
     if ($pid) {
         # Parent records the child's birth and returns.
         sigprocmask(SIG_UNBLOCK, $sigset)
-            or die "Can't unblock SIGINT for fork: $!\n";
+            or die("Can't unblock SIGINT for fork: $!\n");
         $children{$pid} = 1;
         $children++;
         return;
@@ -286,7 +283,7 @@
      
         # unblock signals
         sigprocmask(SIG_UNBLOCK, $sigset)
-            or die "Can't unblock SIGINT for fork: $!\n";
+            or die("Can't unblock SIGINT for fork: $!\n");
 
 	&process_requests($server);