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

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

28 Mar '06

Author: pcostanza Date: 2006-03-28 08:22:02 -0500 (Tue, 28 Mar 2006) New Revision: 1942 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml Log: Extended the submission deadline. 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-21 06:42:43 UTC (rev 1941) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-28 13:22:02 UTC (rev 1942) @@ -16,6 +16,7 @@ <h2>Important News</h2> <ul> +<li>We have extended the submission deadline to April 15.</li> <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> <li>Information about the conference's fee structure is now available. Participating in the workshop can be as cheap as 150 Euro for students and 250 Euro for regular participants, including coffee breaks, lunch and receptions for both workshop days.</li> @@ -24,8 +25,8 @@ <h2>Important Dates</h2> <ul> -<li>Submission deadline: April 1, 2006</li> -<li>Notification of acceptance: May 1, 2006</li> +<li>Submission deadline: <b>April 15, 2006</b></li> +<li>Notification of acceptance: <b>May 12, 2006</b></li> <li>ECOOP early registration deadline: May 23, 2006</li> </ul> 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-21 06:42:43 UTC (rev 1941) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-03-28 13:22:02 UTC (rev 1942) @@ -5,6 +5,12 @@ <h1>News</h1> +<h3>March 28, 2006</h3> + +<ul> +<li>We have extended the submission deadline to April 15. Notifications of acceptance will now be sent out by May 12.</li> +</ul> + <h3>March 18, 2006</h3> <ul>

1 0

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

21 Mar '06

Author: hhubner Date: 2006-03-21 01:42:43 -0500 (Tue, 21 Mar 2006) New Revision: 1941 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml Log: fix speling glitch 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-20 20:33:22 UTC (rev 1940) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-21 06:42:43 UTC (rev 1941) @@ -18,7 +18,7 @@ <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> -<li>Information about the conference's fee structure is now available. Participating in the workshop can be as cheap as 150 Euro for students and 250 Euro for regular participants, including coffe breaks, lunch and receptions for both workshop days.</li> +<li>Information about the conference's fee structure is now available. Participating in the workshop can be as cheap as 150 Euro for students and 250 Euro for regular participants, including coffee breaks, lunch and receptions for both workshop days.</li> </ul> <p>Please see the <a href="news">News section</a> for more details.</p>

1 0

[bknr-cvs] r1940 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 20 Mar '06

20 Mar '06

Author: hhubner Date: 2006-03-20 15:33:22 -0500 (Mon, 20 Mar 2006) New Revision: 1940 Modified: branches/xml-class-rework/bknr/src/web/handlers.lisp Log: Strip leading slashes in website-make-path Modified: branches/xml-class-rework/bknr/src/web/handlers.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/handlers.lisp 2006-03-18 13:58:44 UTC (rev 1939) +++ branches/xml-class-rework/bknr/src/web/handlers.lisp 2006-03-20 20:33:22 UTC (rev 1940) @@ -85,9 +85,14 @@ (dolist (handler (website-handlers website)) (format t "~A => ~A~%" (uri-path (page-handler-url handler)) handler))) -(defmethod website-make-path ((website website) relative-path) - (format nil "~A~A" (website-base-href website) relative-path)) +(defun relative (path) + (if (eq #\/ (aref path 0)) + (relative (subseq path 1)) + path)) +(defmethod website-make-path ((website website) path) + (format nil "~A~A" (website-base-href website) (relative path))) + (defgeneric publish-handler (website handler)) (defgeneric publish-site (website))

1 0

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

18 Mar '06

Author: pcostanza Date: 2006-03-18 08:58:44 -0500 (Sat, 18 Mar 2006) New Revision: 1939 Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml Log: Added information about the conference's registration fees. 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-17 19:20:46 UTC (rev 1938) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/home.xml 2006-03-18 13:58:44 UTC (rev 1939) @@ -18,6 +18,7 @@ <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> +<li>Information about the conference's fee structure is now available. Participating in the workshop can be as cheap as 150 Euro for students and 250 Euro for regular participants, including coffe breaks, lunch and receptions for both workshop days.</li> </ul> <p>Please see the <a href="news">News section</a> for more details.</p> 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-17 19:20:46 UTC (rev 1938) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/news.xml 2006-03-18 13:58:44 UTC (rev 1939) @@ -5,6 +5,12 @@ <h1>News</h1> +<h3>March 18, 2006</h3> + +<ul> +<li>Information about <a href="http://www.emn.fr/x-info/ecoop2006/fees.php">registration fees</a> for ECOOP 2006 is now available. If you want to attend only the European Lisp Workshop (two days), this will cost 150 Euro for students and 250 Euro for regular participants. If you want to attend the whole conference, including the workshop, this will cost 300 Euro for students and 500 Euro for regular participants. During the workshop days, coffee breaks and lunches are included in those fees, as are receptions on both evenings that typically include food and drinks. Note that these fees are early registration fees valid only before May 23, 2006. See the <a href="http://www.emn.fr/x-info/ecoop2006/fees.php">conference's page about registration fees</a> for more information.</li> +</ul> + <h3>March 13, 2006</h3> <ul>

1 0

[bknr-cvs] r1938 - branches/xml-class-rework/projects/bos/m2
by bknr＠bknr.net 17 Mar '06

17 Mar '06

Author: hhubner Date: 2006-03-17 14:20:46 -0500 (Fri, 17 Mar 2006) New Revision: 1938 Modified: branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp Log: Properly close pipes generated by the cert generator. Modified: branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp 2006-03-17 19:20:10 UTC (rev 1937) +++ branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp 2006-03-17 19:20:46 UTC (rev 1938) @@ -1,13 +1,15 @@ (in-package :bos.m2.cert-generator) (defun run-tool (program &optional program-args &rest args) - (let ((process (apply #'run-program program program-args :output :stream args))) + (let* ((process (apply #'run-program program program-args :output :stream args)) + (error-message (unless (zerop (process-exit-code process)) + (with-output-to-string (*standard-output*) + (with-open-stream (output-stream (process-output process)) + (princ (read-line output-stream))))))) + (process-close process) (unless (zerop (process-exit-code process)) - (let ((error-message (with-output-to-string (*standard-output*) - (with-open-stream (output-stream (process-output process)) - (princ (read-line output-stream)))))) - (error "Error executing ~A - Exit code ~D~%Error message: ~A" - (format nil "\"~A~{ ~A~}\"" program program-args) (process-exit-code process) error-message))))) + (error "Error executing ~A - Exit code ~D~%Error message: ~A" + (format nil "\"~A~{ ~A~}\"" program program-args) (process-exit-code process) error-message)))) (defun fill-form (fdf-pathname pdf-pathname output-pathname) (handler-case

1 0

[bknr-cvs] r1937 - branches/xml-class-rework/projects/mah-jongg/website
by bknr＠bknr.net 17 Mar '06

17 Mar '06

Author: hhubner Date: 2006-03-17 14:20:10 -0500 (Fri, 17 Mar 2006) New Revision: 1937 Modified: branches/xml-class-rework/projects/mah-jongg/website/game.xsl Log: Select existing input when navigating to a 'doubles' field - as requested by Julia. Modified: branches/xml-class-rework/projects/mah-jongg/website/game.xsl =================================================================== --- branches/xml-class-rework/projects/mah-jongg/website/game.xsl 2006-03-17 18:56:13 UTC (rev 1936) +++ branches/xml-class-rework/projects/mah-jongg/website/game.xsl 2006-03-17 19:20:10 UTC (rev 1937) @@ -140,7 +140,11 @@ <input autocomplete="off" id="{@wind}-score" tabindex="1" class="score-input" onchange="return check_new_game_inputs();" value=""/> </td> <td> - <input autocomplete="off" id="{@wind}-doubles" tabindex="1" class="score-input" onchange="return check_new_game_inputs();" value="0"/> + <input autocomplete="off" id="{@wind}-doubles" tabindex="1" class="score-input" + onchange="return check_new_game_inputs();" + onfocus="this.select()" + onclick="this.select()" + value="0"/> </td> <td> <input autocomplete="off" id="{@wind}" name="{@wind}" class="score-input" readonly="readonly" value=""/>

1 0

[bknr-cvs] r1936 - branches/xml-class-rework/projects/bos/m2
by bknr＠bknr.net 17 Mar '06

17 Mar '06

Author: hhubner Date: 2006-03-17 13:56:13 -0500 (Fri, 17 Mar 2006) New Revision: 1936 Modified: branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp Log: Generate proper messages for stray fdf files Modified: branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp 2006-03-17 18:41:27 UTC (rev 1935) +++ branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp 2006-03-17 18:56:13 UTC (rev 1936) @@ -13,14 +13,16 @@ (handler-case (progn (ignore-errors (run-tool "recode" (list "utf-8..latin-1" (unix-namestring fdf-pathname)))) - (if (unix-namestring pdf-pathname) - (run-tool "pdftk" (list (unix-namestring pdf-pathname) - "fill_form" (unix-namestring fdf-pathname) - "output" (namestring output-pathname) - "flatten")) - (warn "Warning, stray FDF file ~A deleted, no such contract exists" fdf-pathname)) - (delete-file fdf-pathname) - (format t "; generated ~A~%" output-pathname)) + (cond + ((unix-namestring pdf-pathname) + (run-tool "pdftk" (list (unix-namestring pdf-pathname) + "fill_form" (unix-namestring fdf-pathname) + "output" (namestring output-pathname) + "flatten")) + (format t "; generated ~A~%" output-pathname)) + (t + (warn "Warning, stray FDF file ~A deleted, no such contract exists" fdf-pathname))) + (delete-file fdf-pathname)) (error (e) (warn "While filling form ~A with ~A:~%~A" pdf-pathname fdf-pathname e))))

1 0

[bknr-cvs] r1935 - branches/xml-class-rework/projects/bos/m2
by bknr＠bknr.net 17 Mar '06

17 Mar '06

Author: hhubner Date: 2006-03-17 13:41:27 -0500 (Fri, 17 Mar 2006) New Revision: 1935 Modified: branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp Log: Make certificate generation more robus Modified: branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp 2006-03-17 15:59:16 UTC (rev 1934) +++ branches/xml-class-rework/projects/bos/m2/cert-daemon.lisp 2006-03-17 18:41:27 UTC (rev 1935) @@ -12,11 +12,13 @@ (defun fill-form (fdf-pathname pdf-pathname output-pathname) (handler-case (progn - (run-tool "recode" (list "utf-8..latin-1" (unix-namestring fdf-pathname))) - (run-tool "pdftk" (list (unix-namestring pdf-pathname) - "fill_form" (unix-namestring fdf-pathname) - "output" (namestring output-pathname) - "flatten")) + (ignore-errors (run-tool "recode" (list "utf-8..latin-1" (unix-namestring fdf-pathname)))) + (if (unix-namestring pdf-pathname) + (run-tool "pdftk" (list (unix-namestring pdf-pathname) + "fill_form" (unix-namestring fdf-pathname) + "output" (namestring output-pathname) + "flatten")) + (warn "Warning, stray FDF file ~A deleted, no such contract exists" fdf-pathname)) (delete-file fdf-pathname) (format t "; generated ~A~%" output-pathname)) (error (e) @@ -35,11 +37,15 @@ template-pathname) output-pathname))))) +(defun generate-certs () + (fill-forms *cert-mail-directory* *cert-mail-template*) + (fill-forms *cert-download-directory* *cert-download-template*) + (fill-forms *receipt-mail-directory* *receipt-mail-template*) + (fill-forms *receipt-download-directory* *receipt-download-template*)) + (defun cert-daemon () (ensure-directories-exist *cert-mail-directory*) (ensure-directories-exist *cert-download-directory*) - (loop (fill-forms *cert-mail-directory* *cert-mail-template*) - (fill-forms *cert-download-directory* *cert-download-template*) - (fill-forms *receipt-mail-directory* *receipt-mail-template*) - (fill-forms *receipt-download-directory* *receipt-download-template*) - (sleep *cert-daemon-poll-seconds*))) \ No newline at end of file + (loop + (generate-certs) + (sleep *cert-daemon-poll-seconds*))) \ No newline at end of file

1 0

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

17 Mar '06

Author: hhubner Date: 2006-03-17 10:59:16 -0500 (Fri, 17 Mar 2006) New Revision: 1934 Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp Log: Repair language marks for certificates. Repair logout button in satellite application. Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-16 18:31:23 UTC (rev 1933) +++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-17 15:59:16 UTC (rev 1934) @@ -36,10 +36,9 @@ (mapc #'emit-template-node children)) (define-bknr-tag generate-cert () - (with-template-vars (gift email name address lang) - (format t "generate-cert: param 'lang': ~A template-var :language: ~A template-var :lang: ~A~%" lang (get-template-var :language) (get-template-var :lang)) + (with-template-vars (gift email name address) (let ((contract (find-store-object (parse-integer (get-template-var :contract-id))))) - (contract-issue-cert contract name :address address :language lang) + (contract-issue-cert contract name :address address :language (session-variable :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) Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-03-16 18:31:23 UTC (rev 1933) +++ branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-03-17 15:59:16 UTC (rev 1934) @@ -108,8 +108,8 @@ (with-query-params (req logout) (when logout (bknr.web::drop-session (bknr-request-session req)))) - (redirect "/infosystem/satellitenkarte.htm" - req)) + (let ((language (session-variable :language))) + (redirect #?"/infosystem/$(language)/satellitenkarte.htm" req))) (defclass certificate-handler (object-handler) ()

1 0

[bknr-cvs] r1933 - 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:31:23 -0500 (Thu, 16 Mar 2006) New Revision: 1933 Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp Log: Use "lang" parameter as passed in by worldpay Modified: branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-16 18:21:20 UTC (rev 1932) +++ branches/xml-class-rework/projects/bos/worldpay-test/tags.lisp 2006-03-16 18:31:23 UTC (rev 1933) @@ -36,9 +36,10 @@ (mapc #'emit-template-node children)) (define-bknr-tag generate-cert () - (with-template-vars (gift email name address language) + (with-template-vars (gift email name address lang) + (format t "generate-cert: param 'lang': ~A template-var :language: ~A template-var :lang: ~A~%" lang (get-template-var :language) (get-template-var :lang)) (let ((contract (find-store-object (parse-integer (get-template-var :contract-id))))) - (contract-issue-cert contract name :address address :language language) + (contract-issue-cert contract name :address address :language lang) (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