March 2006 - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] r1932 - branches/xml-class-rework/projects/bos/payment-website/infosystem/en
by bknr＠bknr.net 16 Mar '06

16 Mar '06

Author: hhubner Date: 2006-03-16 13:21:20 -0500 (Thu, 16 Mar 2006) New Revision: 1932 Modified: branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm Log: Fix broken logout link Modified: branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2006-03-16 18:06:09 UTC (rev 1931) +++ branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2006-03-16 18:21:20 UTC (rev 1932) @@ -120,7 +120,7 @@ </tr> </table> <div id="SponsorInfoInhalt" style="position:absolute; width:138px; z-index:20; left: 0px; top: 50px; visibility: inherit;"> - <form id="form1" name="form1" action="/infosystem/en/satellitenkarte.html" method="post"> + <form id="form1" name="form1" action="/infosystem" method="post"> <input name="logout" type="hidden" value="1"/> <table width="138" border="0" cellspacing="0" cellpadding="0"> <tr>

1 0

[bknr-cvs] r1931 - branches/xml-class-rework/projects/bos/worldpay-test
by bknr＠bknr.net 16 Mar '06

16 Mar '06

Author: hhubner Date: 2006-03-16 13:06:09 -0500 (Thu, 16 Mar 2006) New Revision: 1931 Modified: branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp Log: pass language parameter down to cert generator. Modified: branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-03-13 11:02:35 UTC (rev 1930) +++ branches/xml-class-rework/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-03-16 18:06:09 UTC (rev 1931) @@ -182,6 +182,11 @@ (:td (:princ-safe (format-date-time (contract-date contract))))) (:tr (:td "Country code (2 chars)") (:td (text-field "country" :size 2 :value "DE"))) + (:tr (:td "Language") + (:td ((:select :name "language") + (loop + for (language-symbol language-name) in (website-languages) + do (html ((:option :value language-symbol) (:princ-safe language-name))))))) (:tr (:td "Name for certificate") (:td (text-field "name" :size 50))) (:tr (:td "Email-Address") @@ -191,7 +196,7 @@ (:tr (:td (submit-button "process" "process" :formcheck "javascript:return check_complete_sale()")))))))))) (defmethod handle-object-form ((handler complete-transfer-handler) (action (eql :process)) contract req) - (with-query-params (req email name postaladdress country) + (with-query-params (req email name postaladdress country language) (with-bos-cms-page (req :title "Square meter sale completion") (if (contract-paidp contract) (html (:h2 "This sale has already been completed")) @@ -199,7 +204,7 @@ (html (:h2 "Completing square meter sale")) (sponsor-set-country (contract-sponsor contract) country) (contract-set-paidp contract t) - (contract-issue-cert contract name :address postaladdress) + (contract-issue-cert contract name :address postaladdress :language language) (when email (html (:p "Sending instruction email to " (:princ-safe email))) (mail-instructions-to-sponsor contract email)))) Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-13 11:02:35 UTC (rev 1930) +++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-16 18:06:09 UTC (rev 1931) @@ -36,9 +36,9 @@ (mapc #'emit-template-node children)) (define-bknr-tag generate-cert () - (with-template-vars (gift email name address) + (with-template-vars (gift email name address language) (let ((contract (find-store-object (parse-integer (get-template-var :contract-id))))) - (contract-issue-cert contract name :address address) + (contract-issue-cert contract name :address address :language language) (bknr.web::redirect-request :target (if gift "index" (format nil "profil_setup?name=~A&email=~A&sponsor-id=~A" (uriencode-string name) (uriencode-string email)

1 0

[bknr-cvs] r1930 - branches/xml-class-rework/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 13 Mar '06

13 Mar '06

Author: pcostanza Date: 2006-03-13 06:02:35 -0500 (Mon, 13 Mar 2006) New Revision: 1930 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml Log: Minor improvements. Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-03-13 09:44:13 UTC (rev 1929) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-03-13 11:02:35 UTC (rev 1930) @@ -8,9 +8,9 @@ <h3>March 13, 2006</h3> <ul> -<li>Nick Levine will be giving a keynote presentation at the European Lisp Workshop. He has been a professional Lisp consultant for over two decades and is the organizer of the upcoming International Lisp Conference 2007 in Cambridge / UK. We are grateful to <a href="http://www.ravenbrook.com/">Ravenbrook Limited</a> for sponsoring the keynote presentation.</li> +<li>Nick Levine will be giving a keynote presentation at the European Lisp Workshop. He has been a professional Lisp consultant for over two decades and is the organizer of the upcoming International Lisp Conference 2007 in Cambridge, UK. We are grateful to <a href="http://www.ravenbrook.com/">Ravenbrook Limited</a> for sponsoring the keynote presentation.</li> <br/> -<li>The <a href="http://www.alu.org/">Association of Lisp Users</a> has kindly sponsored a $500 prize fund for exceptional papers, selected from the submissions to this year's European Lisp Workshop. Both the ALU and the ELW organizers are looking forward to your submissions.</li> +<li>The <a href="http://www.alu.org/">Association of Lisp Users</a> has kindly sponsored a $500 prize fund for exceptional papers submitted to this year's European Lisp Workshop. Both the ALU and the workshop organizers are looking forward to your submissions.</li> </ul> <h3>February 23, 2006</h3>

1 0

[bknr-cvs] r1929 - branches/xml-class-rework/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 13 Mar '06

13 Mar '06

Author: pcostanza Date: 2006-03-13 04:44:13 -0500 (Mon, 13 Mar 2006) New Revision: 1929 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml Log: Corrected the news link in the homepage. Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-13 09:42:47 UTC (rev 1928) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-13 09:44:13 UTC (rev 1929) @@ -19,7 +19,7 @@ <li>Nick Levine is going to give a keynote presentation.</li> <li>The ALU has kindly sponsored a $500 prize fund for exceptional papers.</li> </ul> -<p>Please see the <a href="news.xml">News section</a> for more details.</p> +<p>Please see the <a href="news">News section</a> for more details.</p> <h2>Important Dates</h2> <ul>

1 0

[bknr-cvs] r1928 - branches/xml-class-rework/projects/lisp-ecoop/website/templates
by bknr＠bknr.net 13 Mar '06

13 Mar '06

Author: pcostanza Date: 2006-03-13 04:42:47 -0500 (Mon, 13 Mar 2006) New Revision: 1928 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml Log: News: Nick Levine's keynote, best paper award Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-12 21:20:06 UTC (rev 1927) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-13 09:42:47 UTC (rev 1928) @@ -12,8 +12,15 @@ <img src="static/alu-logo.jpg" alt="ALU" height="63" width="95" align="middle" target="_new" border="0" /> </a> </p> -<p>Supported by ALU</p> +<p>Supported by ALU and Ravenbrook</p> +<h2>Important News</h2> +<ul> +<li>Nick Levine is going to give a keynote presentation.</li> +<li>The ALU has kindly sponsored a $500 prize fund for exceptional papers.</li> +</ul> +<p>Please see the <a href="news.xml">News section</a> for more details.</p> + <h2>Important Dates</h2> <ul> <li>Submission deadline: April 1, 2006</li> Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-03-12 21:20:06 UTC (rev 1927) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-03-13 09:42:47 UTC (rev 1928) @@ -5,10 +5,12 @@ <h1>News</h1> -<h3>March 3, 2006</h3> +<h3>March 13, 2006</h3> <ul> -<li>The workshop is now officially supported by the <a href="http://www.alu.org" target="_new">ALU</a>. Thanks a lot to the ALU!</li> +<li>Nick Levine will be giving a keynote presentation at the European Lisp Workshop. He has been a professional Lisp consultant for over two decades and is the organizer of the upcoming International Lisp Conference 2007 in Cambridge / UK. We are grateful to <a href="http://www.ravenbrook.com/">Ravenbrook Limited</a> for sponsoring the keynote presentation.</li> +<br/> +<li>The <a href="http://www.alu.org/">Association of Lisp Users</a> has kindly sponsored a $500 prize fund for exceptional papers, selected from the submissions to this year's European Lisp Workshop. Both the ALU and the ELW organizers are looking forward to your submissions.</li> </ul> <h3>February 23, 2006</h3>

1 0

[bknr-cvs] r1927 - trunk/bknr/src/images
by bknr＠bknr.net 12 Mar '06

12 Mar '06

Author: troussanov Date: 2006-03-12 16:20:06 -0500 (Sun, 12 Mar 2006) New Revision: 1927 Modified: trunk/bknr/src/images/imageproc-handler.lisp Log: More SBCL port changes Modified: trunk/bknr/src/images/imageproc-handler.lisp =================================================================== --- trunk/bknr/src/images/imageproc-handler.lisp 2006-03-12 21:15:02 UTC (rev 1926) +++ trunk/bknr/src/images/imageproc-handler.lisp 2006-03-12 21:20:06 UTC (rev 1927) @@ -170,16 +170,10 @@ (let ((ims (header-slot-value req :if-modified-since)) (changed-time (blob-timestamp image))) (setf (net.aserve::last-modified *ent*) changed-time) - (setf (reply-header-slot-value req :last-modified) (#-allegro - universal-time-to-date - #+allegro - net.aserve::universal-time-to-date - changed-time)) + (setf (reply-header-slot-value req :last-modified) + (net.aserve::universal-time-to-date changed-time)) (if (and ims - (<= changed-time (#-allegro - date-to-universal-time - #+allegro - net.aserve::date-to-universal-time ims))) + (<= changed-time (net.aserve::date-to-universal-time ims))) (progn (setf (request-reply-code req) *response-not-modified*) (format t "; image ~A not changed~%" image)

1 0

[bknr-cvs] r1926 - trunk/projects/hello-web/src
by bknr＠bknr.net 12 Mar '06

12 Mar '06

Author: troussanov Date: 2006-03-12 16:15:02 -0500 (Sun, 12 Mar 2006) New Revision: 1926 Modified: trunk/projects/hello-web/src/load.lisp trunk/projects/hello-web/src/packages.lisp trunk/projects/hello-web/src/webserver.lisp Log: Make hello-web wirking again with CMUL Modified: trunk/projects/hello-web/src/load.lisp =================================================================== --- trunk/projects/hello-web/src/load.lisp 2006-03-12 21:13:40 UTC (rev 1925) +++ trunk/projects/hello-web/src/load.lisp 2006-03-12 21:15:02 UTC (rev 1926) @@ -6,4 +6,5 @@ (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t) (hello-web::startup) +#-sbcl (mp::startup-idle-and-top-level-loops) Modified: trunk/projects/hello-web/src/packages.lisp =================================================================== --- trunk/projects/hello-web/src/packages.lisp 2006-03-12 21:13:40 UTC (rev 1925) +++ trunk/projects/hello-web/src/packages.lisp 2006-03-12 21:15:02 UTC (rev 1926) @@ -11,7 +11,10 @@ (defpackage :hello-web.tags (:use :cl :cl-user -; :ext + #-sbcl + :ext + #+sbcl + :sb-ext :bknr.web :xhtml-generator :hello-web.config) @@ -32,7 +35,10 @@ (defpackage :hello-web (:use :cl :cl-user -; :ext + #-sbcl + :ext + #+sbcl + :sb-ext :cl-interpol :cl-ppcre :bknr.utils Modified: trunk/projects/hello-web/src/webserver.lisp =================================================================== --- trunk/projects/hello-web/src/webserver.lisp 2006-03-12 21:13:40 UTC (rev 1925) +++ trunk/projects/hello-web/src/webserver.lisp 2006-03-12 21:15:02 UTC (rev 1926) @@ -24,7 +24,7 @@ (:bknr . :bknr.web) (:menu . :bknr.site-menu))) ("/static" directory-handler - :destination ,(#-sbcl unix-namestring #+sbcl sb-ext:native-namestring + :destination ,(#-sbcl unix-namestring #+sbcl native-namestring (merge-pathnames #p"static/" *website-directory*)) )) :modules '(images user)

1 0

[bknr-cvs] r1925 - trunk/thirdparty/net.post-office
by bknr＠bknr.net 12 Mar '06

12 Mar '06

Author: troussanov Date: 2006-03-12 16:13:40 -0500 (Sun, 12 Mar 2006) New Revision: 1925 Modified: trunk/thirdparty/net.post-office/packages.lisp Log: Use CL package instead of LISP Modified: trunk/thirdparty/net.post-office/packages.lisp =================================================================== --- trunk/thirdparty/net.post-office/packages.lisp 2006-03-12 20:36:25 UTC (rev 1924) +++ trunk/thirdparty/net.post-office/packages.lisp 2006-03-12 21:13:40 UTC (rev 1925) @@ -1,6 +1,6 @@ (defpackage :net.post-office - (:use #:lisp #+allegro #:excl #-allegro #:acl-compat.excl) + (:use #:cl #+allegro #:excl #-allegro #:acl-compat.excl) (:export ;; smtp #:send-letter

1 0

[bknr-cvs] r1924 - branches/xml-class-rework/projects/bos
by bknr＠bknr.net 12 Mar '06

12 Mar '06

Author: hhubner Date: 2006-03-12 15:36:25 -0500 (Sun, 12 Mar 2006) New Revision: 1924 Modified: branches/xml-class-rework/projects/bos/screenrc-sample Log: update path Modified: branches/xml-class-rework/projects/bos/screenrc-sample =================================================================== --- branches/xml-class-rework/projects/bos/screenrc-sample 2006-03-12 20:22:19 UTC (rev 1923) +++ branches/xml-class-rework/projects/bos/screenrc-sample 2006-03-12 20:36:25 UTC (rev 1924) @@ -10,7 +10,7 @@ msgminwait 0 msgwait 0 -chdir /home/bknr/bos +chdir bknr-svn/projects/bos screen -t webserver lisp -core bos.core #logfile screen.log

1 0

[bknr-cvs] r1923 - in branches/xml-class-rework/projects/bos: m2 payment-website/templates/en worldpay-test
by bknr＠bknr.net 12 Mar '06

12 Mar '06

Author: hhubner Date: 2006-03-12 15:22:19 -0500 (Sun, 12 Mar 2006) New Revision: 1923 Modified: branches/xml-class-rework/projects/bos/m2/m2.lisp branches/xml-class-rework/projects/bos/payment-website/templates/en/bestellung.xml branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp Log: All non-german donors get a download version of their donor certificate, no hardcopy will be mailed. Modified: branches/xml-class-rework/projects/bos/m2/m2.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/m2.lisp 2006-03-12 20:07:24 UTC (rev 1922) +++ branches/xml-class-rework/projects/bos/m2/m2.lisp 2006-03-12 20:22:19 UTC (rev 1923) @@ -269,7 +269,7 @@ (warn "Old tx-make-contract transaction used, contract dates may be wrong") (tx-do-make-contract sponsor m2-count :date date :paidp paidp :expires expires)) -(deftransaction do-make-contract (sponsor m2-count &key date paidp expires) +(deftransaction do-make-contract (sponsor m2-count &key date paidp expires download-only) (let ((m2s (find-free-m2s m2-count))) (if m2s (make-object 'contract @@ -277,14 +277,19 @@ :date date :paidp paidp :m2s m2s - :expires expires) + :expires expires + :download-only download-only) (warn "can't create contract, ~A square meters for ~A could not be allocated" m2-count sponsor)))) -(defun make-contract (sponsor m2-count &key (date (get-universal-time)) paidp (expires (+ (get-universal-time) *manual-contract-expiry-time*))) +(defun make-contract (sponsor m2-count + &key (date (get-universal-time)) + paidp + (expires (+ (get-universal-time) *manual-contract-expiry-time*)) + download-only) (unless (and (integerp m2-count) (plusp m2-count)) (error "number of square meters must be a positive integer")) - (let ((contract (do-make-contract sponsor m2-count :date date :paidp paidp :expires expires))) + (let ((contract (do-make-contract sponsor m2-count :date date :paidp paidp :expires expires :download-only download-only))) (unless contract (send-system-mail :subject "Contact creation failed - Allocation areas exhaused" :text (format nil "A contract for ~A square meters could not be created, presumably because no Modified: branches/xml-class-rework/projects/bos/payment-website/templates/en/bestellung.xml =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/templates/en/bestellung.xml 2006-03-12 20:07:24 UTC (rev 1922) +++ branches/xml-class-rework/projects/bos/payment-website/templates/en/bestellung.xml 2006-03-12 20:22:19 UTC (rev 1923) @@ -63,6 +63,7 @@ <div id="content_main"> <div id="textbox_content_big" > <form name="bestellformular" method="post" action="buy-sqm"> + <input type="hidden" name="download-only" value="1" /> <table id="formTable" width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"> Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-12 20:07:24 UTC (rev 1922) +++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-12 20:22:19 UTC (rev 1923) @@ -55,7 +55,7 @@ (html ((:base "href" href))))) (define-bknr-tag buy-sqm (&key children) - (with-template-vars (numsqm numsqm1 action gift donationcert-yearly) + (with-template-vars (numsqm numsqm1 action gift donationcert-yearly download-only) (let* ((numsqm (parse-integer (or numsqm numsqm1))) ;; Wer ueber dieses Formular bestellt, ist ein neuer Sponsor, ;; also ein neues Sponsorenobjekt anlegen. Eine Profil-ID @@ -69,10 +69,12 @@ (scan #?r"rweisung" action))) (sponsor (make-sponsor)) (price (* numsqm 3)) - (contract (make-contract sponsor numsqm :expires (+ (if manual-transfer - bos.m2::*manual-contract-expiry-time* - bos.m2::*online-contract-expiry-time*) - (get-universal-time)))) + (contract (make-contract sponsor numsqm + :download-only download-only + :expires (+ (if manual-transfer + bos.m2::*manual-contract-expiry-time* + bos.m2::*online-contract-expiry-time*) + (get-universal-time)))) (language (session-variable :language))) (setf (get-template-var :worldpay-url) (if manual-transfer

1 0