Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv9846

Modified Files: apache.conf.include lisppaste.lisp web-server.lisp Log Message: minor typo corrections

Date: Mon Nov 10 11:28:43 2003 Author: eenge

Index: lisppaste2/apache.conf.include diff -u lisppaste2/apache.conf.include:1.3 lisppaste2/apache.conf.include:1.4 --- lisppaste2/apache.conf.include:1.3 Mon Nov 3 12:57:02 2003 +++ lisppaste2/apache.conf.include Mon Nov 10 11:28:43 2003 @@ -1,4 +1,4 @@ -#### $Id: apache.conf.include,v 1.3 2003/11/03 17:57:02 eenge Exp $ +#### $Id: apache.conf.include,v 1.4 2003/11/10 16:28:43 eenge Exp $ #### $Source: /project/lisppaste/cvsroot/lisppaste2/apache.conf.include,v $

# To include this file, simply add: @@ -9,7 +9,7 @@

<VirtualHost localhost:80> ServerName localhost - ProxyPass /paste/ http://localhost:8081/paste/ + Proxypass /paste/ http://localhost:8081/paste/ ProxyPassReverse /paste/ http://localhost:8081/paste/ SetEnvIf User-Agent ".*MSIE.*" nokeepalive ssl-unclean-shutdown </VirtualHost>

Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.1.1.1 lisppaste2/lisppaste.lisp:1.2 --- lisppaste2/lisppaste.lisp:1.1.1.1 Mon Nov 3 12:17:54 2003 +++ lisppaste2/lisppaste.lisp Mon Nov 10 11:28:43 2003 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.1.1.1 2003/11/03 17:17:54 eenge Exp $ +;;;; $Id: lisppaste.lisp,v 1.2 2003/11/10 16:28:43 eenge Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -15,7 +15,8 @@ :server server :port port))) (setf *connection* connection) + (setf *channel* channel) (irc:join connection channel) - (araneida:install-serve-event-handlers) + (araneida:start-listening *paste-listener*) (irc:read-message-loop connection)))

Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.2 lisppaste2/web-server.lisp:1.3 --- lisppaste2/web-server.lisp:1.2 Mon Nov 10 11:18:23 2003 +++ lisppaste2/web-server.lisp Mon Nov 10 11:28:43 2003 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.2 2003/11/10 16:18:23 eenge Exp $ +;;;; $Id: web-server.lisp,v 1.3 2003/11/10 16:28:43 eenge Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -77,7 +77,7 @@ (t (progn (incf *paste-counter*) - (let ((url (araneida:urlstring (araneida:merge-url *display-url* + (let ((url (araneida:urlstring (araneida:merge-url *display-paste-url* (prin1-to-string *paste-counter*)))) (paste (make-paste :number *paste-counter* :user username @@ -122,7 +122,7 @@ (head (title "Invalid paste number" ,paste-number)) (body - (h1 "No paste numberd " ,paste-number "could be found."))))))) + (h3 "No paste numbered " ,paste-number " could be found.")))))))

(araneida:install-handler (araneida:http-listener-handler *paste-listener*)