April 2007 - tbnl-devel@common-lisp.net - mailman3.common-lisp.net

[hunchentoot-devel] host/port question
by Cyrus Harmon 18 Jul '07

18 Jul '07

I'm not sure what "the right thing" here is, but it struck me as odd that redirect didn't include a port argument, so I made the following changes to redirect: --- hunchentoot-0.9.0/misc.lisp 2007-03-30 14:01:27.000000000 -0700 +++ ../hunchentoot-0.9.0/misc.lisp 2007-04-27 22:45:00.000000000 -0700 @@ -229,6 +229,7 @@ (add-session-id (not (or host-provided-p (starts-with- scheme-p target) (cookie-in *session-cookie-name*)))) + port permanently) "Redirects the browser to TARGET which should be a string. If TARGET is a full URL starting with a scheme, HOST and PROTOCOL @@ -240,11 +241,11 @@ otherwise a 302." (let ((url (if (starts-with-scheme-p target) target - (format nil "~A://~A~A" + (format nil "~A://~A~@[:~A~]~A" (ecase protocol ((:http) "http") ((:https) "https")) - host target)))) + host port target)))) (when add-session-id (setq url (add-cookie-value-to-url url :replace-ampersands-p nil))) (setf (header-out :location) but then I realized that what we call "host" here really is host:port. Should these two notions be more "decoupled" or should I just think host:port when I see host? Thanks, Cyrus

2 4

[hunchentoot-devel] Boolean Form Fields
by Volkan YAZICI 01 May '07

01 May '07

Hi, How do you use boolean type variables with DEFINE-EASY-HANDLER? (Or more generally how do you gather the results of boolean form fields?) Because, DEFINE-EASY-HANDLER binds related variable to nil even it doesn't exist. Therefore, it becomes impossible to learn if the parameter is supplied and its value is nil, or the parameter doesn't supplied within the request. Regards.

5 13

[hunchentoot-devel] export remove-session?
by Vamsee Kanakala 29 Apr '07

29 Apr '07

Hi, I think exporting remove-session is a good idea - currently there isn't a reliable way to invalidate a current session, except for setting each session variable to nil (through session-value - or am I missing something obvious?). And setting *session* to nil doesn't seem to do this. Regards, Vamsee.

2 3

[hunchentoot-devel] Accessor Function for Form Fields
by Volkan YAZICI 28 Apr '07

28 Apr '07

Hi, I really like the way DEFINE-EASY-HANDLER works with supplied form field parameters. But the problem with it is, IMHO, that you cannot use DEFINE-EASY-HANDLER everywhere in the code when you want to reach to a form variable. Therefore I come up with such a solution: (let ((default-parameter-type ''string) (default-request-type :both)) (defmacro with-form-fields ((&rest fields) &body body) `(let ,(loop for field in fields collect (hunchentoot::make-defun-parameter field default-parameter-type default-request-type)) ,@body))) I couldn't be sure if using an unexported function is the right way to go here, therefore I'm here for your help. Is there any other function provided by hunchentoot to have the same effect as WITH-FORM-FIELDS? If there isn't any, maybe others too would be happy to see this function coming default with hunchentoot. Regards.

4 4

[hunchentoot-devel] export make-lock and with-lock?
by Cyrus Harmon 26 Apr '07

26 Apr '07

Should hunchentoot export make-lock and with-lock? Thanks, Cyrus

2 2

[hunchentoot-devel] URL-DECODE Problem with MultiByte (> 255) Characters
by Volkan YAZICI 25 Apr '07

25 Apr '07

Hi, While I was trying to issue some regression tests over my URI path handling routine, I met with such a problem: ; Any character that's bigger than 255 reproduces the error. KARPUZ> (code-char 305) #\LATIN_SMALL_LETTER_DOTLESS_I KARPUZ> (wiki-path-to :filename (wiki-path-from :uri "/image/foo/yok artık daha neler///.asd/&baz")) ; Evaluation aborted KARPUZ> (hunchentoot:url-decode (make-string 1 :initial-element (code-char 305)) (flex:make-external-format :utf8 :eol-style :lf)) The value 256 is not of type (UNSIGNED-BYTE 8). [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {B2637B1}>) Backtrace: 0: (SB-KERNEL:HAIRY-DATA-VECTOR-SET #() 0 256) Locals: SB-DEBUG::ARG-0 = 3 SB-DEBUG::ARG-1 = #() SB-DEBUG::ARG-2 = 0 SB-DEBUG::ARG-3 = 256 1: (VECTOR-PUSH 256 #()) Locals: SB-DEBUG::ARG-0 = 2 SB-DEBUG::ARG-1 = 256 SB-DEBUG::ARG-2 = #() 2: (URL-DECODE "Ā" #<FLEXI-STREAMS::EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :LF) {AE0D729}>) Locals: HUNCHENTOOT::EXTERNAL-FORMAT = #<FLEXI-STREAMS::EXTERNAL-FORMAT (:UTF-8 :EOL-STYLE :LF) {AE0D729}> STRING = "Ā" Would somebody help me to fix the error please? Regards.

2 1

[hunchentoot-devel] Webdav client?
by David King 20 Apr '07

20 Apr '07

How useful would cl-webdav be as a webdav *client* as opposed to a server? -- David

2 1

[hunchentoot-devel] wrong version of sbcl
by Jens Teich 19 Apr '07

19 Apr '07

I'm trying to avoid buying LispWorks for Macintosh but want to run hunchentoot on Intel Mac OS X 10.4.9. The result is: (ERROR "This application will only run on SBCL with thread and Unicode support or on LispWorks.") I have the latest SBCL-Version (1.0.4) and can't find anything on sbcl.org about versions with or without these features. -jens

3 6

[hunchentoot-devel] Announcement: CL-WEBDAV
by Edi Weitz 19 Apr '07

19 Apr '07

This is a WebDAV server based on Hunchentoot. More info here: http://weitz.de/cl-webdav/ Cheers, Edi.

5 6

[hunchentoot-devel] New release 0.9.0
by Edi Weitz 19 Apr '07

19 Apr '07

ChangeLog: Version 0.9.0 2007-04-19 Added socket timeouts for AllegroCL Catch IO timeout conditions for AllegroCL, SBCL and CMUCL (suggested by Red Daly and others) Added per-server dispatch tables (suggested by Robert Synnott and Andrei Stebakov) Download: http://weitz.de/files/hunchentoot.tar.gz Cheers, Edi.

1 0