loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.59, 2005/05/26 20:25:00	version 1.60, 2005/06/13 19:54:28
Line 92 sub start_daemon {	Line 92 sub start_daemon {
rename("$error_fname","$error_fname.1");	rename("$error_fname","$error_fname.1");
}	}
system("$perlvar{'lonDaemons'}/$progname 2>$perlvar{'lonDaemons'}/logs/${daemon}_errors");	system("$perlvar{'lonDaemons'}/$progname 2>$perlvar{'lonDaemons'}/logs/${daemon}_errors");
sleep 2;	sleep 1;
if (-e $pidfile) {	if (-e $pidfile) {
&log($fh,"<p>Seems like it started ...</p>");	&log($fh,"<p>Seems like it started ...</p>");
my $lfh=IO::File->new("$pidfile");	my $lfh=IO::File->new("$pidfile");
my $daemonpid=<$lfh>;	my $daemonpid=<$lfh>;
chomp($daemonpid);	chomp($daemonpid);
sleep 2;
if (kill 0 => $daemonpid) {	if (kill 0 => $daemonpid) {
return 1;	return 1;
} else {	} else {
Line 161 sub checkon_daemon {	Line 160 sub checkon_daemon {
if ($kadaemon eq 'lonmemcached') { $kadaemon='memcached'; }	if ($kadaemon eq 'lonmemcached') { $kadaemon='memcached'; }
&log($fh,'<br><font color="red">Killall '.$daemon.': '.	&log($fh,'<br><font color="red">Killall '.$daemon.': '.
`killall $kadaemon 2>&1`.' - ');	`killall $kadaemon 2>&1`.' - ');
sleep 2;	sleep 1;
&log($fh,unlink($pidfile).' - '.	&log($fh,unlink($pidfile).' - '.
`killall -9 $kadaemon 2>&1`.	`killall -9 $kadaemon 2>&1`.
'</font><br>');	'</font><br>');