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

[bknr-cvs] hans changed trunk/
by BKNR Commits 13 May '09

13 May '09

Revision: 4398 Author: hans URL: http://bknr.net/trac/changeset/4398 improved redirection of / U trunk/bknr/web/src/web/handlers.lisp U trunk/projects/lisp-ecoop/src/webserver.lisp Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2009-05-13 08:54:32 UTC (rev 4397) +++ trunk/bknr/web/src/web/handlers.lisp 2009-05-13 09:27:27 UTC (rev 4398) @@ -374,14 +374,16 @@ (script-name*))) (defclass redirect-handler (page-handler) - ((to :initarg :to :reader redirect-handler-to :documentation "url to redirect to"))) + ((to :initarg :to :reader redirect-handler-to :documentation "url to redirect to") + (args :initarg :args :reader redirect-handler-args :documentation "redirect arguments")) + (:default-initargs :args nil)) (defmethod initialize-instance :after ((handler redirect-handler) &key to) (unless (equal #\/ (aref to 0)) (warn "path ~S provided as target to redirect-handler does not begin with a slash" to))) (defmethod handle ((page-handler redirect-handler)) - (redirect (redirect-handler-to page-handler))) + (apply #'redirect (redirect-handler-to page-handler) (redirect-handler-args page-handler))) (defclass random-redirect-handler (redirect-handler) ()) Modified: trunk/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/webserver.lisp 2009-05-13 08:54:32 UTC (rev 4397) +++ trunk/projects/lisp-ecoop/src/webserver.lisp 2009-05-13 09:27:27 UTC (rev 4398) @@ -24,7 +24,7 @@ mailinglist mailinglist-registration participants schedule - ("/" redirect-handler :to "/home") + ("/" redirect-handler :to "/home" :args (:host "elw2009.bknr.net")) ("/static" directory-handler :destination ,(probe-file (merge-pathnames #p"static/" *website-directory*)))) :admin-navigation nil

1 0

[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/
by BKNR Commits 13 May '09

13 May '09

Revision: 4397 Author: hans URL: http://bknr.net/trac/changeset/4397 picture upload fixes, also repair redirection target U trunk/projects/lisp-ecoop/src/tags.lisp U trunk/projects/lisp-ecoop/src/webserver.lisp Modified: trunk/projects/lisp-ecoop/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/tags.lisp 2009-05-13 08:40:41 UTC (rev 4396) +++ trunk/projects/lisp-ecoop/src/tags.lisp 2009-05-13 08:54:32 UTC (rev 4397) @@ -70,6 +70,9 @@ (when (request-uploaded-file "picture") (let* ((upload (request-uploaded-file "picture")) (picture (import-image (pathname (upload-pathname upload)) + :name (format nil "pic-~A-~A" + (user-login participant) + (get-universal-time)) :type (pathname-type (upload-original-filename upload))))) (with-transaction ("updating participant picture") (when (participant-picture participant) Modified: trunk/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/webserver.lisp 2009-05-13 08:40:41 UTC (rev 4396) +++ trunk/projects/lisp-ecoop/src/webserver.lisp 2009-05-13 08:54:32 UTC (rev 4397) @@ -24,7 +24,7 @@ mailinglist mailinglist-registration participants schedule - ("/" redirect-handler :to "http://elw2009.bknr.net/home") + ("/" redirect-handler :to "/home") ("/static" directory-handler :destination ,(probe-file (merge-pathnames #p"static/" *website-directory*)))) :admin-navigation nil

1 0

[bknr-cvs] hans changed trunk/thirdparty/usocket/condition.lisp
by BKNR Commits 13 May '09

13 May '09

Revision: 4396 Author: hans URL: http://bknr.net/trac/changeset/4396 correct errnos U trunk/thirdparty/usocket/condition.lisp Modified: trunk/thirdparty/usocket/condition.lisp =================================================================== --- trunk/thirdparty/usocket/condition.lisp 2009-05-13 08:24:11 UTC (rev 4395) +++ trunk/thirdparty/usocket/condition.lisp 2009-05-13 08:40:41 UTC (rev 4396) @@ -183,7 +183,7 @@ ((49 99) . address-not-available-error) ((9) . bad-file-descriptor-error) ((61 111) . connection-refused-error) - ((64 131) . connection-reset-error) + ((54 104) . connection-reset-error) ((53 103) . connection-aborted-error) ((22) . invalid-argument-error) ((55 105) . no-buffers-error)

1 0

[bknr-cvs] hans changed trunk/projects/lisp-ecoop/
by BKNR Commits 13 May '09

13 May '09

Revision: 4395 Author: hans URL: http://bknr.net/trac/changeset/4395 some fixes in participant adding U trunk/projects/lisp-ecoop/src/participant.lisp U trunk/projects/lisp-ecoop/src/tags.lisp _U trunk/projects/lisp-ecoop/website/ Modified: trunk/projects/lisp-ecoop/src/participant.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/participant.lisp 2009-05-13 07:52:47 UTC (rev 4394) +++ trunk/projects/lisp-ecoop/src/participant.lisp 2009-05-13 08:24:11 UTC (rev 4395) @@ -86,7 +86,7 @@ :index-keys all-interest-keywords :attribute t) (text :update :documentation "Self descriptionary text" :element t)) - (:default-initargs :picture nil :submission nil :interests nil :text "")) + (:default-initargs :picture nil :submissions nil :interests nil :text "")) (defun curry (fun &rest args) #'(lambda (&rest more) @@ -160,14 +160,14 @@ (user-login participant) password))) -(defun make-participant (login &key full-name email text submission) +(defun make-participant (login &key full-name email text submissions) (let* ((initial-password (generate-random-password)) (participant (make-user login :full-name full-name :email email :password initial-password :class 'participant))) (with-transaction (:initialize-participant) (when text (setf (participant-text participant) text)) - (when submission + (dolist (submission submissions) (submission-add-submitter submission participant))) (send-welcome-mail participant initial-password) participant)) Modified: trunk/projects/lisp-ecoop/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/tags.lisp 2009-05-13 07:52:47 UTC (rev 4394) +++ trunk/projects/lisp-ecoop/src/tags.lisp 2009-05-13 08:24:11 UTC (rev 4395) @@ -156,7 +156,7 @@ (error "user ~A already exists" login)) (when submission (setf submission (find-store-object (parse-integer submission)))) - (make-participant login :full-name full-name :email email :text text :submission submission) + (make-participant login :full-name full-name :email email :text text :submissions (list submission)) (html (:princ-safe #?"The participant $(login) has been created in the database and a welcome mail has been sent."))))) (emit-tag-children)) Property changes on: trunk/projects/lisp-ecoop/website ___________________________________________________________________ Name: svn:ignore + html

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/create-submission.xml
by BKNR Commits 13 May '09

13 May '09

Revision: 4394 Author: dverna URL: http://bknr.net/trac/changeset/4394 Changed Breakout Group to Tutorial U trunk/projects/lisp-ecoop/website/templates/create-submission.xml Modified: trunk/projects/lisp-ecoop/website/templates/create-submission.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/create-submission.xml 2009-05-12 16:01:32 UTC (rev 4393) +++ trunk/projects/lisp-ecoop/website/templates/create-submission.xml 2009-05-13 07:52:47 UTC (rev 4394) @@ -18,9 +18,12 @@ <form method="post" name="create_submission_form" id="create_submission_form" enctype="multipart/form-data" action="make-submission" onsubmit="return check_create_submission_form(this);"> <p> - <input type="radio" name="type" value="paper" checked="checked"/> Paper - <input type="radio" name="type" value="breakout-group-proposal"/> Breakout group proposal - <input type="radio" name="type" value="keynote"/> Keynote + <input type="radio" name="type" value="paper" checked="checked"/> + Paper + <input type="radio" name="type" value="breakout-group-proposal"/> + Interactive Demo / Tutorial / Coding Session + <input type="radio" name="type" value="keynote"/> + Keynote </p> <label for="title">Title</label><br/> <input type="text" size="40" name="title" id="title_input"/><br/>

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/contact.xml
by BKNR Commits 12 May '09

12 May '09

Revision: 4393 Author: dverna URL: http://bknr.net/trac/changeset/4393 Improve contact page even more U trunk/projects/lisp-ecoop/website/templates/contact.xml Modified: trunk/projects/lisp-ecoop/website/templates/contact.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/contact.xml 2009-05-12 15:58:06 UTC (rev 4392) +++ trunk/projects/lisp-ecoop/website/templates/contact.xml 2009-05-12 16:01:32 UTC (rev 4393) @@ -4,13 +4,11 @@ xmlns:lisp-ecoop="http://elw.bknr.net/"> <h1>Organization</h1> - <p> - Workshop: - <a href="mailto:didier@lrde.epita.fr">Didier Verna</a> - </p> - <p>Website: <a href="mailto:hans@bknr.net">Hans Hübner</a></p> +<ul> +<li>Workshop: <a href="mailto:didier@lrde.epita.fr">Didier Verna</a></li> +<li>Website: <a href="mailto:hans@bknr.net">Hans Hübner</a></li> +</ul> - <h1>Programme Committee</h1> <ul> <li>

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/
by BKNR Commits 12 May '09

12 May '09

Revision: 4392 Author: dverna URL: http://bknr.net/trac/changeset/4392 Improve contact page U trunk/projects/lisp-ecoop/website/templates/contact.xml U trunk/projects/lisp-ecoop/website/templates/menu.xml Modified: trunk/projects/lisp-ecoop/website/templates/contact.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/contact.xml 2009-05-08 10:28:02 UTC (rev 4391) +++ trunk/projects/lisp-ecoop/website/templates/contact.xml 2009-05-12 15:58:06 UTC (rev 4392) @@ -3,10 +3,15 @@ <lisp-ecoop:page name="contact" xmlns:lisp-ecoop="http://elw.bknr.net/"> -<h1>Organizing Committee</h1> +<h1>Organization</h1> + <p> + Workshop: + <a href="mailto:didier@lrde.epita.fr">Didier Verna</a> + </p> + <p>Website: <a href="mailto:hans@bknr.net">Hans Hübner</a></p> -<p>The organizing comitee consists of the following people:</p> +<h1>Programme Committee</h1> <ul> <li> <a href="http://www.lrde.epita.fr/~didier">Didier Verna</a>, @@ -28,11 +33,4 @@ <li>Hans Hübner, Software Developer, Berlin, Germany</li> </ul> -<h1>Contact</h1> - <p> - Workshop related: - <a href="mailto:didier@lrde.epita.fr">Didier Verna</a> - </p> - <p>Website related: <a href="mailto:hans@bknr.net">Hans Hübner</a></p> - </lisp-ecoop:page> Modified: trunk/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/menu.xml 2009-05-08 10:28:02 UTC (rev 4391) +++ trunk/projects/lisp-ecoop/website/templates/menu.xml 2009-05-12 15:58:06 UTC (rev 4392) @@ -6,5 +6,5 @@ <item url="people" title="People" /> <item url="programme" title="Programme" /> <item url="submissions" title="Submissions" /> - <item url="contact" title="Organization / Contact" /> + <item url="contact" title="Contact" /> </menu>

1 0

[bknr-cvs] hans changed deployed/quickhoney/
by BKNR Commits 08 May '09

08 May '09

Revision: 4391 Author: hans URL: http://bknr.net/trac/changeset/4391 copy from trunk A deployed/quickhoney/ Copied: deployed/quickhoney (from rev 4390, trunk)

1 0

[bknr-cvs] hans changed deployed/quickhoney/
by BKNR Commits 08 May '09

08 May '09

Revision: 4390 Author: hans URL: http://bknr.net/trac/changeset/4390 move to trunk D deployed/quickhoney/

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/init.lisp
by BKNR Commits 08 May '09

08 May '09

Revision: 4389 Author: hans URL: http://bknr.net/trac/changeset/4389 Another Hunchentoot 1.0 fix U deployed/quickhoney/projects/quickhoney/src/init.lisp Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:13:51 UTC (rev 4388) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:22:08 UTC (rev 4389) @@ -39,6 +39,7 @@ (setf *acceptor* (make-instance 'hunchentoot:acceptor :port *webserver-port* :taskmaster (make-instance 'hunchentoot:single-threaded-taskmaster) - :persistent-connections-p nil)) + :persistent-connections-p nil + :request-dispatcher 'bknr.web:bknr-dispatch)) (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*)))

1 0