[bknr-cvs] hans changed trunk/bknr/web/src/web/handler-statistics-handler.lisp

[BKNR Commits]

Revision: 3448
Author: hans
URL: http://bknr.net/trac/changeset/3448

Add function to reset statistics

U   trunk/bknr/web/src/web/handler-statistics-handler.lisp

Modified: trunk/bknr/web/src/web/handler-statistics-handler.lisp
===================================================================
--- trunk/bknr/web/src/web/handler-statistics-handler.lisp	2008-07-15 12:16:38 UTC (rev 3447)
+++ trunk/bknr/web/src/web/handler-statistics-handler.lisp	2008-07-15 12:42:26 UTC (rev 3448)
@@ -31,4 +31,9 @@
                               (fastest-entry (aref fastest-array (1- (array-dimension fastest-array 0)))))
                          (when fastest-entry
                            (html
-                            (:princ (format-elapsed (car fastest-entry))))))))))))))))
\ No newline at end of file
+                            (:princ (format-elapsed (car fastest-entry))))))))))))))))
+
+(defun reset-handler-statistics ()
+  (dolist (handler (website-handlers *website*))
+    (setf (page-handler-statistics handler) (make-handler-statistics))))
+