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

[hunchentoot-devel] A typo in Hunchentoot doc?
by Victor Kryukov 16 May '07

16 May '07

Fourth paragraph of define-easy-handler documentation reads: The resulting handler will be a Lisp function with the name name and keyword parameters named by the var symbols. Each var will be bound to the value of the GET or POST parameter called real-name (a string) before the body of the function is executed. If real-name is not provided, it will be computed by downcasing the symbol name of name. It seems to me that last 'name' should be replace by 'var'. Regards, Victor. -- Yours Sincerely, Victor Kryukov

5 6

[hunchentoot-devel] *catch-errors-p* and spurious stream errors patch (add your own implementation and shake).
by Vladimir Sedach 11 May '07

11 May '07

Hello, While debugging a web application, the need to not catch errors became apparent. Unfortunately, there are spurious stream errors that make this less than useful currently (someone has informed me that this problem is well known). The attached patch is my proposal to let people deal with this and take advantage of (setf *catch-errors-p* nil). If you think this is the wrong way of going about things, please let me know. Thanks, Vladimir

3 6

[hunchentoot-devel] Can't write to FD-STREAM: Broken pipe
by Slava Akhmechet 11 May '07

11 May '07

I'm looking through the Hunchetoot log and occassionally I see the following messages: [2007-05-11 14:50:37 [ERROR]] Error while processing connection: couldn't write to #<SB-SYS:FD-STREAM for "a constant string" {BA242B1}>: Connection reset by peer [2007-05-11 14:50:37 [ERROR]] Error while processing connection: couldn't write to #<SB-SYS:FD-STREAM for "a constant string" {BDF02B1}>: Broken pipe I don't see any problems in the browser, I only found out about these messages because I looked at the log. Can someone think of a situation in which these errors would occur without interrupting user experience and why? -- Regards, Slava Akhmechet.

2 1

[hunchentoot-devel] HTTP PUT and DELETE
by Tiarnan O'Corrain 11 May '07

11 May '07

Hi-- does Hunchentoot support these, and if not, would it take much effort to implement them? Anyone else interested? regards Tiarnán

3 2

[hunchentoot-devel] Chunking disabled in ssl servers.
by Marco Monteiro 11 May '07

11 May '07

In the function START-SERVER, output chunking is explicitly disabled for SSL connections. Why? Is there any problem in using chunking with SSL? Marco

2 1

[hunchentoot-devel] Managing Deployment of Lisp Web Apps?
by Micheal Fria 10 May '07

10 May '07

Hi, I'm relatively new to the whole paradigm of having a constantly running core image so this question may come of as a little dumb. So please forgive me if I do. I was wondering what is the generally accepted best method of deployment for hunchentoot websites? (ie. how would one go about moving it from staging/testing server to the live/primary server?) I'm used to working in the LAMP environment where it's just copying the needed files -- and I've been doing the same thing in the same fashion - except instead of files it's functions being transfered via swank... But there's got to be a better way! I'm running into problems where I'm forgetting to update a function. (I'm also a tad bit of a neat freak and don't like having abandoned/orphaned functions lying around that do nothing). Any suggestions? How are you guys managing deployment of your software? I look forward to what you guys have to say. Thanks, - Micheal Frai _________________________________________________________________ See what youre getting intobefore you go there http://newlivehotmail.com/?ocid=TXT_TAGHM_migration_HM_viral_preview_0507

4 3

[hunchentoot-devel] create-folder-dispatcher-and-handler question
by Nicolas Lamirault 08 May '07

08 May '07

i try to use the create-folder-dispatcher-and-handler handler. i creates like this : [...] (list (hunchentoot:create-folder-dispatcher-and-handler "/ernestine-radio/music/" *music-directory*)) [...] *music-directory* corresponds to /opt/music/ so i make 2 http requests. The first failed : [2007-05-07 17:53:41] 82.225.177.13 - "GET /ernestine-radio/music//f/Fatboy_Slim/Better%20Living%20Through%20Chemistry/10%20-%20The%20Sound%20Of%20Milwaukee.mp3 HTTP/1.1" 404 412 "-" "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)" The second works well : [2007-05-07 17:53:55] 82.225.177.13 - GET /ernestine-radio/music//b/Black_Rebel_Motorcycle_Club/BRMC/09.Spread_Your_Love.mp3 HTTP/1.1" 200 - "-" "Mozilla/5.0 (X11 ; U; Linux i686; en-US; rv:1.8.1.3) Gecko/20070310 Iceweasel/2.0.0.3 (Debian-2.0.0.3-1)" i think the problem comes from the space in the name. my requests are like this : http://perave.dyndns.org:9090/ernestine-radio/music//f/Fatboy_Slim/Better Living Through Chemistry/10 - The Sound Of Milwaukee.mp3 the second : http://perave.dyndns.org:9090/ernestine-radio/music//b/Black_Rebel_Motorcyc… so the second works well, not the first. if i try to url encode the 2 requests, neither the one neither the second works. Someone have any idea ? Thanks for your help. -- Nicolas Lamirault

2 2

[hunchentoot-devel] resurrect tbnl's debug-value macro?
by Mac Chan 04 May '07

04 May '07

I just noticed today that one of the tbnl's best features is missing in hunchentoot. Previously (in tbnl) if you set *debug-mode* to T, the top level dynamic vars *request*, *reply*, etc will be bound to the last request, reply objects. This is very handy and in line with Lisp's interactive development model. I usually setup an empty handler and point the browser to that URL. Now I can work with the *request* / *reply* objects in the REPL, and write html generation and GET/POST handling code interactively. For instance, I can type these in the REPL > (setf hunchentoot::*session* (hunchentoot::session-verify *request*)) > (session-value :selected-product) "T-Shirt XXL" > (* (product-price *) (session-value :quantity)) 15 and so on. Once I'm satisfied with the result, I put all the code into the handler. (defun product-total-page (&optional (request *request*)) (let ((p (session-value :selected-product)) (q (session-value :quantity))) (with-html (:html (:body (:table (:tr (:td "Product") (:td (str p))) (:tr (:td "Quantity") (:td (str q))) (:tr (:td "Total") (:td (str (* q (product-price p))))))))))) This is also very handy for debugging (inspect *request*'s slots - cookies, header and whatnot). Thoughts? -- Mac

7 17

Re: [hunchentoot-devel] Connection to Postgres via Postmodern with Unicode
by Jens Teich 01 May '07

01 May '07

> Where do you set the content type header? Tried (setf *default-content-type* "text/html;charset=UTF-8") but wasn't successful. Any hint would be very nice ... Something else is confusing me. When using clsql with :database-type odbc I can see the unicode characters correctly in the header without having to care about content type header. -jens

2 2

[hunchentoot-devel] User defined http return codes
by Jong-won Choi 01 May '07

01 May '07

Currently if a user want to define a custom http return code, s/he has to change reason-phrase function manually. The attached patch file is my suggestion on this problem. Cheers Jong-won diff -Naur hunchentoot-0.9.1/specials.lisp hunchentoot-new/specials.lisp --- hunchentoot-0.9.1/specials.lisp 2007-04-19 18:10:39.000000000 +0900 +++ hunchentoot-new/specials.lisp 2007-05-01 10:57:23.000000000 +0900 @@ -37,56 +37,59 @@ (defvar ,name) (setf (documentation ',name 'variable) ,doc-string))) - (defmacro def-http-return-code (name value) + (defconstant +http-code-reason-table+ (make-hash-table :test #'eq)) + + (defmacro def-http-return-code (name value &optional (doc-string "One of the common HTTP return codes.")) "Shortcut to define constants for return codes." `(eval-when (:compile-toplevel :execute :load-toplevel) - (defconstant ,name ,value "One of the common HTTP return codes.")))) + (defconstant ,name ,value ,(format nil "HTTP return code for ~A" doc-string)) + (setf (gethash ,value +http-code-reason-table+) ,doc-string)))) (defconstant +crlf+ #.(format nil "~C~C" #\Return #\Linefeed) "A constant string consisting of the two ASCII characters CR and LF.") -(def-http-return-code +http-continue+ 100) -(def-http-return-code +http-switching-protocols+ 101) -(def-http-return-code +http-ok+ 200) -(def-http-return-code +http-created+ 201) -(def-http-return-code +http-accepted+ 202) -(def-http-return-code +http-non-authoritative-information+ 203) -(def-http-return-code +http-no-content+ 204) -(def-http-return-code +http-reset-content+ 205) -(def-http-return-code +http-partial-content+ 206) -(def-http-return-code +http-multi-status+ 207) -(def-http-return-code +http-multiple-choices+ 300) -(def-http-return-code +http-moved-permanently+ 301) -(def-http-return-code +http-moved-temporarily+ 302) -(def-http-return-code +http-see-other+ 303) -(def-http-return-code +http-not-modified+ 304) -(def-http-return-code +http-use-proxy+ 305) -(def-http-return-code +http-temporary-redirect+ 307) -(def-http-return-code +http-bad-request+ 400) -(def-http-return-code +http-authorization-required+ 401) -(def-http-return-code +http-payment-required+ 402) -(def-http-return-code +http-forbidden+ 403) -(def-http-return-code +http-not-found+ 404) -(def-http-return-code +http-method-not-allowed+ 405) -(def-http-return-code +http-not-acceptable+ 406) -(def-http-return-code +http-proxy-authentication-required+ 407) -(def-http-return-code +http-request-time-out+ 408) -(def-http-return-code +http-conflict+ 409) -(def-http-return-code +http-gone+ 410) -(def-http-return-code +http-length-required+ 411) -(def-http-return-code +http-precondition-failed+ 412) -(def-http-return-code +http-request-entity-too-large+ 413) -(def-http-return-code +http-request-uri-too-large+ 414) -(def-http-return-code +http-unsupported-media-type+ 415) -(def-http-return-code +http-requested-range-not-satisfiable+ 416) -(def-http-return-code +http-expectation-failed+ 417) -(def-http-return-code +http-failed-dependency+ 424) -(def-http-return-code +http-internal-server-error+ 500) -(def-http-return-code +http-not-implemented+ 501) -(def-http-return-code +http-bad-gateway+ 502) -(def-http-return-code +http-service-unavailable+ 503) -(def-http-return-code +http-gateway-time-out+ 504) -(def-http-return-code +http-version-not-supported+ 505) +(def-http-return-code +http-continue+ 100 "Continue") +(def-http-return-code +http-switching-protocols+ 101 "Switching Protocols") +(def-http-return-code +http-ok+ 200 "OK") +(def-http-return-code +http-created+ 201 "Created") +(def-http-return-code +http-accepted+ 202 "Accepted") +(def-http-return-code +http-non-authoritative-information+ 203 "Non-Authoritative Information") +(def-http-return-code +http-no-content+ 204 "No Content") +(def-http-return-code +http-reset-content+ 205 "Reset Content") +(def-http-return-code +http-partial-content+ 206 "Partial Content") +(def-http-return-code +http-multi-status+ 207 "Multi-Status") +(def-http-return-code +http-multiple-choices+ 300 "Multiple Choices") +(def-http-return-code +http-moved-permanently+ 301 "Moved Permanently") +(def-http-return-code +http-moved-temporarily+ 302 "Moved Temporarily") +(def-http-return-code +http-see-other+ 303 "See Other") +(def-http-return-code +http-not-modified+ 304 "Not Modified") +(def-http-return-code +http-use-proxy+ 305 "Use Proxy") +(def-http-return-code +http-temporary-redirect+ 307 "Temporary Redirect") +(def-http-return-code +http-bad-request+ 400 "Bad Request") +(def-http-return-code +http-authorization-required+ 401 "Authorization Required") +(def-http-return-code +http-payment-required+ 402 "Payment Required") +(def-http-return-code +http-forbidden+ 403 "Forbidden") +(def-http-return-code +http-not-found+ 404 "Not Found") +(def-http-return-code +http-method-not-allowed+ 405 "Method Not Allowed") +(def-http-return-code +http-not-acceptable+ 406 "Not Acceptable") +(def-http-return-code +http-proxy-authentication-required+ 407 "Proxy Authentication Required") +(def-http-return-code +http-request-time-out+ 408 "Request Time-out") +(def-http-return-code +http-conflict+ 409 "Conflict") +(def-http-return-code +http-gone+ 410 "Gone") +(def-http-return-code +http-length-required+ 411 "Length Required") +(def-http-return-code +http-precondition-failed+ 412 "Precondition Failed") +(def-http-return-code +http-request-entity-too-large+ 413 "Request Entity Too Large") +(def-http-return-code +http-request-uri-too-large+ 414 "Request-URI Too Large") +(def-http-return-code +http-unsupported-media-type+ 415 "Unsupported Media Type") +(def-http-return-code +http-requested-range-not-satisfiable+ 416 "Requested range not satisfiable") +(def-http-return-code +http-expectation-failed+ 417 "Expectation Failed") +(def-http-return-code +http-failed-dependency+ 424 "Failed Dependency") +(def-http-return-code +http-internal-server-error+ 500 "Internal Server Error") +(def-http-return-code +http-not-implemented+ 501 "Not Implemented") +(def-http-return-code +http-bad-gateway+ 502 "Bad Gateway") +(def-http-return-code +http-service-unavailable+ 503 "Service Unavailable") +(def-http-return-code +http-gateway-time-out+ 504 "Gateway Time-out") +(def-http-return-code +http-version-not-supported+ 505 "Version not supported") (defvar *approved-return-codes* '(#.+http-ok+ #.+http-no-content+ #.+http-multi-status+ diff -Naur hunchentoot-0.9.1/util.lisp hunchentoot-new/util.lisp --- hunchentoot-0.9.1/util.lisp 2007-04-04 16:52:06.000000000 +0900 +++ hunchentoot-new/util.lisp 2007-05-01 10:58:18.000000000 +0900 @@ -154,48 +154,7 @@ "Returns a reason phrase for the HTTP return code RETURN-CODE \(which should be an integer) or NIL for return codes Hunchentoot doesn't know." - (case return-code - ((#.+http-ok+) "OK") - ((#.+http-moved-permanently+) "Moved Permanently") - ((#.+http-moved-temporarily+) "Moved Temporarily") - ((#.+http-not-modified+) "Not Modified") - ((#.+http-authorization-required+) "Authorization Required") - ((#.+http-forbidden+) "Forbidden") - ((#.+http-not-found+) "Not Found") - ((#.+http-internal-server-error+) "Internal Server Error") - ((#.+http-continue+) "Continue") - ((#.+http-switching-protocols+) "Switching Protocols") - ((#.+http-created+) "Created") - ((#.+http-accepted+) "Accepted") - ((#.+http-non-authoritative-information+) "Non-Authoritative Information") - ((#.+http-no-content+) "No Content") - ((#.+http-reset-content+) "Reset Content") - ((#.+http-partial-content+) "Partial Content") - ((#.+http-multi-status+) "Multi-Status") - ((#.+http-multiple-choices+) "Multiple Choices") - ((#.+http-see-other+) "See Other") - ((#.+http-use-proxy+) "Use Proxy") - ((#.+http-temporary-redirect+) "Temporary Redirect") - ((#.+http-bad-request+) "Bad Request") - ((#.+http-payment-required+) "Payment Required") - ((#.+http-method-not-allowed+) "Method Not Allowed") - ((#.+http-not-acceptable+) "Not Acceptable") - ((#.+http-proxy-authentication-required+) "Proxy Authentication Required") - ((#.+http-request-time-out+) "Request Time-out") - ((#.+http-conflict+) "Conflict") - ((#.+http-gone+) "Gone") - ((#.+http-length-required+) "Length Required") - ((#.+http-precondition-failed+) "Precondition Failed") - ((#.+http-request-entity-too-large+) "Request Entity Too Large") - ((#.+http-request-uri-too-large+) "Request-URI Too Large") - ((#.+http-unsupported-media-type+) "Unsupported Media Type") - ((#.+http-requested-range-not-satisfiable+) "Requested range not satisfiable") - ((#.+http-expectation-failed+) "Expectation Failed") - ((#.+http-not-implemented+) "Not Implemented") - ((#.+http-bad-gateway+) "Bad Gateway") - ((#.+http-service-unavailable+) "Service Unavailable") - ((#.+http-gateway-time-out+) "Gateway Time-out") - ((#.+http-version-not-supported+) "Version not supported"))) + (gethash return-code +http-code-reason-table+ nil)) (defun make-keyword (string &key (destructivep t)) "Interns the upcased version of STRING into the KEYWORD package.

2 1