[noctool-cvs] CVS source

[imattsson]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv13843

Modified Files:
	config.lisp 
Log Message:
IM

Added :ping-count to the ping-monitor.


--- /project/noctool/cvsroot/source/config.lisp	2008/05/18 10:59:57	1.4
+++ /project/noctool/cvsroot/source/config.lisp	2008/05/18 11:03:14	1.5
@@ -101,7 +101,9 @@
   `(progn
      (setf (slot-value ,*config-object* 'noctool::address) ,address)))
 
-(defnested ping (&rest args &key (max-rtt 20) (max-fail 1) (interval 60))
+(defnested ping (&rest args &key
+		       (max-rtt 20) (max-fail 1) (ping-count 5)
+		       (interval 60))
     :machine
   (list max-rtt max-fail interval)
   `(noctool::make-monitor 'ping-monitor ,*config-object* , at args))