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

[hunchentoot-devel] FIXED: New release 0.8.6 (Was: hunchentoot-mp and OpenMCL problems)
by Joel Boehland 18 Apr '07

18 Apr '07

Hi Edi, Hunchentoot version 0.8.6 fixed the problem. I can load up the test application without problems on OpenMCL/linux. That was very fast. Thanks! --Joel On 4/18/07, Edi Weitz <edi(a)agharta.de> wrote: > On Wed, 18 Apr 2007 11:10:48 -0700, "Joel Boehland" <jboehland+tbnl(a)gmail.com> wrote: > > > The following is a transcript captured using gnu screen, where I try > > your suggestions and have captured a back trace. > > Could you please try the new release and check if this fixes it? > > Thanks for the report, > Edi. > _______________________________________________ > tbnl-devel site list > tbnl-devel(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/tbnl-devel >

1 0

[hunchentoot-devel] hunchentoot-mp and OpenMCL problems
by Joel Boehland 18 Apr '07

18 Apr '07

Hi, I just ran into a problem starting up-to-date darcs hunchentoot on OpenMCL 1.1 (releases 070408 and 070214, linux-x86-64). I believe this problem is related to the recently added hunchentoot-mp package, as this error doesn't occur in an earlier install of darcs hunchentoot from March, right before the addition of that package. While trying to load this file: (hello-hunchentoot.lisp) (require :asdf) (asdf:oos 'asdf:load-op :hunchentoot-test) (hunchentoot:start-server :port 4242) I got this error: > Error: The function MAKE-LOCK is predefined in OpenMCL. > While executing: CCL::REDEFINE-KERNEL-FUNCTION, in process listener(1). > Type :GO to continue, :POP to abort, :R for a list of available restarts. > If continued: Replace the definition of MAKE-LOCK. > Type :? for other options. 1 > If anyone needs any more info, or wants me to test anything to help out, let me know. Thanks, Joel

2 3

[hunchentoot-devel] Handling Lisp errors.
by Victor Kryukov 17 Apr '07

17 Apr '07

Hello list, I want to accomplish the following: every time a lisp error happens, the whole backtrace and some additional information is sent to my mail account. The question is, what is the best way to do it with Hunchentoot? (I do know how to send email messages from lisp with the help of mel-base). The second question is: how do you use CLSQL thread-safely with Hunchentoot / SBCL? SBCL don't provide thread properties, so my first solution[1] was to create a hash-table and to assign each thread a connection, to check from every thread whether it already has a connection, and then to clean that hash-table periodically, closing connections for dead threads. That worked pretty well, but I was afraid of exhausting limit of database threads somehow, so I switched to the second solution. The second solution[2] is to open new connection every time I need to save something to database or read something from it, and to close it right after that. That of course solves connection limit problem (unless I have very many users simultaneously, which is not expected in the near term), however it's much slower. Anybody can share his/her strategy? Best regards, Victor. [1] http://paste.lisp.org/display/39787 (defparameter *database-mutex* (sb-thread:make-mutex :name "database lock")) (defparameter *threads-connection* (make-hash-table)) (defun setup-connection () (connect '("localhost" "lj" "victor" "victor") :database-type :postgresql :if-exists :new)) (defun db () (handler-case (sb-thread:with-mutex (*database-mutex*) (or (gethash sb-thread:*current-thread* *threads-connection*) (setf (gethash sb-thread:*current-thread* *threads-connection*) (setup-connection)))) (error () (progn (close-old-connections) (db))))) (defun close-old-connections () (maphash #'(lambda (thread connection) (unless (sb-thread:thread-alive-p thread) (clsql:disconnect :database connection) (remhash thread *threads-connection*))) *threads-connection*)) (let ((old-select (symbol-function 'clsql:select))) (defun select (&rest args) (let ((*default-database* (db))) (apply old-select args)))) (let ((old-insert-records (symbol-function 'insert-records))) (defun insert-records (&rest args) (apply old-insert-records :database (db) args))) [2] http://paste.lisp.org/display/39787#1 (defun db () (connect *connection-spec* :database-type :postgresql :if-exists :new)) (let ((old-select (symbol-function 'clsql:select))) (defun select (&rest args) (let ((clsql:*default-database* (db))) (prog1 (apply old-select args) (disconnect :database clsql:*default-database*))))) (let ((old-insert-records (symbol-function 'insert-records))) (defun insert-records (&rest args) (let ((db (db))) (prog1 (apply old-insert-records :database db args) (disconnect :database db))))) -- Yours Sincerely, Victor Kryukov

6 9

[hunchentoot-devel] Headers eaten during HTTP POST...
by Timofei Shatrov 16 Apr '07

16 Apr '07

I'm rather new to web-programming and I seem to have stumbled upon something horrible. My setup is lighttpd+mod_proxy on Windows XP which redirect to Hunchentoot running on SBCL on Ubuntu Feisty, which is running on VMWare player on the same PC. Everything works fine except HTTP POST, which behaves very weirdly. When I submit POST data, everything is screwed. After some attempts to debug, I found that beginning of headers becomes eaten for some reason, for example the first line may be: "8.1.2) Gecko/20061201 Firefox/2.0.0.2 (Ubuntu-feisty)" (which is part of User-agent: header), when it should be "POST /cl/test-form /HTTP1.1" After that Hunchentoot tries to parse this line and you can guess that nothing good comes out of it... Note that this only happens when I access the page through mod_proxy, when I point at Hunchentoot's IP, everything is fine. However I can't believe mod_proxy randomly eats headers, because that's rather huge bug and would be noticed by everyone. This is reproduceable with hutchentoot-test examples which involve POST. -- Best regards, Timofei Shatrov mailto:grue@mail.ru

2 1

[hunchentoot-devel] finish-output usage in create-static-file-dispatcher-and-handler
by Volkan YAZICI 16 Apr '07

16 Apr '07

Hi, Just for curiosity, in create-static-file-dispatcher-and-handler function, wouldn't it be better if we flush the buffer finally in the loop instead of calling finish-output at every step. Does it have a special objective, e.g., for debugging purposes, portability issues? And maybe, it'd even be better to use (or to support optionally) force-output instead of finish-output. (With price of not receiving any acknowledgment about the flushed buffer.) Regards.

2 1

[hunchentoot-devel] Unit testing Hunchentoot websites
by Slava Akhmechet 16 Apr '07

16 Apr '07

I'm building a web framework on top of Hunchentoot and I ran into problems while trying to unit test some of my code. Essentially I need to unit test behavior that happens accross requests. I want to do it without starting Hunchentoot by faking the necessary objects (request, session, etc.) The documentation says the usual special variables passed to handlers contain opaque objects. Hunchentoot provides no means of instantiating them manually (unless I get into internal code, which will tie me to the implementation). I see two possible solutions: 1. Abstract my code away from Hunchentoot objects. This way I can fake the necessary environment during unit testing and use Hunchentoot's environment during the real thing. 2. Create my own objects and make sure all appropriate symbols are defined for them - essentially faking Huchentoot's API. It seems like the first option is a better one, but I feel like Huchentoot should provide some support for this. I'd be happy to hack it in if I get some direction (as I'm new to Hunchentoot and CL in general). -- Regards, Slava Akhmechet.

3 7

[hunchentoot-devel] I/O timeout error (SBCL)
by red daly 16 Apr '07

16 Apr '07

This is a repeat of an earlier problem one user had, as documented in this thread: http://common-lisp.net/pipermail/tbnl-devel/2006-December/000876.html >Basically, mx explanation in the other email was right except for the >logging part. There should /probably/ be some cleanup that prevents >errors like this one (that aren't really errors) to pop up the >debugger. Maybe an intrigued soul will contribute a patch. The bug is more of an annoyance than anything. The original email before I noticed it was a repeat report: I have been noticing this IO error since several months ago. When catch-signals is nil, hunchentoot occasionally throws me into the debugger. It signals at seemingly random points during a server's lifetime. I have a backtrace, but I do not know the source of the error. I am running a 64 bit version of SBCL, though I have noticed this on 32 bit SBCL, too. I/O timeout reading #<SB-SYS:FD-STREAM for "a constant string" {10028FCEB1}> [Condition of type SB-SYS:IO-TIMEOUT] Restarts: 0: [TERMINATE-THREAD] Terminate this thread (#<THREAD "hunchentoot-worker-79" {10027721A1}>) Backtrace: 0: ((LAMBDA (SWANK-BACKEND::DEBUGGER-LOOP-FN)) #<FUNCTION (LAMBDA #) {10067D6969}>) 1: (SWANK::DEBUG-IN-EMACS #<SB-SYS:IO-TIMEOUT {1003007811}>) 2: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {1003007C19}>) 3: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {10034586B1}> #<CLOSURE (LAMBDA #) {1003007C39}>) 4: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {10034586B1}> #<CLOSURE (LAMBDA #) {1003007C19}>) 5: (INVOKE-DEBUGGER #<SB-SYS:IO-TIMEOUT {1003007811}>) 6: (INVOKE-DEBUGGER #<SB-SYS:IO-TIMEOUT {1003007811}>) 7: (HUNCHENTOOT::MAYBE-INVOKE-DEBUGGER #<SB-SYS:IO-TIMEOUT {1003007811}>) 8: (SIGNAL #<SB-SYS:IO-TIMEOUT {1003007811}>) 9: (ERROR SB-SYS:IO-TIMEOUT) 10: (SB-IMPL::REFILL-BUFFER/FD #<SB-SYS:FD-STREAM for "a constant string" {10028FCEB1}>) 11: (SB-IMPL::INPUT-UNSIGNED-8BIT-BYTE #<SB-SYS:FD-STREAM for "a constant string" {10028FCEB1}> NIL :EOF) 12: ((SB-PCL::FAST-METHOD STREAM-READ-BYTE (CHUNGA:CHUNKED-INPUT-STREAM)) (#(8 9) . #()) #<unavailable argument> #<CHUNGA:CHUNKED-IO-STREAM {1002BE9B91}>) 13: ((SB-PCL::FAST-METHOD FLEXI-STREAMS::READ-BYTE* (FLEXI-STREAMS:FLEXI-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<unavailable argument>) 14: ((SB-PCL::FAST-METHOD STREAM-READ-CHAR (FLEXI-STREAMS::FLEXI-LATIN-1-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<unavailable argument>) 15: (READ-CHAR #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM {1002BFEF81}> T NIL #<unused argument>) 16: (CHUNGA:READ-LINE* #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM {1002BFEF81}> NIL) 17: (HUNCHENTOOT::GET-REQUEST-DATA) 18: (HUNCHENTOOT::PROCESS-CONNECTION #<HUNCHENTOOT::SERVER {10038DFDB1}> #<SB-BSD-SOCKETS:INET-SOCKET descriptor 10 {1002771261}>) 19: ((LAMBDA ())) 20: ("foreign function: #x41EE32") 21: ("foreign function: #x416EF1") -red

2 2

[hunchentoot-devel] Running multiple web application
by Andrei Stebakov 13 Apr '07

13 Apr '07

I just wanted to consult what's the best strategy for using multiple hunchentoot applications. Is it better to use one *dispatch-table* and insert multiple handlers for different application in this table or have many servers listening on different ports? I'd like to go with multiple hunchentoot:start-server, does it have any disadvantages? Thank you, Andrew

6 14

[hunchentoot-devel] *http-error-handler* on IE 7.0 (http code 500)
by Andrei Stebakov 10 Apr '07

10 Apr '07

When I use the *http-error-handler* it works fine on Firefox displaying my message and doing some extra job. On IE it says "Can not display page" and shows the HTTP 500 code. I guess I need to filter out the http status code 500 and replace it for status ok somewhere. How can I replace the status code or fix the page in IE? BTW, when I use (redirect) inside of some of my handlers call I also get to the *http-error-handler*. I guess the proper thing to do is to add +http-moved-temporarily+ into the *approved-return-codes*. Thank you, Andrew

3 5

[hunchentoot-devel] New release 0.8.5
by Edi Weitz 09 Apr '07

09 Apr '07

ChangeLog: Version 0.8.5 2007-04-10 Correct behaviour for "100 Continue" responses Download: http://weitz.de/files/hunchentoot.tar.gz Cheers, Edi.

1 0

[hunchentoot-devel] New release 0.8.4
by Edi Weitz 09 Apr '07

09 Apr '07

No technical changes. This release just fixes some version numbers I botched yesterday. Sorry, Edi.

6 6

[hunchentoot-devel] Processing an error outside the Hunchentoot code
by Andrei Stebakov 08 Apr '07

08 Apr '07

What's the best to add my own error handler? I see there is some processing based on *SHOW-LISP-ERRORS-P* *SHOW-LISP-BACKTRACES-P* inside process-request function, but it doesn't allow to add a user handler of the error (or I just didn't find it). Let's say I don't want a user to see the error (only some nice reassuring message :)) and I want to be notified by an email with the backtrace. Should I go and modify the body of the process-request function (which I'll need to merge with every new release of HT) or is there a way to add my own handler outside of the Hunchentoot code? Thank you, Andrew

3 4

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

07 Apr '07

Sorry... ChangeLog: Version 0.8.3 2007-04-07 Don't use chunked encoding for empty (NIL) bodies Download: http://weitz.de/files/hunchentoot.tar.gz Cheers, Edi.

1 0

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

07 Apr '07

ChangeLog: Version 0.8.2 2007-04-05 Really exported REASON-PHRASE this time (and also *CURRENT-PROCESS*) Download: http://weitz.de/files/hunchentoot.tar.gz Yes, the date in the ChangeLog is correct, I couldn't upload the code because I couldn't reach my server that day.

1 0

[hunchentoot-devel] Different speed loading images from static apache and hunchentoot handler
by Andrei Stebakov 06 Apr '07

06 Apr '07

I got a folder on my linux box that contains about 240 images of font preview generated from cl-gd (Thanks, Edi!). When I show them from static apache handler it takes approximately 30 seconds. Same thing from hunchentoot static handler (create-folder-dispatcher-and-handler) takes about 50 seconds. I understand it's not a big deal, but still I'd like to know what might get in the way. I use hunchentoot behind mod-proxy. Here are links (first is static apache, second is hunchentoot): http://www.greenpixeldesign.com/fonts.html http://www.greenpixeldesign.com/cphandler/fonts.html Thank you, Andrew

5 19

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel April 2007