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

Diff for /loncom/lond between versions 1.57 and 1.58

version 1.57, 2001/11/26 20:31:01 version 1.58, 2001/11/26 20:59:01
Line 175  sub logthis { Line 175  sub logthis {
     my $fh=IO::File->new(">>$execdir/logs/lond.log");      my $fh=IO::File->new(">>$execdir/logs/lond.log");
     my $now=time;      my $now=time;
     my $local=localtime($now);      my $local=localtime($now);
       $lastlog=$local.': '.$message;
     print $fh "$local ($$): $message\n";      print $fh "$local ($$): $message\n";
 }  }
   
Line 466  sub make_new_child { Line 467  sub make_new_child {
       &reconlonc("$perlvar{'lonSockDir'}/$hostid{$clientip}");        &reconlonc("$perlvar{'lonSockDir'}/$hostid{$clientip}");
               &logthis(                &logthis(
        "<font color=green>Established connection: $hostid{$clientip}</font>");         "<font color=green>Established connection: $hostid{$clientip}</font>");
               &status('Listening to '.$hostid{$clientip});                &status('Will listen to '.$hostid{$clientip});
 # ------------------------------------------------------------ Process requests  # ------------------------------------------------------------ Process requests
               while (my $userinput=<$client>) {                while (my $userinput=<$client>) {
                 chomp($userinput);                  chomp($userinput);
Line 1299  sub make_new_child { Line 1300  sub make_new_child {
                        # unknown command                         # unknown command
                        print $client "unknown_cmd\n";                         print $client "unknown_cmd\n";
                    }                     }
 # ------------------------------------------------------ client unknown, refuse  # -------------------------------------------------------------------- complete
                      &status('Listening to '.$hostid{$clientip});
        }         }
   # ------------------------------------------------------ client unknown, refuse
             } else {              } else {
         print $client "refused\n";          print $client "refused\n";
                 &logthis("<font color=blue>WARNING: "                  &logthis("<font color=blue>WARNING: "
Removed from v.1.57  
changed lines
  Added in v.1.58

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