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.19 -r1.67.2.20 --- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 21 May 2020 14:51:20 -0000 1.67.2.19 +++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 18 Jun 2020 08:41:47 -0000 1.67.2.20 @@ -449,8 +449,10 @@ } # # Handling of longcalls counter - # - if {$conntime > 3000} { + if {$conntime > 3000 + || [dict get $partialtimes filtertime] > 1.0 + || [dict get $partialtimes queuetime] > 0.5 + } { if {$url eq "/register/"} { set color unexpected } elseif {$conntime > 7000} { @@ -463,13 +465,13 @@ incr ::count(longcalls:$color) # - # Add url, in case it is not too long + # Add URL, in case it is not too long # set ql [string length $query] if {$ql > 0 && $ql < 60} { set loggedUrl $url?$query } else { - set loggedUrl $url + set loggedUrl $url?...long-list.... } #