[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	network.lisp 
Log Message:
IM

Changed the amount of time we accept that an IAM protocol message can have
been in transit. 50 seconds is not too insane for manual testing, but
rather insane for computers, as this leaves open time for third parties to
intercept and such-like. I am not convinced that 5 seconds is vastly better,
mind you.


--- /project/noctool/cvsroot/source/network.lisp	2008/07/03 07:30:24	1.4
+++ /project/noctool/cvsroot/source/network.lisp	2008/08/27 05:59:16	1.5
@@ -133,7 +133,7 @@
 (defun validate-timestring (str)
   (let ((then (parse-timestring str))
 	(now (get-universal-time)))
-    (<= 0 (- now then) 50)))
+    (<= 0 (- now then) 5)))
 
 (defun make-signature (msg password)
   (let ((hmac (ironclad:make-hmac password :sha1)))