tbnl-devel May 2007

tbnl-devel@common-lisp.net

28 participants
32 discussions

[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

[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] CL-WEBDAV and OS X (locks, class 2 compliance)
by Andreas Fuchs 01 May '07

01 May '07

Hi there, I just tried out CL-WEBDAV, and I would like to use it in a pet project of mine (making a simple-to-deploy WebDAV service that Mac OS X clients can use without much hassle). The Finder mounts CL-WEBDAV volumes just fine, but only in read-only mode. So, I guess I'll need locking support to get read-write mounts of WebDAV volumes in the Finder. The cl-webdav documentation says that I should bribe Edi to get this feature. So, Edi, how large should the bribe be for working locks? (-: Cheers, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel May 2007