util_report_library_entry { extra_message " " }What it does:
Should be called at beginning 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/philip/packages/acs-core/utilities-procs.tcl
Source code:
set tentative_path [info script] regsub -all {/\./} $tentative_path {/} scrubbed_path if { [string compare $extra_message ""] == 0 } { set message "Loading $scrubbed_path" } else { set message "Loading $scrubbed_path; $extra_message" } ns_log Notice $message