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.1.1.1 -r1.1.1.1.4.1 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl 20 Apr 2001 20:51:09 -0000 1.1.1.1 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-init.tcl 17 Feb 2003 15:53:33 -0000 1.1.1.1.4.1 @@ -5,13 +5,26 @@ # Description: Provides routines used to aggregate request/response information for debugging. 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] Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -N -r1.8.2.1 -r1.8.2.2 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 16 Dec 2002 11:34:57 -0000 1.8.2.1 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 17 Feb 2003 15:53:33 -0000 1.8.2.2 @@ -143,7 +143,7 @@ } } - if { [ad_parameter -package_id [ds_instance_id] ShowCommentsInlineP "developer-support" 0] } { + if { [ad_parameter -package_id [ds_instance_id] ShowCommentsInlineP acs-developer-support 0] } { if { [nsv_exists ds_request "$ad_conn(request).comment"] } { append out "
-
Request Start Time: [ns_fmttime [lindex $property(start) 0]]\n" + Request Start Time: [clock format [lindex $property(start) 0] -format "%Y-%m-%d %H:%M:%S"]\n" } else { doc_body_append "The information for this request is gone - either the server has been restarted, or the request is more than [ad_parameter DeveloperSupportLifetime "" 900] seconds old. @@ -66,7 +66,7 @@ set value "[format "%.f" [expr { ($conn(endclicks) - $conn(startclicks)) / 1000 }]] ms" } end { - set value [ns_fmttime $conn($key)] + set value [clock format $conn($key) -format "%Y-%m-%d %H:%M:%S" ] } user_id { if { [db_0or1row user_info "