Index: openacs-4/packages/xotcl-request-monitor/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/index.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/xotcl-request-monitor/www/index.tcl	18 Sep 2007 10:21:45 -0000	1.11
+++ openacs-4/packages/xotcl-request-monitor/www/index.tcl	23 May 2008 19:23:24 -0000	1.12
@@ -34,10 +34,15 @@
 
 # collect current system statistics
 proc currentSystemLoad {} {
-#    if {[catch {return [exec "/usr/bin/uptime"]}]} {
-#	return ""
-#    }
-return [exec "/usr/bin/uptime"]
+  #    if {[catch {return [exec "/usr/bin/uptime"]}]} {
+  #	return ""
+  #    }
+  set procloadavg /proc/loadavg
+  if {[file readable $procloadavg]} {
+    set f [open $procloadavg]; set c [read $f]; close $f
+    return $c
+  }
+  return [exec "/usr/bin/uptime"]
 }
 
 # collect current response time (per minute and hour)