loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.162, 2003/11/12 20:47:04
+version 1.164, 2003/12/02 10:37:59
  Line 205  sub ReadManagerTable {
  sub ValidManager {
      my $certificate = shift;
-     ReadManagerTable;
+     return isManager;
-     my $hostname   = $hostid{$certificate};
-     if ($hostname ne undef) {
- 	if($managers{$hostname} ne undef) {
- 	    &logthis('<font color="yellow">Authenticating manager'.
- 		     " $hostname</font>");
- 	    return 1;
- 	} else {
- 	    &logthis('<font color="red" failed manager authentication '.
- 		     $hostname." is not a valid manager host</font>");
- 	    return 0;
- 	}
-     } else {
- 	&logthis('<font color="red"> Failed manager authentication '.
- 		 "$certificate </font>");
- 	return 0;
-     }
  }
  #
  #  CopyFile:  Called as part of the process of installing a
- Line 2519  sub make_new_child {
+ Line 2500  sub make_new_child {
  		    &logthis(
  			     "Client $clientip ($clientname) hanging up: $userinput");
  		    print $client "bye\n";
+ 		    $client->shutdown(2);        # shutdown the socket forcibly.
  		    $client->close();
  		    last;