lisppaste-cvs January 2005

lisppaste-cvs@common-lisp.net

1 participants
3 discussions

[Lisppaste-cvs] CVS update: lisppaste2/site-lisp/panacea.lisp lisppaste2/site-lisp/start-critters.lisp
by bmastenbrook＠common-lisp.net 23 Jan '05

23 Jan '05

Update of /project/lisppaste/cvsroot/lisppaste2/site-lisp In directory common-lisp.net:/home/bmastenbrook/lisppaste2/site-lisp Added Files: panacea.lisp start-critters.lisp Log Message: Add site start-lisppaste files to CVS Date: Sun Jan 23 07:41:15 2005 Author: bmastenbrook

1 0

[Lisppaste-cvs] CVS update: Directory change: lisppaste2/site-lisp
by bmastenbrook＠common-lisp.net 23 Jan '05

23 Jan '05

Update of /project/lisppaste/cvsroot/lisppaste2/site-lisp In directory common-lisp.net:/home/bmastenbrook/lisppaste2/site-lisp Log Message: Directory /project/lisppaste/cvsroot/lisppaste2/site-lisp added to the repository Date: Sun Jan 23 07:40:46 2005 Author: bmastenbrook New directory lisppaste2/site-lisp added

1 0

[Lisppaste-cvs] CVS update: lisppaste2/README.lisp lisppaste2/variable.lisp lisppaste2/web-server.lisp
by bmastenbrook＠common-lisp.net 23 Jan '05

23 Jan '05

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)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

lisppaste-cvs January 2005