| 1 | #| |
|---|
| 2 | Copyright (c) 2007 |
|---|
| 3 | All rights reserved. |
|---|
| 4 | |
|---|
| 5 | Redistribution and use in source and binary forms, with or without |
|---|
| 6 | modification, are permitted provided that the following conditions |
|---|
| 7 | are met: |
|---|
| 8 | 1. Redistributions of source code must retain the above copyright |
|---|
| 9 | notice, this list of conditions and the following disclaimer. |
|---|
| 10 | 2. Redistributions in binary form must reproduce the above copyright |
|---|
| 11 | notice, this list of conditions and the following disclaimer in the |
|---|
| 12 | documentation and/or other materials provided with the distribution. |
|---|
| 13 | 3. The name of the author may not be used to endorse or promote products |
|---|
| 14 | derived from this software without specific prior written permission. |
|---|
| 15 | |
|---|
| 16 | THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
|---|
| 17 | IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
|---|
| 18 | OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
|---|
| 19 | IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
|---|
| 20 | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
|---|
| 21 | NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|---|
| 22 | DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|---|
| 23 | THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|---|
| 24 | INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
|---|
| 25 | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|---|
| 26 | |# |
|---|
| 27 | (in-package :nio) |
|---|
| 28 | |
|---|
| 29 | (declaim (optimize (debug 3) (speed 3) (space 0))) |
|---|
| 30 | |
|---|
| 31 | (defparameter +ip-list+ nil) |
|---|
| 32 | |
|---|
| 33 | (defun load-ips (filename) |
|---|
| 34 | (with-open-file (stream filename) |
|---|
| 35 | (setf +ip-list+ (read stream))) |
|---|
| 36 | (format t "Loaded allowed ips:~A~% " +ip-list+)) |
|---|
| 37 | |
|---|
| 38 | ;(allow-ips '("127.0.0.1")) |
|---|
| 39 | (defun allow-ips (ip-list) |
|---|
| 40 | "Add each ip in the allow ips list to our list" |
|---|
| 41 | (dolist (item ip-list) |
|---|
| 42 | (when (not (check-ip-str item)) (push item +ip-list+)))) |
|---|
| 43 | |
|---|
| 44 | |
|---|
| 45 | (defun check-ip-str(ip-string) |
|---|
| 46 | (member ip-string +ip-list+ :test 'string-equal)) |
|---|
| 47 | |
|---|
| 48 | (defun check-ip (async-fd) |
|---|
| 49 | (with-slots (remote-host) (socket async-fd) |
|---|
| 50 | (let ((str-rep (format nil "~{~a~^.~}" (reverse remote-host)))) |
|---|
| 51 | (format t "ip-authorisation:check-ip ~A ~A~%" str-rep +ip-list+) |
|---|
| 52 | (check-ip-str str-rep)))) |
|---|
