[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	tests.lisp 
Log Message:
IM

Added some "has this been checked" monitoring to the disk-containe PROCESS
method.


--- /project/noctool/cvsroot/source/tests.lisp	2009/01/26 02:54:30	1.17
+++ /project/noctool/cvsroot/source/tests.lisp	2009/02/03 14:49:50	1.18
@@ -149,7 +149,15 @@
                                 ((<= (* 0.9 (disk-percent platter))
                                      percent)
                                  *warning*)
-                                (t 0))))))))))))))
+                                (t 0)))))))))))
+    ;; Check for disks that have not been probed for roughly two intervals
+    (loop for platter in (disk-list monitors)
+	  with threshold = (- (get-universal-time)
+			      (* 2 (interval monitor)))
+	  do (when (<= (last-updated platter))
+	       (setf (alert-level platter)
+		     *alerting*)))
+    )))
 
 (defmethod process ((monitor disk-container))
   (without-errors NIL