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

Diff for /loncom/Attic/lonc between versions 1.3 and 1.4

version 1.3, 1999/11/18 19:52:46 version 1.4, 1999/12/22 17:18:04
Line 11 Line 11
 # USR1 tries to open connections again  # USR1 tries to open connections again
   
 # 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,  # 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,
 # 10/8,10/9,10/15,11/18 Gerd Kortemeyer   # 10/8,10/9,10/15,11/18,12/22 Gerd Kortemeyer 
 # based on nonforker from Perl Cookbook  # based on nonforker from Perl Cookbook
 # - server who multiplexes without forking  # - server who multiplexes without forking
   
Line 31  open (CONFIG,"/etc/httpd/conf/access.con Line 31  open (CONFIG,"/etc/httpd/conf/access.con
 while ($configline=<CONFIG>) {  while ($configline=<CONFIG>) {
     if ($configline =~ /PerlSetVar/) {      if ($configline =~ /PerlSetVar/) {
  my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);   my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
           chomp($varvalue);
         $perlvar{$varname}=$varvalue;          $perlvar{$varname}=$varvalue;
     }      }
 }  }
Line 255  if ($cipher=new IDEA $cipherkey) { Line 256  if ($cipher=new IDEA $cipherkey) {
   
 # ----------------------------------------- We're online, send delayed messages  # ----------------------------------------- We're online, send delayed messages
   
       my @allbuffered;
     my $path="$perlvar{'lonSockDir'}/delayed";      my $path="$perlvar{'lonSockDir'}/delayed";
       opendir(DIRHANDLE,$path);
       @allbuffered=grep /\.$conserver$/, readdir DIRHANDLE;
       closedir(DIRHANDLE);
     my $dfname;      my $dfname;
     while ($dfname=<$path/*.$conserver>) {      map {
           $dfname="$path/$_";
           &logthis($dfname);
         my $wcmd;          my $wcmd;
         {          {
          my $dfh=IO::File->new($dfname);           my $dfh=IO::File->new($dfname);
          $wcmd=<$dfh>;           $cmd=<$dfh>;
         }          }
         my ($server,$cmd)=split(/:/,$wcmd);  
         chomp($cmd);          chomp($cmd);
         my $bcmd=$cmd;          my $bcmd=$cmd;
         if ($cmd =~ /^encrypt\:/) {          if ($cmd =~ /^encrypt\:/) {
Line 285  if ($cipher=new IDEA $cipherkey) { Line 291  if ($cipher=new IDEA $cipherkey) {
  chomp($answer);   chomp($answer);
         if ($answer ne '') {          if ($answer ne '') {
     unlink("$dfname");      unlink("$dfname");
             &logthis("Delayed $cmd to $conserver ($server): >$answer<");              &logthis("Delayed $cmd to $conserver: >$answer<");
             &logperm("S:$conserver:$bcmd");              &logperm("S:$conserver:$bcmd");
         }                  }        
     }      } @allbuffered;
   
 # ------------------------------------------------------- Listen to UNIX socket  # ------------------------------------------------------- Listen to UNIX socket
 unless (  unless (
Removed from v.1.3  
changed lines
  Added in v.1.4

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