Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/test/lisppaste2

Modified Files: variable.lisp Log Message: IP banning (variable.lisp part)

Date: Thu Jun 3 15:12:03 2004 Author: bmastenbrook

Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.15 lisppaste2/variable.lisp:1.16 --- lisppaste2/variable.lisp:1.15 Tue Jun 1 06:21:19 2004 +++ lisppaste2/variable.lisp Thu Jun 3 15:12:03 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.15 2004/06/01 13:21:19 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.16 2004/06/03 22:12:03 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -30,6 +30,12 @@ (defvar *paste-maximum-size* 51200)

(defvar *pastes-per-page* 50) + +(defparameter *banned-ips* + '("69.11.238.252" "168.143.113.138")) + +(defparameter *ban-log-file* + "ban-log")

;; You shouldn't need to edit below this line. ;; LINE