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

[Erik Enge]

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

Modified Files:
	web-server.lisp 
Log Message:
need to tell the IRC channel about the external (rather than internal)
URL for the paste

Date: Mon Nov 10 15:04:37 2003
Author: eenge

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.3 lisppaste2/web-server.lisp:1.4
--- lisppaste2/web-server.lisp:1.3	Mon Nov 10 11:28:43 2003
+++ lisppaste2/web-server.lisp	Mon Nov 10 15:04:36 2003
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.3 2003/11/10 16:28:43 eenge Exp $
+;;;; $Id: web-server.lisp,v 1.4 2003/11/10 20:04:36 eenge Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -77,15 +77,19 @@
       (t
        (progn
          (incf *paste-counter*)
-         (let ((url (araneida:urlstring (araneida:merge-url *display-paste-url*
-                                                            (prin1-to-string *paste-counter*))))
+         (let ((url (araneida:urlstring
+                     (araneida:merge-url *display-paste-url*
+                                         (prin1-to-string *paste-counter*))))
+               (external-url (araneida:urlstring
+                              (araneida:merge-url *paste-external-url*
+                                                  (prin1-to-string *paste-counter*)))))
                (paste (make-paste :number *paste-counter*
                                   :user username
                                   :title title
                                   :contents text
                                   :universal-time (get-universal-time))))
            (irc:privmsg *connection* *channel*
-                        (format nil "~A pasted ~A at ~A" username title url))
+                        (format nil "~A pasted ~A at ~A" username title external-url))
            (push paste  *pastes*)
              (araneida:html-stream
               (araneida:request-stream request)