Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v diff -u -r1.52 -r1.53 --- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 10 Apr 2018 06:34:36 -0000 1.52 +++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 18 Apr 2018 22:25:03 -0000 1.53 @@ -1384,15 +1384,15 @@ # down. # ::xotcl::Object setExitHandler { - ns_log notice "::thottle: exiting" + ns_log notice "::throttle: exiting" dump write -sync true # # Delete all users objects, that will flush all activity data to # the tables if configured # foreach obj [Users info instances] {$obj destroy} - ns_log notice "::thottle speficic exist handler finished" + ns_log notice "::throttle specific exist handler finished" } #ns_log notice "============== Thread initialized ====================" @@ -1426,15 +1426,15 @@ } throttle proc destroy {} { - #puts stderr thottle-DESTROY - ns_log notice thottle-DESTROY-shutdownpending->[ns_info shutdownpending] + #puts stderr throttle-DESTROY + ns_log notice throttle-DESTROY-shutdownpending->[ns_info shutdownpending] if {[ns_info shutdownpending] && [nsv_exists ::xotcl::THREAD [self]]} { set tid [nsv_get ::xotcl::THREAD [self]] - ns_log notice =========thottle-DESTROY-shutdown==========================$tid-??[::thread::exists $tid] + ns_log notice =========throttle-DESTROY-shutdown==========================$tid-??[::thread::exists $tid] if {[::thread::exists $tid]} { - ns_log notice =========thottle-DESTROY-shutdown==========================THREAD-EXISTS + ns_log notice =========throttle-DESTROY-shutdown==========================THREAD-EXISTS set refcount [::thread::release $tid] - ns_log notice thottle-DESTROY-shutdownpending->[ns_info shutdownpending]-refCount$refcount + ns_log notice throttle-DESTROY-shutdownpending->[ns_info shutdownpending]-refCount$refcount } } next