[Work around :request-content-limit-length backend initarg not working
clinton@unknownlamer.org**20080115012722] {
hunk ./start.lisp 27
+(defvar *golf-request-length-limit* (* 10 1024 1024)
+  "Maximum request length in bytes")
+
hunk ./start.lisp 70
-  (setq *golf-server*
-	(ucw:create-server
-	 :backend '(:iolib :port 50004
-		    :host "0.0.0.0"
-		    :request-content-length-limit (* 10 1024 1024))
-	 ;; '(:mod-lisp :port 3001
-	 ;; 				      :host "127.0.0.1")
-	 :applications (list *golf-app*)
-	 :log-level (if *golf-dev-mode* ucw::+debug+ ucw::+warn+)
-	 :log-root-directory (format nil "~A~A" *golf-data-root* "log/"))))
+  (prog1
+      (setq *golf-server*
+	    (ucw:create-server
+	     :backend `(:iolib :port 50004
+			       :host "0.0.0.0")
+	     :applications (list *golf-app*)
+	     :log-level (if *golf-dev-mode* ucw::+debug+ ucw::+warn+)
+	     :log-root-directory (format nil "~A~A" *golf-data-root* "log/")))
+    (setf (ucw::request-content-length-limit-of
+	   (ucw::server.backend golf-user::*golf-server*))
+	  *golf-request-length-limit*)))
}