Author: psmith Date: Thu Apr 26 18:33:49 2007 New Revision: 113
Modified: branches/home/psmith/restructure/src/io/ip-authorisation.lisp branches/home/psmith/restructure/src/io/nio-package.lisp Log: Added allow-ips to ip-authorisation
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 18:33:49 2007 @@ -35,8 +35,18 @@ (setf +ip-list+ (read stream))) (format t "Loaded allowed ips:~A~% " +ip-list+))
+;(allow-ips '("127.0.0.1")) +(defun allow-ips (ip-list) + "Add each ip in the allow ips list to our list" + (dolist (item ip-list) + (when (not (check-ip-str item)) (push item +ip-list+)))) + + +(defun check-ip-str(ip-string) + (member ip-string +ip-list+ :test 'string-equal)) + (defun check-ip (async-fd) (with-slots (remote-host) (socket async-fd) (let ((str-rep (format nil "~{~a~^.~}" (reverse remote-host)))) (format t "ip-authorisation:check-ip ~A ~A~%" str-rep +ip-list+) - (member str-rep +ip-list+ :test 'string-equal)))) \ No newline at end of file + (check-ip-str str-rep))))
Modified: branches/home/psmith/restructure/src/io/nio-package.lisp ============================================================================== --- branches/home/psmith/restructure/src/io/nio-package.lisp (original) +++ branches/home/psmith/restructure/src/io/nio-package.lisp Thu Apr 26 18:33:49 2007 @@ -41,7 +41,7 @@ packet write-bytes get-packet-size
;;ip-authorisation - check-ip load-ips + check-ip load-ips allow-ips ;;nodes node with-connected-nodes active-conn node-from-socket-repn remote-host remote-port