Index: openacs-4/packages/xotcl-request-monitor/www/running.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/running.tcl,v diff -u -N -r1.10.2.2 -r1.10.2.3 --- openacs-4/packages/xotcl-request-monitor/www/running.tcl 8 Jul 2019 20:29:16 -0000 1.10.2.2 +++ openacs-4/packages/xotcl-request-monitor/www/running.tcl 1 Nov 2019 13:20:13 -0000 1.10.2.3 @@ -75,11 +75,20 @@ if {[ns_info name] eq "NaviServer"} { foreach {entry} $writer_requests { if {[llength $entry] == 8} { + # + # Versions before rate management. + # lassign $entry starttime thread driver ip fd remaining done clientdata + } elseif {[llength $entry] == 10} { + # + # In some versions of NaviServer, pool can be empty. + # + lassign $entry starttime thread driver ip fd remaining done targetRate actualRate clientdata } elseif {[llength $entry] == 11} { lassign $entry starttime thread driver pool ip fd remaining done targetRate actualRate clientdata } else { ns_log notice "ns_writer list returns unknown number ([llength $entry]) of elements" + continue } lassign $clientdata requestor url set size [expr {$remaining+$done}]