Author: hhubner Date: 2006-08-13 05:52:35 -0400 (Sun, 13 Aug 2006) New Revision: 1977 Added: branches/xml-class-rework/projects/bos/payment-website/templates/de/news-extern.xml branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_news.xml branches/xml-class-rework/projects/bos/worldpay-test/news-rss.lisp Modified: branches/xml-class-rework/modules/text/blog-handlers.lisp branches/xml-class-rework/modules/url/url-handlers.lisp branches/xml-class-rework/projects/bos/build.sh branches/xml-class-rework/projects/bos/m2/m2.lisp branches/xml-class-rework/projects/bos/m2/news.lisp branches/xml-class-rework/projects/bos/m2/packages.lisp branches/xml-class-rework/projects/bos/payment-website/templates/de/quittung.xml branches/xml-class-rework/projects/bos/payment-website/templates/de/sponsor_canceled.xml branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel.xml branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_geschenk.xml branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_info.xml branches/xml-class-rework/projects/bos/worldpay-test/packages.lisp branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.asd branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp branches/xml-class-rework/thirdparty/portableaserve/aserve/main.cl Log: Add RSS feed for news items Modified: branches/xml-class-rework/modules/text/blog-handlers.lisp =================================================================== --- branches/xml-class-rework/modules/text/blog-handlers.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/modules/text/blog-handlers.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -50,31 +50,6 @@ (blog-page blog grouped-articles :start-date (object-date-list-handler-date handler blog req))))) -(defclass rss-blog-handler (object-rss-handler blog-handler) - ()) - -(defmethod create-object-rss-feed ((handler rss-blog-handler) blog req) - (if blog - (let* ((site-url (website-url (page-handler-site handler))) - (url (puri:merge-uris (parse-uri (blog-name blog)) - (page-handler-url handler))) - (blog-items (mapcar #'(lambda (article) - (article-to-rss-item article :url site-url)) - (subseq (sort (blog-articles blog) - #'> :key #'article-time) - 0 20)))) - (make-instance 'rss-feed - :channel - (make-instance 'rss-channel - :about (render-uri url nil) - :title (blog-name blog) - :link (render-uri url nil) - :items (mapcar #'rss-item-link blog-items)) - :items blog-items)) - (make-instance 'rss-feed :channel (make-instance 'rss-channel - :about "no such blog" - :title "no such blog")))) - (defclass search-blog-handler (edit-object-handler blog-handler) ()) Modified: branches/xml-class-rework/modules/url/url-handlers.lisp =================================================================== --- branches/xml-class-rework/modules/url/url-handlers.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/modules/url/url-handlers.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -157,42 +157,3 @@ (format nil "/url-intersection-rss/~A" (parse-url req))) -;;; rss url feeds -(defclass rss-url-handler (object-rss-handler url-page-handler) - ()) - -(defmethod create-object-rss-feed ((handler rss-url-handler) - object req) - (let* ((site-url (website-url (page-handler-site handler))) - (url-items (mapcar #'url-submission-to-rss-item - (subseq (sort (object-list-handler-get-objects - handler object req) - #'> :key #'url-submission-date) - 0 30)))) - (if url-items - (make-instance 'rss-feed - :channel (make-instance - 'rss-channel - :about (render-uri site-url nil) - :title (object-list-handler-title - handler object req) - :link (render-uri site-url nil) - :items (mapcar #'rss-item-link url-items)) - :items url-items) - (make-instance 'rss-feed - :channel (make-instance 'rss-channel - :about "no such keyword" - :title "no such keyword"))))) - -(defclass rss-url-keyword-handler (rss-url-handler url-keyword-handler) - ()) - -(defclass rss-url-union-handler (rss-url-handler url-union-handler) - ()) - -(defclass rss-url-intersection-handler (rss-url-handler url-intersection-handler) - ()) - -(defclass rss-url-submitter-handler (rss-url-handler url-submitter-handler) - ()) - Modified: branches/xml-class-rework/projects/bos/build.sh =================================================================== --- branches/xml-class-rework/projects/bos/build.sh 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/build.sh 2006-08-13 09:52:35 UTC (rev 1977) @@ -1,20 +1,5 @@ #!/bin/sh -e -case "$1" in - --clean) - echo "deleting fasls... (use --fast to suppress)" - find .. -name \*.x86f -print0 | xargs -0 rm - ;; - --fast) - echo "not deleting fasls" - ;; - *) - echo "error: expected argument --clean or --fast" 1>&2 - exit 1 - ;; -esac - -pwd set -x (cd ../thirdparty/cl-gd && make) lisp -core cmucl.core -noinit -load load.lisp -load build.lisp Modified: branches/xml-class-rework/projects/bos/m2/m2.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/m2.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/m2/m2.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -40,7 +40,8 @@ (define-persistent-class m2 () ((x :read) (y :read) - (contract :update :relaxed-object-reference t)) + (contract :update :relaxed-object-reference t) + (my-slot :read)) (:default-initargs :contract nil) (:class-indices (m2-index :index-type tiled-index :slots (x y) Modified: branches/xml-class-rework/projects/bos/m2/news.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/news.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/m2/news.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -4,7 +4,7 @@ (in-package :bos.m2) -(define-persistent-class news-item () +(define-persistent-class news-item (rss-item) ((time :read :initform (get-universal-time)) (title :none :initform (make-string-hash-table)) (text :none :initform (make-string-hash-table)))) @@ -27,9 +27,13 @@ (defmethod news-item-text ((news-item news-item) language) (slot-string news-item 'text language)) +(defun news-item-published (item language) + (and (slot-string item 'title language nil) + (slot-string item 'text language nil))) + (defun all-news-items (&optional language) (if language - (remove-if (complement #'(lambda (news-item) (and (slot-string news-item 'title language nil) - (slot-string news-item 'text language nil)))) - (store-objects-with-class 'news-item)) - (sort (copy-list (store-objects-with-class 'news-item)) #'> :key #'news-item-time))) \ No newline at end of file + (remove-if-not (lambda (item) (news-item-published item language)) + (store-objects-with-class 'news-item)) + (sort (copy-list (store-objects-with-class 'news-item)) #'> :key #'news-item-time))) + Modified: branches/xml-class-rework/projects/bos/m2/packages.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/packages.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/m2/packages.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -34,8 +34,10 @@ :bknr.web :bknr.images :bknr.statistics + :bknr.rss :bos.m2.config :net.post-office + :cxml :cl-gd) (:shadowing-import-from :cl-interpol #:quote-meta-chars) (:export #:m2-store Added: branches/xml-class-rework/projects/bos/payment-website/templates/de/news-extern.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/news-extern.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/news-extern.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -0,0 +1,29 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> +<bknr:toplevel + template="toplevel_main" + title="REGENWALD für SAMBOJA LESTARI" + xmlns="http://www.w3.org/1999/xhtml" + xmlns:bknr="http://bknr.net" + xmlns:bos="http://headcraft.de/bos" + > + <!-- container content_main --> + <div id="content_main"> + <div id="textbox_content"> + <bos:news-item /> + </div> + </div> + <div id="content_right"> + <div id="subscribe"> + <form style="margin:0px" name="form" method="post"> + <input value="news" name="list" type="hidden"/> + <strong>Infos direkt nach Hause? </strong><br /><br /> + Ihre E-Mail-Adresse: + <br /><br /> + <input type="text" class="form_big" name="email" size="20" maxlength="40" value="" /> + <input value="ja" class="form_big" name="action" type="submit" onclick="return send_info_request();" /> + </form> + </div> + </div> +</bknr:toplevel> Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/quittung.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/quittung.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/quittung.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -23,7 +23,7 @@ <div id="menue_banner"> <a href="index"> - <img src="../images/header_ganzneu.gif" border="0" /> + <img src="/images/header_ganzneu.gif" border="0" /> </a> </div> Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/sponsor_canceled.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/sponsor_canceled.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/sponsor_canceled.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -23,7 +23,7 @@ <div id="menue_banner"> <a href="index"> - <img src="../images/header_ganzneu.gif" border="0" /> + <img src="/images/header_ganzneu.gif" border="0" /> </a> </div> Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -21,7 +21,7 @@ <div id="menue_banner"> <a href="index"> - <img src="../images/header_ganzneu.gif" border="0" /> + <img src="/images/header_ganzneu.gif" border="0" /> </a> </div> Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -9,6 +9,8 @@ <head> <link rel="stylesheet" href="/static/toplevel_style.css" /> <link rel="stylesheet" href="/static/content_style.css" /> + <link rel="alternate" type="application/rss+xml" title="RSS Feed" + href="/rss/news" /> <script src="/static/bos.js" type="text/javascript"><!-- x --> </script> <!--<meta http-equiv="content-type" content="text/html; charset=UTF-8" />--> @@ -19,8 +21,8 @@ <div id="header"> <div id="menue_banner"> - <a href="index"> - <img src="../images/header_ganzneu.gif" border="0" /> + <a href="/de/index"> + <img src="/images/header_ganzneu.gif" border="0" /> </a> </div> @@ -30,21 +32,21 @@ <div id="menue_header_main"> <div>l</div> <div> - <a href="idea" class="menue" + <a href="/de/idea" class="menue" title="Was genau passiert."> Projekt </a> </div> <div>l</div> <div> - <a href="bestellung" class="menue" + <a href="/de/bestellung" class="menue" title="Machen Sie mit!"> Spenden </a> </div> <div>l</div> <div> - <a href="bos" class="menue" + <a href="/de/bos" class="menue" title="BOS Foundation"> BOS </a> @@ -58,7 +60,7 @@ </div> <div>l</div> <div> - <a href="contact" class="menue" + <a href="/de/contact" class="menue" title="Kontakten Sie uns."> Kontakt </a> @@ -99,7 +101,7 @@ </td> <td colspan="2" > <img src="/images/pfeil_link_on.gif" width="10" height="9" border="0" alt="" /> - <a href="bestellung" class="content_black"> + <a href="/de/bestellung" class="content_black"> Spenden Sie! </a> </td> @@ -109,7 +111,7 @@ <tr><td colspan="3" height="5"></td></tr> <tr> <td colspan="4" valign="bottom"> - <a href="bestellung" class="content_black"> + <a href="/de/bestellung" class="content_black"> <img src="/images/spenden.jpg" width="150" height="71" border="0" alt="" /> </a> </td> @@ -178,11 +180,11 @@ </div> <!-- footer --> <div id="menue_footer"> - <a href="javascript:window_extra('privacy')" class="footer"> + <a href="javascript:window_extra('/de/privacy')" class="footer"> Datenschutzinfo </a> l - <a href="javascript:window_extra('impressum')" class="footer"> + <a href="javascript:window_extra('/de/impressum')" class="footer"> Impressum </a> </div> Added: branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_news.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_news.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_news.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -0,0 +1,196 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> +<html + xmlns="http://www.w3.org/1999/xhtml" + xmlns:bknr="http://bknr.net" + xmlns:bos="http://headcraft.de/bos" + > + <head> + <link rel="stylesheet" href="/static/toplevel_style.css" /> + <link rel="stylesheet" href="/static/content_style.css" /> + <script src="/static/bos.js" type="text/javascript"><!-- x --> + </script> + <!--<meta http-equiv="content-type" content="text/html; charset=UTF-8" />--> + <title>$(title)</title> + </head> + <body> + <!-- header and menu_top --> + <div id="header"> + + <div id="menue_banner"> + <a href="../index"> + <img src="/images/header_ganzneu.gif" border="0" /> + </a> + </div> + + <div id="menue_header_left"> + BOS Deutschland e.V. + </div> + <div id="menue_header_main"> + <div>l</div> + <div> + <a href="idea" class="menue" + title="Was genau passiert."> + Projekt + </a> + </div> + <div>l</div> + <div> + <a href="bestellung" class="menue" + title="Machen Sie mit!"> + Spenden + </a> + </div> + <div>l</div> + <div> + <a href="bos" class="menue" + title="BOS Foundation"> + BOS + </a> + </div> + <div>l</div> + <div> + <a href="javascript:window_infosys()" class="menue" + title="Satellitenkarte"> + Satellitenkarte + </a> + </div> + <div>l</div> + <div> + <a href="contact" class="menue" + title="Kontakten Sie uns."> + Kontakt + </a> + </div> + <div>l</div> + </div> + <div id="menue_header_right" align="right"> + <select name="language" style="width:125px;" + onchange="jumpMenu('parent', this, 0)"> + <bos:language-options /> + </select> + </div> + </div> + <!-- /header and menu_top --> + + <!-- content 3teilig--> + <div id="content"> + <div id="content_left"> + <!-- content left--> + <div id="textbox_left_top"> + <table border="0" cellpadding="0" cellspacing="0"> + <tr> + <td colspan="4" height="10"> + </td> + </tr> + <tr> + <td width="6"> + </td> + <td colspan="2"> + <strong>Schaffen Sie Regenwald!</strong> + <br /><br /> + </td> + <td> + </td> + </tr> + <tr> + <td> + </td> + <td colspan="2" > + <img src="/images/pfeil_link_on.gif" width="10" height="9" border="0" alt="" /> + <a href="bestellung" class="content_black"> + Spenden Sie! + </a> + </td> + <td> + </td> + </tr> + <tr><td colspan="3" height="5"></td></tr> + <tr> + <td colspan="4" valign="bottom"> + <a href="bestellung" class="content_black"> + <img src="/images/spenden.jpg" width="150" height="71" border="0" alt="" /> + </a> + </td> + </tr> + <tr><td colspan="3" height="15"></td></tr> + </table> + </div> + <div id="textbox_left_down"> + <table border="0" cellpadding="0" cellspacing="0"> + <tr><td colspan="4" height="6"></td></tr> + <tr> + <td width="6"> </td> + <td colspan="2"> + <strong>Satellitenkarte</strong> + <br /></td> + <td></td> + </tr> + <tr><td colspan="3" height="5"></td></tr> + <tr> + <td></td> + <td colspan="2"> + <img src="/images/pfeil_link_on.gif" width="10" height="9" border="0" alt="" /> + <a href="javascript:window_infosys()" + class="content_black"> + Es dreht sich um m². + </a> + </td> + <td></td> + </tr> + <tr> + <td colspan="3" height="88"> + <a href="javascript:window_infosys()"> + <img src="/images/trans.gif" width="149" height="108" border="0" alt="" /> + </a> + </td> + </tr> + </table> + </div> + <div id="textbox_left_login"> + <form> + <table border="0" cellpadding="0" cellspacing="0"> + <tr><td colspan="4" height="6"></td></tr> + <tr> + <td width="6"> </td> + <td colspan="2"><strong>Sponsor-ID</strong></td> + <td width="6"></td> + </tr> + <tr> + <td width="6"> </td> + <td colspan="2"><input id="sponsorid-input" type="text" name="__sponsorid"/></td> + <td width="6"></td> + </tr> + <tr> + <td width="6"> </td> + <td colspan="2"><strong>Kennwort</strong></td> + <td width="6"></td> + </tr> + <tr> + <td width="6"> </td> + <td colspan="2"><input id="password-input" class="password-input" type="password" name="__password"/> + <img onclick="window_infosys()" class="login-button" src="/infosystem/bilder/submit.gif"/></td> + <td width="6"></td> + </tr> + </table> + </form> + </div> + <!-- footer --> + <div id="menue_footer"> + <a href="javascript:window_extra('privacy')" class="footer"> + Datenschutzinfo + </a> + l + <a href="javascript:window_extra('impressum')" class="footer"> + Impressum + </a> + </div> + <!-- /footer --> + </div> + <!-- /content left--> + <bknr:tag-body /> + <!-- /content 3teilig--> + </div> + </body> +</html> Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_geschenk.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_geschenk.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_geschenk.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -21,7 +21,7 @@ <!-- header and menu_top --> <div id="header"> <div id="menue_banner"> - <img src="../images/header_ganzneu.gif" border="0" /> + <img src="/images/header_ganzneu.gif" border="0" /> </div> <div id="menue_header_left"> Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_info.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_info.xml 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/payment-website/templates/de/versand_info.xml 2006-08-13 09:52:35 UTC (rev 1977) @@ -22,7 +22,7 @@ <div id="header"> <div id="menue_banner"> - <img src="../images/header_ganzneu.gif" border="0" /> + <img src="/images/header_ganzneu.gif" border="0" /> </div> <div id="menue_header_left"> Added: branches/xml-class-rework/projects/bos/worldpay-test/news-rss.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/news-rss.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/worldpay-test/news-rss.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -0,0 +1,23 @@ +(in-package :bos.m2) + +(defmethod rss-item-channel ((item news-item)) + "news") + +(defmethod rss-item-published ((item news-item)) + (format t "Language: ~A~%" (worldpay-test::current-website-language)) + t) + +(defmethod rss-item-title ((item news-item)) + (news-item-title item (worldpay-test::current-website-language))) + +(defmethod rss-item-description ((item news-item)) + (news-item-text item (worldpay-test::current-website-language))) + +(defmethod rss-item-link ((item news-item)) + (format nil "http://createrainforest.org/~A/news-extern/~A" (worldpay-test::current-website-language) (store-object-id item))) + +(defmethod rss-item-guid ((item news-item)) + (format nil "http://createrainforest.org/~A/news-extern/~A" (worldpay-test::current-website-language) (store-object-id item))) + +(defmethod rss-item-pub-date ((item news-item)) + (news-item-time item)) Modified: branches/xml-class-rework/projects/bos/worldpay-test/packages.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/packages.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/worldpay-test/packages.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -21,6 +21,7 @@ :bknr.user :bknr.images :bknr.cron + :bknr.rss :bos.m2 :bos.m2.config) (:shadowing-import-from :cl-interpol #:quote-meta-chars) Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.asd =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.asd 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.asd 2006-08-13 09:52:35 UTC (rev 1977) @@ -34,6 +34,7 @@ (:file "languages-handler" :depends-on ("web-utils")) (:file "tags" :depends-on ("web-utils")) (:file "news-tags" :depends-on ("web-utils")) + (:file "news-rss" :depends-on ("web-utils")) (:file "worldpay-test" :depends-on ("news-tags" "tags" "map-handlers" "map-browser-handler" "poi-handlers" "boi-handlers" "contract-handlers" "sponsor-handlers" "news-handlers" "allocation-area-handlers")) Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-08-13 09:52:35 UTC (rev 1977) @@ -207,6 +207,7 @@ ("/create-contract" create-contract-handler) ("/pay-contract" pay-contract-handler) ("/cancel-contract" cancel-contract-handler) + ("/rss" rss-handler) ("/" redirect-handler :to "/index") ("/index" index-handler) Modified: branches/xml-class-rework/thirdparty/portableaserve/aserve/main.cl =================================================================== --- branches/xml-class-rework/thirdparty/portableaserve/aserve/main.cl 2006-08-13 09:48:06 UTC (rev 1976) +++ branches/xml-class-rework/thirdparty/portableaserve/aserve/main.cl 2006-08-13 09:52:35 UTC (rev 1977) @@ -23,7 +23,7 @@ ;; Suite 330, Boston, MA 02111-1307 USA ;; ;; -;; $Id: main.cl,v 1.2 2004/10/19 17:04:50 hans Exp $ +;; $Id$ ;; Description: ;; aserve's main loop @@ -2258,6 +2258,8 @@ ;; 2. name - name of the item ;; 3. filename - if type is :file then this is the filename ;; 4. content-type - if type is :file this this is the content-type + + ;; WHAT IS THIS IF IT IS NOT SHITTY CODE? I MUST BE DREAMING! (if* (and (consp header) (consp (car header))) then (let ((cd (assoc :content-disposition header :test #'eq)) (ct (assoc :content-type header :test #'eq))