loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.11, 2000/12/06 18:05:51	version 1.12, 2000/12/06 20:38:21
Line 115 sub HUPSMAN { # sig	Line 115 sub HUPSMAN { # sig
local($SIG{CHLD}) = 'IGNORE'; # we're going to kill our children	local($SIG{CHLD}) = 'IGNORE'; # we're going to kill our children
kill 'INT' => keys %children;	kill 'INT' => keys %children;
&logthis("<font color=red>CRITICAL: Restarting</font>");	&logthis("<font color=red>CRITICAL: Restarting</font>");
	unlink("$execdir/logs/lonc.pid");
my $execdir=$perlvar{'lonDaemons'};	my $execdir=$perlvar{'lonDaemons'};
exec("$execdir/lonc"); # here we go again	exec("$execdir/lonc"); # here we go again
}	}
Line 291 $key=$key.$buildkey.$key.$buildkey.$key.	Line 292 $key=$key.$buildkey.$key.$buildkey.$key.
$key=substr($key,0,32);	$key=substr($key,0,32);
my $cipherkey=pack("H32",$key);	my $cipherkey=pack("H32",$key);
if ($cipher=new IDEA $cipherkey) {	if ($cipher=new IDEA $cipherkey) {
&logthis("Secure connection inititalized: $conserver");	&logthis("Secure connection initialized: $conserver");
} else {	} else {
my $st=120+int(rand(240));	my $st=120+int(rand(240));
&logthis(	&logthis(