[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/

[BKNR Commits]

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)))