--- loncom/Attic/lonc	1999/10/13 17:48:51	1.1
+++ loncom/Attic/lonc	1999/10/26 20:24:47	1.2
@@ -10,7 +10,8 @@
 # HUP restarts
 # USR1 tries to open connections again
 
-# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,10/8,10/9 Gerd Kortemeyer 
+# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,
+# 10/8,10/9,10/15 Gerd Kortemeyer 
 # based on nonforker from Perl Cookbook
 # - server who multiplexes without forking
 
@@ -214,10 +215,12 @@ unless (
        exit; 
      };
 # --------------------------------------- Send a ping to make other end do USR1
-print $remotesock "ping\n";
+print $remotesock "init\n";
+$answer=<$remotesock>;
+print $remotesock "$answer";
 $answer=<$remotesock>;
 chomp($answer);
-&logthis("Ping reply for $conserver: >$answer<");
+&logthis("Init reply for $conserver: >$answer<");
 sleep 5;
 print $remotesock "pong\n";
 $answer=<$remotesock>;