version 1.60, 2005/06/13 19:54:28
|
version 1.61, 2005/10/06 20:35:50
|
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); |
} |
} |
|
|