[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory cl-net:/tmp/cvs-serv8286

Modified Files:
	tests.lisp 
Log Message:

changed monitor rescheduling so instead of an alerting monitor being run 5 times less frequently, its run twice as often.
	- it doesn't make sense to me why I would want to monitor a place where I think I'm having a problem *less* than usual!
		- Maybe I just *don't get it!* :P :)



--- /project/noctool/cvsroot/source/tests.lisp	2008/12/03 12:28:01	1.11
+++ /project/noctool/cvsroot/source/tests.lisp	2008/12/03 14:58:53	1.12
@@ -35,9 +35,10 @@
                       (warn "no default scheduler!")))))))
     (schedule monitor
               (+ (get-universal-time)
-                 (*
-                  (interval monitor)
-                  (if (>= (alert-level monitor) *alerting*) 5 1))))))
+                 (ceiling 
+                  (*
+                   (interval monitor)
+                   (if (>= (alert-level monitor) *alerting*) .5 1)))))))
 
 
 (defmethod process ((monitor ping-monitor))