--- loncom/lond	2000/01/14 14:46:57	1.8
+++ loncom/lond	2000/02/08 17:34:24	1.9
@@ -4,7 +4,7 @@
 # 5/26/99,6/4,6/10,6/11,6/14,6/15,6/26,6/28,6/30,
 # 7/8,7/9,7/10,7/12,7/17,7/19,9/21,
 # 10/7,10/8,10/9,10/11,10/13,10/15,11/4,11/16,
-# 12/7,12/15,01/06,01/11,01/12,01/14 Gerd Kortemeyer
+# 12/7,12/15,01/06,01/11,01/12,01/14,2/8 Gerd Kortemeyer
 # based on "Perl Cookbook" ISBN 1-56592-243-3
 # preforker - server who forks first
 # runs as a daemon
@@ -79,7 +79,7 @@ sub HUNTSMAN {                      # si
     kill 'INT' => keys %children;
     my $execdir=$perlvar{'lonDaemons'};
     unlink("$execdir/logs/lond.pid");
-    &logthis("Shutting down");
+    &logthis("<font color=red>CRITICAL: Shutting down</font>");
     exit;                           # clean up with dignity
 }
 
@@ -87,7 +87,7 @@ sub HUPSMAN {                      # sig
     local($SIG{CHLD}) = 'IGNORE';  # we're going to kill our children
     kill 'INT' => keys %children;
     close($server);                # free up socket
-    &logthis("Restarting");
+    &logthis("<font color=red>CRITICAL: Restarting</font>");
     my $execdir=$perlvar{'lonDaemons'};
     exec("$execdir/lond");         # here we go again
 }
@@ -120,12 +120,15 @@ sub reconlonc {
             &logthis("$peerfile still not there, give it another try");
             sleep 5;
             if (-e "$peerfile") { return; }
-            &logthis("$peerfile still not there, giving up");
+            &logthis(
+ "<font color=blue>WARNING: $peerfile still not there, giving up</font>");
         } else {
-	    &logthis("lonc at pid $loncpid not responding, giving up");
+	    &logthis(
+              "<font color=red>CRITICAL: "
+             ."lonc at pid $loncpid not responding, giving up</font>");
         }
     } else {
-        &logthis('lonc not running, giving up');
+      &logthis('<font color=red>CRITICAL: lonc not running, giving up</font>');
     }
 }
 
@@ -201,7 +204,7 @@ $execdir=$perlvar{'lonDaemons'};
 open (PIDSAVE,">$execdir/logs/lond.pid");
 print PIDSAVE "$$\n";
 close(PIDSAVE);
-&logthis("Starting");
+&logthis("<font color=red>CRITICAL: ---------- Starting ----------</font>");
 
 # ------------------------------------------------------- Now we are on our own
     
@@ -263,7 +266,8 @@ sub make_new_child {
             my ($port,$iaddr)=unpack_sockaddr_in($caller);
             my $clientip=inet_ntoa($iaddr);
             my $clientrec=($hostid{$clientip} ne undef);
-            &logthis("Connect from $clientip ($hostid{$clientip})");
+            &logthis(
+"<font color=yellow>INFO: Connect from $clientip ($hostid{$clientip})</font>");
             my $clientok;
             if ($clientrec) {
 	      my $remotereq=<$client>;
@@ -277,17 +281,23 @@ sub make_new_child {
 		      $clientok=1;
                       print $client "ok\n";
                   } else {
-		      &logthis("$clientip did not reply challenge");
+		      &logthis(
+ "<font color=blue>WARNING: $clientip did not reply challenge</font>");
                   }
               } else {
-		  &logthis("$clientip failed to initialize: >$remotereq<");
+		  &logthis(
+                    "<font color=blue>WARNING: "
+                   ."$clientip failed to initialize: >$remotereq< </font>");
               }
 	    } else {
-              &logthis("Unknown client $clientip");
+              &logthis(
+ "<font color=blue>WARNING: Unknown client $clientip</font>");
             }
             if ($clientok) {
 # ---------------- New known client connecting, could mean machine online again
 	      &reconlonc("$perlvar{'lonSockDir'}/$hostid{$clientip}");
+              &logthis(
+       "<font color=green>Established connection: $hostid{$clientip}</font>");
 # ------------------------------------------------------------ Process requests
               while (my $userinput=<$client>) {
                 chomp($userinput);
@@ -834,9 +844,11 @@ sub make_new_child {
 	       }
             } else {
 	        print $client "refused\n";
-                &logthis("Rejected client $clientip, closing connection");
+                &logthis("<font color=blue>WARNING: "
+                ."Rejected client $clientip, closing connection</font>");
             }              
-            &logthis("Disconnect from $clientip ($hostid{$clientip})");
+            &logthis("<font color=red>CRITICAL: "
+                    ."Disconnect from $clientip ($hostid{$clientip})");
 # =============================================================================
         }