[bknr-cvs] r1977 - in branches/xml-class-rework: modules/text modules/url projects/bos projects/bos/m2 projects/bos/payment-website/templates/de projects/bos/worldpay-test thirdparty/portableaserve/aserve
bknr at bknr.net
bknr at bknr.net
Sun Aug 13 09:52:37 UTC 2006
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))
More information about the Bknr-cvs
mailing list