Index: openacs-4/packages/acs-admin/www/monitor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/monitor.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/monitor.tcl	24 Oct 2003 15:25:19 -0000	1.1
+++ openacs-4/packages/acs-admin/www/monitor.tcl	13 Jan 2005 13:54:41 -0000	1.2
@@ -5,8 +5,20 @@
 set page_title "Active Connections"
 set context [list $page_title]
 
-set connections [ns_server active]
+#AG: removed the call to ns_server.  It's not thread safe!  We think
+#it is crashing our server.  See NOTES section of this page for more info:
+#  http://panoptic.com/wiki/aolserver/ns_server
+#Happily, the same information can be derived from ns_info threads, which
+#gets the information in a different way.
 
+set threads [ns_info threads]
+set connections [list]
+foreach thread $threads {
+    if { [string equal [lindex $thread 5] "ns:connthread"] && [llength [lindex $thread 6]] > 0 } {
+	lappend connections [lindex $thread 6]
+    }
+}
+
 array set ip_p [list]
 
 multirow create connections num ip state method url seconds bytes