Author: psmith Date: Thu Apr 26 16:34:42 2007 New Revision: 111

Modified: branches/home/psmith/restructure/src/io/ip-authorisation.lisp Log: log allowed ips

Modified: branches/home/psmith/restructure/src/io/ip-authorisation.lisp ============================================================================== --- branches/home/psmith/restructure/src/io/ip-authorisation.lisp (original) +++ branches/home/psmith/restructure/src/io/ip-authorisation.lisp Thu Apr 26 16:34:42 2007 @@ -32,7 +32,8 @@

(defun load-ips (filename) (with-open-file (stream filename) - (setf +ip-list+ (read stream)))) + (setf +ip-list+ (read stream))) + (format t "Loaded allowed ips:~A~% " +ip-list+))

(defun check-ip (async-fd) (with-slots (remote-host) (socket async-fd)