loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.60, 2005/06/13 19:54:28	version 1.62, 2005/11/10 19:07:01
Line 98 sub start_daemon {	Line 98 sub start_daemon {
my $lfh=IO::File->new("$pidfile");	my $lfh=IO::File->new("$pidfile");
my $daemonpid=<$lfh>;	my $daemonpid=<$lfh>;
chomp($daemonpid);	chomp($daemonpid);
if (kill 0 => $daemonpid) {	if ($daemonpid =~ /^\d+$/ && kill 0 => $daemonpid) {
return 1;	return 1;
} else {	} else {
return 0;	return 0;
Line 134 sub checkon_daemon {	Line 134 sub checkon_daemon {
my $lfh=IO::File->new("$pidfile");	my $lfh=IO::File->new("$pidfile");
$daemonpid=<$lfh>;	$daemonpid=<$lfh>;
chomp($daemonpid);	chomp($daemonpid);
if (kill 0 => $daemonpid) {	if ($daemonpid =~ /^\d+$/ && kill 0 => $daemonpid) {
&log($fh,"<h3>$daemon at pid $daemonpid responding");	&log($fh,"<h3>$daemon at pid $daemonpid responding");
if ($send) { &log($fh,", sending $send"); }	if ($send) { &log($fh,", sending $send"); }
&log($fh,"</h3>");	&log($fh,"</h3>");
Line 277 sub log_machine_info {	Line 277 sub log_machine_info {
if ($psproc>200) { $notices++; }	if ($psproc>200) { $notices++; }
if ($psproc>250) { $notices++; }	if ($psproc>250) { $notices++; }

	&log($fh,"<h3>distprobe</h3>");
	&log($fh,"<pre>");
	open(DSH,"$perlvar{'lonDaemons'}/distprobe \|");
	while (my $line=<DSH>) {
	&log($fh,&encode_entities($line,'<>&"'));
	$psproc++;
	}
	close(DSH);
	&log($fh,"</pre>");

&errout($fh);	&errout($fh);
}	}