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

Diff for /loncom/loncron between versions 1.1 and 1.2

version 1.1, 1999/10/13 17:48:51 version 1.2, 1999/11/18 19:52:46
Line 7 Line 7
 # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,  # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
 # 7/1,7/2,7/9,7/10,7/12 Gerd Kortemeyer)  # 7/1,7/2,7/9,7/10,7/12 Gerd Kortemeyer)
 #  #
 # 7/14,7/15,7/19,7/21,7/22 Gerd Kortemeyer  # 7/14,7/15,7/19,7/21,7/22,11/18 Gerd Kortemeyer
   
 use IO::File;  use IO::File;
 use IO::Socket;  use IO::Socket;
Line 40  sub errout { Line 40  sub errout {
 ENDERROUT  ENDERROUT
 }  }
   
 # -------------------------------------------------------------- Permanent logs  
 sub logperm {  
     my $message=shift;  
     my $execdir=$perlvar{'lonDaemons'};  
     my $now=time;  
     my $local=localtime($now);  
     my $fh=Apache::File->new(">>$execdir/logs/lonnet.perm.log");  
     print $fh "$now:$message:$local\n";  
     return 1;  
 }  
   
 # ------------------------------------------------ Try to send delayed messages  
 sub senddelayed {  
     my $fh=shift;  
     my $dfname;  
     my $path="$perlvar{'lonSockDir'}/delayed";  
     print $fh "<h3>Attempting to send delayed messages</h3>";  
     while ($dfname=<$path/*>) {  
         my $wcmd;  
         {  
          my $dfh=IO::File->new($dfname);  
          $wcmd=<$dfh>;  
         }  
         my ($server,$cmd)=split(/:/,$wcmd);  
         chomp($cmd);  
         my $answer=reply($cmd,$server);  
         if ($answer ne 'con_lost') {  
     unlink("$dfname");  
             print $fh "Send $cmd to $server: $answer<br>\n";  
             &logperm("S:$server:$cmd");  
         } else {  
             print $fh "Failed to deliver $cmd to $server<br>\n";  
             $warnings++;  
         }          
     }  
 }  
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
   
Line 436  print $fh "</table>"; Line 399  print $fh "</table>";
   
 print $fh '<hr><a name="delayed"><h2>Delayed Messages</h2>';  print $fh '<hr><a name="delayed"><h2>Delayed Messages</h2>';
   
 &senddelayed($fh);  
   
 print $fh '<h3>Scanning Permanent Log</h3>';  print $fh '<h3>Scanning Permanent Log</h3>';
   
 $unsend=0;  $unsend=0;
Removed from v.1.1  
changed lines
  Added in v.1.2

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