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 -r1.15 -r1.16 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 25 Sep 2003 12:22:06 -0000 1.15 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 28 Oct 2003 08:47:42 -0000 1.16 @@ -16,7 +16,7 @@ } -default 0]] } -ad_proc ds_permission_p {} { +ad_proc -public ds_permission_p {} { Do we have permission to view developer support stuff. } { return [ad_permission_p -user_id [ds_get_real_user_id] [ds_instance_id] "admin"] @@ -40,7 +40,7 @@ } } -ad_proc ds_enabled_p {} { +ad_proc -public ds_enabled_p {} { Returns true if developer-support facilities are enabled. } { if { ![nsv_exists ds_properties enabled_p] || ![nsv_get ds_properties enabled_p] } { @@ -49,7 +49,7 @@ return 1 } -ad_proc ds_collection_enabled_p {} { +ad_proc -public ds_collection_enabled_p {} { Returns whether we're collecting information about this request } { global ad_conn @@ -64,21 +64,21 @@ return 0 } -ad_proc ds_user_switching_enabled_p {} { +ad_proc -public ds_user_switching_enabled_p {} { Returns whether user-switching is enabled. } { return [expr {[nsv_exists ds_properties user_switching_enabled_p] && [nsv_get ds_properties user_switching_enabled_p]}] } -ad_proc ds_database_enabled_p {} { +ad_proc -public ds_database_enabled_p {} { Returns true if developer-support database facilities are enabled. } { return [nsv_get ds_properties database_enabled_p] } -proc_doc ds_lookup_administrator_p { user_id } { } { +ad_proc -public ds_lookup_administrator_p { user_id } { } { return 1 } @@ -90,7 +90,9 @@ return [apm_package_url_from_key "acs-developer-support"] } -proc_doc ds_link {} { Returns the "Developer Information" link in a right-aligned table, if enabled. } { +ad_proc ds_link {} { + Returns the "Developer Information" link in a right-aligned table, if enabled. +} { if { ![ds_enabled_p] && ![ds_user_switching_enabled_p] } { return "" @@ -157,7 +159,10 @@ } -proc_doc ds_collect_connection_info {} { Collects information about the current connection. Should be called only at the very beginning of the request processor handler. } { +ad_proc -private ds_collect_connection_info {} { + Collects information about the current connection. + Should be called only at the very beginning of the request processor handler. +} { # JCD: check recursion_count to ensure adding headers only one time. if { [ds_enabled_p] && [ds_collection_enabled_p] && ![ad_conn recursion_count]} { ##This is expensive, but easy. Otherwise we need to do it in every interpreter @@ -174,7 +179,7 @@ } } -proc_doc ds_collect_db_call { db command statement_name sql start_time errno error } { +ad_proc -private ds_collect_db_call { db command statement_name sql start_time errno error } { if { [ds_enabled_p] && [ds_collection_enabled_p] && [ds_database_enabled_p] } { set bound_sql $sql @@ -210,7 +215,10 @@ } } -proc_doc ds_add { name args } { Sets a developer-support property for the current request. Should never be used except by elements of the request processor (e.g., security filters or abstract URLs). } { +ad_proc -private ds_add { name args } { + Sets a developer-support property for the current request. + Should never be used except by elements of the request processor (e.g., security filters or abstract URLs). +} { if { [ds_enabled_p] && [ds_collection_enabled_p] } { if { [catch { nsv_exists ds_request . }] } { @@ -226,14 +234,14 @@ } } -proc_doc ds_comment { value } { Adds a comment to the developer-support information for the current request. } { +ad_proc -public ds_comment { value } { Adds a comment to the developer-support information for the current request. } { if { [ds_enabled_p] } { ds_add comment $value } } -proc ds_sweep_data {} { +ad_proc -private ds_sweep_data {} { set now [ns_time] set lifetime [ad_parameter -package_id [ds_instance_id] DataLifetime acs-developer-support 900] @@ -264,7 +272,7 @@ ns_log "Notice" "Swept developer support information for [array size kill_requests] requests ($kill_count nsv elements)" } -proc_doc ds_trace_filter { conn args why } { Adds developer-support information about the end of sessions.} { +ad_proc -private ds_trace_filter { conn args why } { Adds developer-support information about the end of sessions.} { if { [ds_enabled_p] && [ds_collection_enabled_p] } { ds_add conn end [ns_time] endclicks [clock clicks] @@ -283,7 +291,7 @@ return "filter_ok" } -ad_proc ds_user_select_widget {} { +ad_proc -public ds_user_select_widget {} { set user_id [ad_get_user_id] set real_user_id [ds_get_real_user_id] @@ -348,7 +356,7 @@ } } -ad_proc ds_get_user_id {{original 0}} { +ad_proc -public ds_get_user_id {{original 0}} { Developer support version of ad_get_user_id, used for debugging sites. } { set orig_user_id [ds_get_real_user_id] @@ -360,7 +368,7 @@ } } -ad_proc ds_conn { args } { +ad_proc -public ds_conn { args } { Developer support version of ad_conn. Overloads "ad_conn user_id", delegates to ad_conn in all other cases. } { @@ -372,7 +380,7 @@ } } -ad_proc ds_set_user_switching_enabled { enabled_p } { +ad_proc -public ds_set_user_switching_enabled { enabled_p } { Enables/disables user-switching in a safe manner. @author Lars Pind (lars@pinds.com) @@ -382,6 +390,16 @@ nsv_set ds_properties user_switching_enabled_p $enabled_p } +ad_proc -public ds_set_database_enabled { enabled_p } { + Enables/disables database statistics in a safe manner. + + @author Lars Pind (lars@pinds.com) + @creation-date 31 August 2000 +} { + ns_log Warning "Developer-support database stats [ad_decode $enabled_p 1 "enabled" "disabled"]" + nsv_set ds_properties database_enabled_p $enabled_p +} + ad_proc -private ds_replace_get_user_procs { enabled_p } { Replace the ad_get_user procs with our own versions } { Index: openacs-4/packages/acs-developer-support/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-developer-support/www/index.tcl 28 Sep 2003 01:25:30 -0000 1.5 +++ openacs-4/packages/acs-developer-support/www/index.tcl 28 Oct 2003 08:47:42 -0000 1.6 @@ -14,6 +14,8 @@ set enabled_p [nsv_get ds_properties enabled_p] set user_switching_enabled_p [nsv_get ds_properties user_switching_enabled_p] +set database_enabled_p [nsv_get ds_properties database_enabled_p] + set package_id [ad_conn package_id] doc_body_append "[ad_header "ACS Developer Support"] @@ -70,6 +72,11 @@ "on (turn it off)" \ "off (turn it on)"] +
  • Database statistics is currently +[ad_decode $database_enabled_p 1 \ + "on (turn it off)" \ + "off (turn it on)"] +

    Available Request Information

    Index: openacs-4/packages/acs-developer-support/www/set-database-enabled.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/Attic/set-database-enabled.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-developer-support/www/set-database-enabled.tcl 28 Oct 2003 08:47:42 -0000 1.1 @@ -0,0 +1,14 @@ +ad_page_contract { + + @author Lars Pind (lars@pinds.com) + @creation-date 2003-10-28 + @cvs-id $Id: set-database-enabled.tcl,v 1.1 2003/10/28 08:47:42 lars Exp $ +} { + enabled_p +} + +ds_require_permission [ad_conn package_id] "admin" + +ds_set_database_enabled $enabled_p + +ad_returnredirect .