--- loncom/loncnew 2018/09/02 15:57:16 1.100.10.1 +++ loncom/loncnew 2018/01/16 18:13:29 1.103 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # lonc maintains the connections to remote computers # -# $Id: loncnew,v 1.100.10.1 2018/09/02 15:57:16 raeburn Exp $ +# $Id: loncnew,v 1.103 2018/01/16 18:13:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2142,6 +2142,7 @@ sub UpdateKids { # (lost unless they are critical). &KillThemAll(); + LondConnection->ResetReadConfig(); } @@ -2157,6 +2158,7 @@ the config file. sub Restart { &KillThemAll; # First kill all the children. + LondConnection->ResetReadConfig(); Log("CRITICAL", "Restarting"); my $execdir = $perlvar{'lonDaemons'}; unlink("$execdir/logs/lonc.pid"); @@ -2233,8 +2235,8 @@ sub Terminate { } sub my_hostname { - use Sys::Hostname::FQDN(); - my $name = Sys::Hostname::FQDN::fqdn(); + use Net::Domain(); + my $name = &Net::Domain::hostfqdn(); &Debug(9,"Name is $name"); return $name; }