--- loncom/loncnew	2004/09/21 10:54:43	1.56
+++ loncom/loncnew	2004/09/22 10:22:50	1.57
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.56 2004/09/21 10:54:43 foxr Exp $
+# $Id: loncnew,v 1.57 2004/09/22 10:22:50 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -106,6 +106,8 @@ my $LondVersion     = "unknown"; # Versi
 my $KeyMode         = "";       # e.g. ssl, local, insecure from last connect.
 my $LondConnecting  = 0;       # True when a connection is being built.
 
+my $DieWhenIdle     = 0;	# When true children die when trimmed -> 0.
+
 #
 #   The hash below gives the HTML format for log messages
 #   given a severity.
@@ -119,6 +121,20 @@ $LogFormats{"WARNING"}  = "<font color='
 $LogFormats{"DEFAULT"}  = " %s ";
 
 
+#  UpdateStatus;
+#    Update the idle status display to show how many connections
+#    are left, retries and other stuff.
+#
+sub UpdateStatus {
+    if ($ConnectionRetriesLeft > 0) {
+	ShowStatus(GetServerHost()." Connection count: ".$ConnectionCount
+		   ." Retries remaining: ".$ConnectionRetriesLeft
+		   ." ($KeyMode)");
+    } else {
+	ShowStatus(GetServerHost()." >> DEAD <<");
+    }
+}
+
 
 =pod
 
@@ -296,13 +312,8 @@ sub Tick {
     my $clock_watcher = $Event->w;
 
     my $client;
-    if($ConnectionRetriesLeft > 0) {
-	ShowStatus(GetServerHost()." Connection count: ".$ConnectionCount
-		   ." Retries remaining: ".$ConnectionRetriesLeft
-		   ." ($KeyMode)");
-    } else {
-	ShowStatus(GetServerHost()." >> DEAD <<");
-    }
+    UpdateStatus();
+
     # Is it time to prune connection count:
 
 
@@ -313,6 +324,21 @@ sub Tick {
 	    my $Socket = $IdleConnections->pop();
 	    KillSocket($Socket);
 	    $IdleSeconds = 0;	# Otherwise all connections get trimmed to fast.
+	    UpdateStatus();
+	    if(($ConnectionCount == 0) && $DieWhenIdle) {
+		#
+		#  Create a lock file since there will be a time window
+		#  between our exit and the parent's picking up the listen
+		#  during which no listens will be done on the
+		#  lonnet client socket.
+		#
+		my $lock_file = GetLoncSocketPath().".lock";
+		open(LOCK,">$lock_file");
+		print LOCK "Contents not important";
+		close(LOCK);
+		
+		exit(0);
+	    }
 	}
     } else {
 	$IdleSeconds = 0;	# Reset idle count if not idle.
@@ -331,7 +357,8 @@ sub Tick {
     # Do we have work in the queue, but no connections to service them?
     # If so, try to make some new connections to get things going again.
     #
-    
+    #   Note this code is dead now...
+    #
     my $Requests = $WorkQueue->Count();
     if (($ConnectionCount == 0)  && ($Requests > 0) && (!$LondConnecting)) { 
 	if ($ConnectionRetriesLeft > 0) {