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.9 -r1.67.2.10 --- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 6 Feb 2020 17:20:59 -0000 1.67.2.9 +++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 6 Feb 2020 19:10:36 -0000 1.67.2.10 @@ -1349,46 +1349,52 @@ } } dump proc collect {} { - set cmd "" - # dump all variables of the object ::Users + set cmds {} + # + # Dump all variables of the object ::Users + # set o ::Users foreach var [$o info vars] { + # # last_mkey is just for internal purposes if {$var eq "last_mkey"} continue - # the remainder are primarily runtime statistics + + # + # The remainder are primarily runtime statistics + # if {[$o array exists $var]} { - append cmd [list $o array set $var [$o array get $var]] \n + lappend cmds [list $o array set $var [$o array get $var]] } else { - append cmd [list $o set $var [$o set $var]] \n + lappend cmds [list $o set $var [$o set $var]] } } - return $cmd + return $cmds } dump proc write {{-sync false}} { - set cmd [:collect] + set cmds [:collect] if {$sync} { set dumpFile [open ${:file} w] - puts -nonewline $dumpFile $cmd + puts -nonewline $dumpFile [join $cmds \n]\n close $dumpFile } else { file delete -force ${:file} set dumpFile [AsyncLogFile new -filename ${:file}] - # Split the cmd to avoid sanitizer without the need to check, if - # the server has support - foreach l [split $cmd \n] { - $dumpFile write $l + # + # Write the content in smaller chunks. + # + foreach cmd $cmds { + $dumpFile write $cmd } $dumpFile destroy } } - # dump proc write {{-sync false}} { # # -sync is currently ignored # ns_job queue -detached async-cmd [subst { # set dumpFile \[open ${:file} w\] - # puts -nonewline \$dumpFile [list [:collect]] + # puts \$dumpFile [list [join [:collect] \n]] # close \$dumpFile # }] # }