Revision: 4307 Author: hans URL: http://bknr.net/trac/changeset/4307
ELW 2009 changes, port over to Hunchentoot 1.0.0 U trunk/projects/lisp-ecoop/src/handlers.lisp U trunk/projects/lisp-ecoop/src/init.lisp U trunk/projects/lisp-ecoop/src/participant.lisp U trunk/projects/lisp-ecoop/src/webserver.lisp
Modified: trunk/projects/lisp-ecoop/src/handlers.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/handlers.lisp 2009-02-20 13:28:45 UTC (rev 4306) +++ trunk/projects/lisp-ecoop/src/handlers.lisp 2009-02-23 11:25:25 UTC (rev 4307) @@ -39,7 +39,7 @@ (defmethod handle-object ((handler pdf-handler) (document document)) (let ((pdf (file-contents (blob-pathname document)))) (with-http-response (:content-type "application/pdf") - (setf (content-length) (length pdf)) + (setf (content-length*) (length pdf)) (let ((stream (hunchentoot:send-headers))) (write-sequence pdf stream) (finish-output stream)))))
Modified: trunk/projects/lisp-ecoop/src/init.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/init.lisp 2009-02-20 13:28:45 UTC (rev 4306) +++ trunk/projects/lisp-ecoop/src/init.lisp 2009-02-23 11:25:25 UTC (rev 4307) @@ -17,4 +17,4 @@
(publish-lisp-ecoop)
- (start-webserver)) + (start-webserver :start-frontend nil))
Modified: trunk/projects/lisp-ecoop/src/participant.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/participant.lisp 2009-02-20 13:28:45 UTC (rev 4306) +++ trunk/projects/lisp-ecoop/src/participant.lisp 2009-02-23 11:25:25 UTC (rev 4307) @@ -128,7 +128,7 @@ :text (format nil "Your participant account on the LISP ECOOP Workshop website has been created. Please visit your personal profile page on -http://elw2008.bknr.net/edit-profile/ to change your password +http://elw2009.bknr.net/edit-profile/ to change your password and update your profile information.
Your login name is: ~A @@ -148,7 +148,7 @@ :text (format nil "Your password on the LISP ECOOP Workshop website has been reset. Please visit your personal profile page on -http://elw2008.bknr.net/edit-profile/~A to change your password +http://elw2009.bknr.net/edit-profile/~A to change your password and update your profile information.
Your login name is: ~A
Modified: trunk/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/webserver.lisp 2009-02-20 13:28:45 UTC (rev 4306) +++ trunk/projects/lisp-ecoop/src/webserver.lisp 2009-02-23 11:25:25 UTC (rev 4307) @@ -5,10 +5,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-#+(or) -(defun make-daily-statistics () - (bknr.stats::make-yesterdays-stats :delete-events t :remove-referer-hosts '("lisp-ecoop.bknr.net"))) - (defun publish-lisp-ecoop (&key (base-href *base-path*))
(unless (bknr.cron:cron-job-with-name "daily webserver statistics") @@ -24,7 +20,6 @@ ("http://bknr.net/menu" . :bknr.site-menu)) :handler-definitions `(user images - stats ("/handler-statistics" bknr.web::handler-statistics-handler) mailinglist mailinglist-registration @@ -38,11 +33,20 @@ :style-sheet-urls (list (format nil "~Astatic/styles.css" base-href)) :javascript-urls (list (format nil "~Astatic/javascript.js" base-href))))
-(defun start-webserver (&key (host "elw2008.bknr.net") (port 80) (backend-port 9001)) +(defvar *server*) + +(defun start-webserver (&key (host "elw2009.bknr.net") + (port 80) + (backend-port 9001) + (start-frontend t)) (when (and (boundp '*server*) *server*) - (stop-server *server*)) + (stop *server*)) (publish-lisp-ecoop) (setf *hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf) hunchentoot:*rewrite-for-session-urls* nil) - (setq *server* (start-server :port backend-port)) - (start-frontend :host host :backend-port backend-port :port port)) + (setq *server* (make-instance 'hunchentoot:acceptor + :port backend-port + :request-dispatcher 'bknr.web:bknr-dispatch)) + (start *server*) + (when start-frontend + (start-frontend :host host :backend-port backend-port :port port)))