- Publicity: Public Only All
ds-stub-procs.tcl
Stub procs for developer support procs we call in acs-tcl for logging. We check here if the procs are defined before we stub them out. This is done since the old ad_call_proc_if_exists is somewhat expensive and these are called a lot in every request.
- Location:
- packages/acs-tcl/tcl/ds-stub-procs.tcl
- Created:
- 2005-03-02
- Author:
- Jeff Davis
- CVS Identification:
$Id: ds-stub-procs.tcl,v 1.8 2024/09/11 06:15:48 gustafn Exp $
Procedures in this file
Detailed information
[ hide source ] | [ make this the default ]Content File Source
ad_library { Stub procs for developer support procs we call in acs-tcl for logging. We check here if the procs are defined before we stub them out. This is done since the old ad_call_proc_if_exists is somewhat expensive and these are called a lot in every request. @author Jeff Davis <davis@xarg.net> @creation-date 2005-03-02 @cvs-id $Id: ds-stub-procs.tcl,v 1.8 2024/09/11 06:15:48 gustafn Exp $ } if {[namespace which ds_add] eq ""} { proc ds_add {args} {} } if {[namespace which ds_collect_db_call] eq ""} { proc ds_collect_db_call {args} {} } if {[namespace which ds_collect_connection_info] eq ""} { proc ds_collect_connection_info {} {} } if {[namespace which ds_init] eq ""} { proc ds_init {} {} } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: