version 1.3, 2003/07/29 20:17:52
|
version 1.4, 2003/07/29 20:23:17
|
Line 87 while ($filename=readdir(DIR)) {
|
Line 87 while ($filename=readdir(DIR)) {
|
} |
} |
} |
} |
closedir(DIR); |
closedir(DIR); |
|
open (LOADAVGH,"/proc/loadavg"); |
|
$loadavg=<LOADAVGH>; |
|
close(LOADAVGH); |
unless ($oneline) { |
unless ($oneline) { |
print "<hr /><h2>User Count</h2>"; |
print "<hr /><h2>User Count</h2>"; |
foreach (sort keys %usercount) { |
foreach (sort keys %usercount) { |
print "<b>".$_.":</b> ".$usercount{$_}."<br />"; |
print "<b>".$_.":</b> ".$usercount{$_}."<br />"; |
} |
} |
|
print "<b>Load Average:<b> ".$loadavg; |
print "</body></html>"; |
print "</body></html>"; |
} else { |
} else { |
foreach (sort keys %usercount) { |
foreach (sort keys %usercount) { |
print $_.'='.$usercount{$_}.'&'; |
print $_.'='.$usercount{$_}.'&'; |
} |
} |
|
print 'loadavg='.$loadavg; |
} |
} |