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 -N -r1.21 -r1.22
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	29 Dec 2008 13:12:27 -0000	1.21
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	9 Jan 2009 22:07:23 -0000	1.22
@@ -800,7 +800,19 @@
 	my unset timestamp($i)
       }
     }
+    dump write
   }
+
+  Object create dump
+  dump set file ${logdir}/throttle-data.dump
+  dump proc read {} {
+    if {[file readable [my set file]]} {source [my set file]}
+  }
+  dump proc write {} {
+    set dumpFile [open [my set file] w]
+    puts $dumpFile [list Users array set timestamp [Users array get timestamp]]
+    close $dumpFile
+  }
   
   # initialization of Users class object
   #Users perDayCleanup
@@ -863,6 +875,11 @@
     unset f
   }
 
+  #
+  # Read in the last dump data
+  #
+  dump read
+
   
 } -persistent 1 -ad_doc {
   This is a small request-throttle application that handles simple