[Lisppaste-cvs] CVS update: lisppaste2/apache.conf.include lisppaste2/lisppaste.lisp lisppaste2/web-server.lisp

[Erik Enge]

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*)