Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v diff -u -r1.4.2.7 -r1.4.2.8 --- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl 1 Feb 2021 10:47:36 -0000 1.4.2.7 +++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl 15 Sep 2021 10:25:15 -0000 1.4.2.8 @@ -52,9 +52,16 @@ set c [read $F]; close $F set offsets [regexp -indices -all -inline \n $c] -set o [lindex $offsets end-$lines] -set c1 [string range $c [lindex $o 0]+1 end] +set offset [lindex $offsets end-$lines 0] +if {$offset eq ""} { + # + # Trim potential partial lines + # + set offset [lindex $offsets 0 0] +} +set c1 [string range $c $offset+1 end] set rows "" + foreach line [lreverse [split $c1 \n]] { if {$line eq ""} continue lassign $line wday mon day hours tz year dash url time uid ip contentType pool