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.10 -r1.11
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	16 Sep 2007 09:31:20 -0000	1.10
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	16 Sep 2007 11:15:15 -0000	1.11
@@ -660,6 +660,46 @@
 		  -default [file dirname [file root [ns_config ns/parameters ServerLog]]]]
   if {![file isdirectory $logdir]} {file mkdir $logdir}
 
+
+#   ns_log notice "+++ initialize conters"
+#   # Populate the counters
+#   # Initialize from the old counters
+  
+#   set logdir [parameter::get_from_package_key -package_key xotcl-request-monitor \
+#                   -parameter log-dir \
+#                   -default [file dirname [file root [ns_config ns/parameters ServerLog]]]]
+  
+#   set max_urls [parameter::get_from_package_key \
+#                     -package_key "xotcl-request-monitor" \
+#                     -parameter max-url-stats -default 13]
+#   set time_window [parameter::get_from_package_key \
+#                        -package_key "xotcl-request-monitor" \
+#                        -parameter "time-window" -default 13]
+  
+#   set nr_trend_elements [parameter::get_from_package_key \
+#                              -package_key "xotcl-request-monitor" \
+#                              -parameter "trend-elements" -default 48]
+#   incr nr_trend_elements
+  
+#   # Create the file to load. This is per hour = 60*3 + 2 lines
+#   set number_of_lines [expr {182 * $nr_trend_elements}]
+#   exec /usr/bin/tail -n $number_of_lines ${logdir}/counter.log >${logdir}/counter-new.log
+#   set f [open $logdir/counter-new.log]
+  
+#   while {-1 != [gets $f line]} {
+#     regexp {(.*) -- (.*) ::(.*) (.*)} $line match timestamp server label value
+#     set nr_stats_elements [parameter::get_from_package_key \
+#                                -package_key "xotcl-request-monitor" \
+#                                -parameter "max-stats-elements" -default 48]
+#     ns_log notice "throttle do $label lappend trend $value"
+#     $label lappend trend $value
+#     set stats [$label lappend stats [list $timestamp $value]]
+#     set stats [lrange [lsort -real -decreasing -index 1 $stats] 0 [expr {$nr_stats_elements - 1}]]
+#     $label set stats $stats
+#   }
+#   close $f
+  
+
 } -persistent 1 -ad_doc {
   This is a small request-throttle application that handles simple 
   DOS-attracks on an AOL-server.  A user (request key) is identified