loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.50, 2004/05/11 21:14:23	version 1.51, 2004/05/25 15:20:31
Line 83 sub start_daemon {	Line 83 sub start_daemon {
$progname='loncnew';	$progname='loncnew';
print "new ";	print "new ";
}	}
system("$perlvar{'lonDaemons'}/$progname 2>>$perlvar{'lonDaemons'}/logs/${daemon}_errors");	my $error_fname="$perlvar{'lonDaemons'}/logs/${daemon}_errors";
	my $size=(stat($error_fname))[7];
	if ($size>40000) {
	&log($fh,"<p>Rotating error logs ...</p>");
	rename("$error_fname.2","$error_fname.3");
	rename("$error_fname.1","$error_fname.2");
	rename("$error_fname","$error_fname.1");
	}
	system("$perlvar{'lonDaemons'}/$progname 2>$perlvar{'lonDaemons'}/logs/${daemon}_errors");
sleep 2;	sleep 2;
if (-e $pidfile) {	if (-e $pidfile) {
&log($fh,"<p>Seems like it started ...</p>");	&log($fh,"<p>Seems like it started ...</p>");