Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv22817
Modified Files: web-server.lisp Log Message: small RSS fix I think
Date: Sun Mar 7 15:07:48 2004 Author: bmastenbrook
Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.38 lisppaste2/web-server.lisp:1.39 --- lisppaste2/web-server.lisp:1.38 Sun Mar 7 14:55:53 2004 +++ lisppaste2/web-server.lisp Sun Mar 7 15:07:48 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.38 2004/03/07 19:55:53 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.39 2004/03/07 20:07:48 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -164,7 +164,7 @@
(defun handle-rss-request (request &key full) (araneida:request-send-headers request :expires 0) - (format (araneida:request-stream request) "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>~%") + (format (araneida:request-stream request) "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>~C~C" #\Return #\Linefeed) (let ((discriminate-channel (if (not (string= (araneida::request-unhandled-part request) "")) (substitute ## #? (araneida::request-unhandled-part request) :test #'char=)))) @@ -172,12 +172,12 @@ (araneida:request-stream request) `((|rss| :|version| "2.0") ,(format nil - "<channel><title>Lisppaste pastes~A</title><link>~A</link><description>Pastes in this pastebot~A</description>~{~A~}</channel>~%" + "<channel><title>Lisppaste pastes~A</title><link>~A</link><description>Pastes in this pastebot~A</description>~{~A~}</channel>~C~C" (if discriminate-channel (format nil " for channel ~A" discriminate-channel) "") (araneida:urlstring *list-paste-url*) (if discriminate-channel (format nil " on channel ~A" discriminate-channel) "") (mapcar #'(lambda (paste) - (format nil "<item><link>~A</link><pubDate>~A</pubDate><title>"~A" by ~A</title><description>~A</description></item>~%" + (format nil "<item><link>~A</link><pubDate>~A</pubDate><title>"~A" by ~A</title><description>~A</description></item>~C~C" (concatenate 'string (araneida:urlstring (araneida:merge-url *display-paste-url* @@ -197,7 +197,8 @@ #'(lambda (a) (format-paste a nil (paste-number a) t)) (paste-annotations paste))))) - (format nil "Paste to channel ~A with ~A annotations." (encode-for-pre (paste-channel paste)) (length (paste-annotations paste)))))) + (format nil "Paste to channel ~A with ~A annotations." (encode-for-pre (paste-channel paste)) (length (paste-annotations paste)))) + #\Return #\Linefeed)) (if discriminate-channel (remove discriminate-channel *pastes* :test-not #'string-equal :key #'paste-channel)