version 1.5, 2003/08/27 18:20:11
|
version 1.6, 2003/08/27 20:35:24
|
Line 129 sub main {
|
Line 129 sub main {
|
print "<b>Load Average:<b> ".$loadavg; |
print "<b>Load Average:<b> ".$loadavg; |
print "</body></html>"; |
print "</body></html>"; |
} else { |
} else { |
foreach (sort keys %usercount) { |
foreach my $l1 (sort keys %usercount) { |
print $_.'='.$usercount{$_}.'&'; |
foreach my $l2 (sort keys %{$usercount{$l1}}) { |
|
foreach my $l3 (sort keys %{$usercount{$l1}{$l2}}) { |
|
print $l1.'_'.$l2.'_'.$l3.'='.$usercount{$l1}{$l2}{$l3}.'&'; |
|
} |
|
} |
|
} |
|
#clusterstatus values |
|
foreach my $act (@actl) { |
|
print "$act=".$usercount{'Overall'}{'all'}{$act}.'&'; |
} |
} |
print 'loadavg='.$loadavg; |
print 'loadavg='.$loadavg; |
} |
} |