loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.179, 2004/02/24 16:53:16
+version 1.180, 2004/03/08 20:59:41
  Line 1258  sub make_new_child {
      #  the pid hash.
      #
      my $caller = getpeername($client);
-     my ($port,$iaddr)=unpack_sockaddr_in($caller);
+     my ($port,$iaddr);
-     $clientip=inet_ntoa($iaddr);
+     if (defined($caller) && length($caller) > 0) {
+ 	($port,$iaddr)=unpack_sockaddr_in($caller);
+     } else {
+ 	&logthis("Unable to determine who caller was, getpeername returned nothing");
+     }
+     if (defined($iaddr)) {
+ 	$clientip=inet_ntoa($iaddr);
+     } else {
+ 	&logthis("Unable to determine clinetip");
+ 	$clientip='Unavailable';
+     }
      if ($pid) {
          # Parent records the child's birth and returns.