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

[Brian Mastenbrook]

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)