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.67.2.46 -r1.67.2.47 --- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 5 Jan 2022 14:10:22 -0000 1.67.2.46 +++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 25 Feb 2022 14:01:56 -0000 1.67.2.47 @@ -1571,9 +1571,9 @@ # Create the file to load. This is per hour = 60*3 + 2 lines set number_of_lines [expr {182 * [trend-elements]}] - exec $tail -n $number_of_lines ${logdir}/counter.log >${logdir}/counter-new.log try { + exec $tail -n $number_of_lines ${logdir}/counter.log >${logdir}/counter-new.log set f [open $logdir/counter-new.log] while {-1 != [gets $f line]} { regexp {(.*) -- (.*) ::(.*) (.*)} $line match timestamp server counter value @@ -1585,10 +1585,14 @@ set complain($counter) 1 } } + } on error {errorMsg} { + ns_log Warning "+++ request-monitor: error initializing counters: $errorMsg" } finally { - close $f + if {[info exists f]} { + close $f + unset f + } } - unset f } #