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)