[noctool-cvs] CVS source

[jprewett]

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

Modified Files:
	utils.lisp 
Log Message:

fixed minor bug in make-ping where it assumed ping counts packets from 1 not 0
	- my ping counts from 0




--- /project/noctool/cvsroot/source/utils.lisp	2008/05/13 05:59:41	1.2
+++ /project/noctool/cvsroot/source/utils.lisp	2008/05/16 20:18:23	1.3
@@ -92,7 +92,11 @@
 		 (let ((seq (ping-helper "icmp_seq" line))
 		       (rtt (ping-helper "time" line)))
 		   (when (and seq rtt)
-		     (setf (aref rv (1- seq)) rtt))))))
+                     (format t "seq: ~A rtt: ~A~%" seq rtt)
+                     ;; this seems to be a bug?!
+                     ;; my ping counts packets from 0
+		     ;; (setf (aref rv (1- seq)) rtt)
+                     (setf (aref rv seq) rtt))))))
     rv))
 
 (defun decay-alert (old new)