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

[Brian Mastenbrook]

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)