--- loncom/lond	2001/11/26 20:31:01	1.57
+++ loncom/lond	2001/11/26 20:59:01	1.58
@@ -19,7 +19,7 @@
 # 9/30,10/22,11/13,11/15,11/16 Scott Harrison
 # 11/26 Gerd Kortemeyer
 #
-# $Id: lond,v 1.57 2001/11/26 20:31:01 www Exp $
+# $Id: lond,v 1.58 2001/11/26 20:59:01 www Exp $
 ###
 
 # based on "Perl Cookbook" ISBN 1-56592-243-3
@@ -175,6 +175,7 @@ sub logthis {
     my $fh=IO::File->new(">>$execdir/logs/lond.log");
     my $now=time;
     my $local=localtime($now);
+    $lastlog=$local.': '.$message;
     print $fh "$local ($$): $message\n";
 }
 
@@ -466,7 +467,7 @@ sub make_new_child {
 	      &reconlonc("$perlvar{'lonSockDir'}/$hostid{$clientip}");
               &logthis(
        "<font color=green>Established connection: $hostid{$clientip}</font>");
-              &status('Listening to '.$hostid{$clientip});
+              &status('Will listen to '.$hostid{$clientip});
 # ------------------------------------------------------------ Process requests
               while (my $userinput=<$client>) {
                 chomp($userinput);
@@ -1299,8 +1300,10 @@ sub make_new_child {
                        # unknown command
                        print $client "unknown_cmd\n";
                    }
-# ------------------------------------------------------ client unknown, refuse
+# -------------------------------------------------------------------- complete
+                   &status('Listening to '.$hostid{$clientip});
 	       }
+# ------------------------------------------------------ client unknown, refuse
             } else {
 	        print $client "refused\n";
                 &logthis("<font color=blue>WARNING: "