loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

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;
}	}