util_report_successful_library_load
one of
the documented procedures in this
installation of the ACS
Usage:
util_report_successful_library_load { extra_message "" }
What it does:
Should be called at end of private Tcl library files so that it is easy to see in the error log whether or not private Tcl library files contain errors.
Defined in:
/web/photonet/tcl/ad-utilities.tcl.preload
Source code:
if [catch { set db [ns_db gethandle main] ; ns_db releasehandle $db } errmsg] {
append extra_message "failed to release handle? $errmsg"
}
set tentative_path [info script]
regsub -all {/\./} $tentative_path {/} scrubbed_path
if { [string compare $extra_message ""] == 0 } {
set message "Done... $scrubbed_path"
} else {
set message "Done... $scrubbed_path; $extra_message"
}
ns_log notice $message
