[LON-CAPA-cvs] cvs: loncom /cgi userstatus.pl

[www]

www		Tue Jul 29 16:23:17 2003 EDT

  Modified files:              
    /loncom/cgi	userstatus.pl 
  Log:
  Actually, this should go into 1.0
  
  
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.3 loncom/cgi/userstatus.pl:1.4
--- loncom/cgi/userstatus.pl:1.3	Tue Jul 29 16:17:52 2003
+++ loncom/cgi/userstatus.pl	Tue Jul 29 16:23:17 2003
@@ -87,14 +87,19 @@
     }
 }
 closedir(DIR);
+open (LOADAVGH,"/proc/loadavg");
+$loadavg=<LOADAVGH>;
+close(LOADAVGH);
 unless ($oneline) { 
 print "<hr /><h2>User Count</h2>";
 foreach (sort keys %usercount) {
     print "<b>".$_.":</b> ".$usercount{$_}."<br />";
 }
+print "<b>Load Average:<b> ".$loadavg;
 print "</body></html>";
 } else {
 foreach (sort keys %usercount) {
     print $_.'='.$usercount{$_}.'&';
 }
+print 'loadavg='.$loadavg;
 }