[Lisppaste-cvs] CVS update: lisppaste2/variable.lisp

[Brian Mastenbrook]

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