--- loncom/lond	2003/09/16 10:13:20	1.145
+++ loncom/lond	2003/09/23 11:23:31	1.147
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.145 2003/09/16 10:13:20 foxr Exp $
+# $Id: lond,v 1.147 2003/09/23 11:23:31 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,6 +60,18 @@
 # 09/08/2003 Ron Fox:  Told lond to take care of change logging so we
 #      don't have to remember it:
 # $Log: lond,v $
+# Revision 1.147  2003/09/23 11:23:31  foxr
+# Comlplete implementation of reinit functionality.  Must still implement
+# the actual initialization functionality, but the process can now
+# receive the request and either invoke the appropriate internal function or
+# signal the correct lonc.
+#
+# Revision 1.146  2003/09/16 10:28:14  foxr
+# ReinitProcess - decode the process selector and produce the associated pid
+# filename.  Note: While it is possible to test that valid process selectors are
+# handled properly I am not able to test that invalid process selectors produce
+# the appropriate error as lonManage also blocks the use of invalid process selectors.
+#
 # Revision 1.145  2003/09/16 10:13:20  foxr
 # Added ReinitProcess function to oversee the parsing and processing of the
 # reinit:<process> client request.
@@ -104,7 +116,7 @@ my $DEBUG = 0;		       # Non zero to ena
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.145 $'; #' stupid emacs
+my $VERSION='$Revision: 1.147 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -376,6 +388,31 @@ sub PushFile {
 sub ReinitProcess {
     my $request = shift;
 
+
+    # separate the request (reinit) from the process identifier and
+    # validate it producing the name of the .pid file for the process.
+    #
+    #
+    my ($junk, $process) = split(":", $request);
+    my $processpidfile = $perlvar{'lonDaemons'}.'/logs/';
+    if($process eq 'lonc') {
+	$processpidfile = $processpidfile."lonc.pid";
+	if (!open(PIDFILE, "< $processpidfile")) {
+	    return "error:Open failed for $processpidfile";
+	}
+	my $loncpid = <PIDFILE>;
+	close(PIDFILE);
+	logthis('<font color="red"> Reinitializing lonc pid='.$loncpid
+		."</font>");
+	kill("USR2", $loncpid);
+    } elsif ($process eq 'lond') {
+	logthis('<font color="red"> Reinitializing self (lond) </font>');
+	&UpdateHosts;			# Lond is us!!
+    } else {
+	&logthis('<font color="yellow" Invalid reinit request for '.$process
+		 ."</font>");
+	return "error:Invalid process identifier $process";
+    }
     return 'ok';
 }
 
@@ -525,6 +562,7 @@ sub HUPSMAN {                      # sig
 #     now be honored.
 #
 sub UpdateHosts {
+    logthis('<font color="blue"> Updating connections </font>');
 }
 
 sub checkchildren {
@@ -978,6 +1016,7 @@ sub make_new_child {
 		       if ($wasenc == 1) {
 			   my $cert = GetCertificate($userinput);
 			   if(ValidManager($cert)) {
+			       chomp($userinput);
 			       my $reply = ReinitProcess($userinput);
 			       print $client  "$reply\n";
 			   } else {