Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	12 Feb 2003 15:16:32 -0000	1.2
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl	17 May 2003 09:45:46 -0000	1.3
@@ -7,13 +7,26 @@
 # Make sure we do the setup only once
 if { ![nsv_exists ds_properties enabled_p] } {
     ad_register_filter -critical t -priority 999999 trace * /* ds_trace_filter
-    ad_schedule_proc [ad_parameter -package_id [ds_instance_id] DataSweepInterval "developer-support" 900] ds_sweep_data
+    ad_schedule_proc [ad_parameter -package_id [ds_instance_id] DataSweepInterval acs-developer-support 900] ds_sweep_data
     nsv_array set ds_request [list]
 
     nsv_set ds_properties enabled_p [ad_parameter -package_id [ds_instance_id] EnabledOnStartupP acs-developer-support 0]
-    nsv_set ds_properties enabled_ips *
-    nsv_set ds_properties database_enabled_p [ad_parameter -package_id [ds_instance_id] \
-	DatabaseEnabledP developer-support 0]
+
+    # Take the IP list (space or comma seperated) and turn it into a tcl list.
+    set IPs [list]
+    foreach ip [split [ad_parameter -package_id [ds_instance_id] EnabledIPs acs-developer-support *] { ,}] { 
+        if {[string equal $ip "*"]} { 
+            # a star means anything will match so just use the * instead
+            set IPs "*"
+            break
+        } elseif {![empty_string_p $ip]} { 
+            lappend IPs $ip
+        }
+    }
+    nsv_set ds_properties enabled_ips $IPs
+
+
+    nsv_set ds_properties database_enabled_p [ad_parameter -package_id [ds_instance_id] DatabaseEnabledP developer-support 0]
     ds_set_user_switching_enabled [ad_parameter -package_id [ds_instance_id] UserSwitchingEnabledP acs-developer-support 0]
 }