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

Modified Files: README.lisp variable.lisp web-server.lisp Log Message: Check in latest site modifications

Date: Sun Jan 23 07:39:34 2005 Author: bmastenbrook

Index: lisppaste2/README.lisp diff -u lisppaste2/README.lisp:1.18 lisppaste2/README.lisp:1.19 --- lisppaste2/README.lisp:1.18 Fri Dec 10 07:34:25 2004 +++ lisppaste2/README.lisp Sun Jan 23 07:39:33 2005 @@ -1,4 +1,4 @@ -;;;; $Id: README.lisp,v 1.18 2004/12/10 15:34:25 bmastenbrook Exp $ +;;;; $Id: README.lisp,v 1.19 2005/01/23 15:39:33 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/README.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -45,5 +45,7 @@ :server "niven.freenode.net" :port 6667) (lisppaste:start-irc-notification - :channels '("#lisppaste" "#pearpc" "#fpc" "#hprog" "#concatenative" "#slate-users" "#swhack" "#ud")) + :channels '("#lisppaste" "#pearpc" "#fpc" "#hprog" "#concatenative" +"#slate-users" "#swhack" "#ud" "#t" "#compilers" "#erights" "#esp" +"#scsh" "#sisc" "#haskell") :nickname "lisppaste2"))

Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.37 lisppaste2/variable.lisp:1.38 --- lisppaste2/variable.lisp:1.37 Mon Nov 29 07:47:52 2004 +++ lisppaste2/variable.lisp Sun Jan 23 07:39:33 2005 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.37 2004/11/29 15:47:52 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.38 2005/01/23 15:39:33 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -61,8 +61,8 @@

(defparameter *banned-ips* '("69.11.238.252" "168.143.113.138" - "64.236.227.6" "83.216.146.102" - "206.159.155.203")) ; two examples of + #+nil "64.236.227.6" "83.216.146.102" ; jkp is also behind the IP 64.236.227.6 + "206.159.155.203" "66.122.165.201")) ; two examples of ; troublemakers affecting ; freenode's lisppaste

Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.73 lisppaste2/web-server.lisp:1.74 --- lisppaste2/web-server.lisp:1.73 Fri Dec 10 07:34:26 2004 +++ lisppaste2/web-server.lisp Sun Jan 23 07:39:33 2005 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.73 2004/12/10 15:34:26 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.74 2005/01/23 15:39:33 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -509,6 +509,7 @@ (loop for count being the hash-values of *referer-hash* using (hash-key host) if (not (search "sexnet" host)) collect (cons host count)) #'< :key #'cdr) 20)))) + #| (p) ((span :class "small-header") "Most popular channels:") (p) @@ -651,7 +652,7 @@ (p) ((span :class "small-header") "Rise in overall pasting rate by week:") (p) ,@(paste-rate-divs) - )))) + )|#))))

(defmethod araneida:handle-request-response ((handler list-paste-handler) method request) (araneida:request-send-headers request :expires 0)