December 2011 - tbnl-devel@common-lisp.net

Re: [hunchentoot-devel] easy-handler outputs to REPL instead of client
by Tyler Smith 23 Dec '11

23 Dec '11

Thank you! I didn't realize that with-html-output was returning a string, I thought it was emitting the html to the output as a side effect. In retrospect, that's silly. The following works, although it looks a little unwieldy. Any suggestions for improvement are welcome. Otherwise, thanks for your help and for all your code. Cheers, Tyler (define-easy-handler (tyler :uri "/tyler") () (multiple-value-bind (records fields) (select [genus] [species] :from "specimens") (loop for rec in records collect (loop for label in fields for val in rec collect (with-html-output-to-string (*standard-output*) (:dt :class label (str label)) (:dd :class label (str val))) into inner-output finally (return (format nil "~{~a~&~}" inner-output))) into outer-output finally (return (format nil "~{~a~&~}" outer-output))))) On Fri, Dec 23, 2011 at 3:05 AM, Edi Weitz <edi(a)agharta.de> wrote: > Your loop doesn't return anything, does it? > > On Thu, Dec 22, 2011 at 11:51 PM, Tyler Smith > <tyler.smith(a)mail.mcgill.ca> wrote: >> Hi, >> >> I'm trying to set up a simple sql-based website using cl-who, cl-sql >> and hunchentoot. I've got the basic cl-sql and cl-who parts working, >> but I'm having a trouble serving the pages with hunchentoot. >> >> The following works as expected: >> >> (ql:quickload :hunchentoot) >> (use-package :hunchentoot) >> >> (setf my-acceptor (start (make-instance 'hunchentoot:easy-acceptor :port 4242))) >> >> (define-easy-handler (tyler :uri "/tyler") () >> (with-html-output (*standard-output*) >> (:ul (:li "hi there again")))) >> >> >> After this, if I open localhost:4242/tyler in a browser I see my >> unordered list. However, with this: >> >> (define-easy-handler (tyler :uri "/tyler") () >> (multiple-value-bind (records fields) >> (select [genus] [species] :from "specimens") >> (loop for rec in records do >> (loop for label in fields >> for val in rec do >> (with-html-output (*standard-output*) >> (:dt :class label (str label)) >> (:dd :class label (str val))))))) >> >> When I browse to localhost:4242/tyler nothing appears in the browser, >> instead the html is printed in the REPL. If I evaluate just the (M-V-B >> ...) form without the enclosing (D-E-H ...) it outputs the html to the >> REPL as I expect. >> >> I have been following the examples in the hunchentoot docs, but I'm >> stumped as to why this doesn't work. What have I missed? >> >> Thanks, >> >> Tyler >> >> _______________________________________________ >> tbnl-devel site list >> tbnl-devel(a)common-lisp.net >> http://common-lisp.net/mailman/listinfo/tbnl-devel >> > > _______________________________________________ > tbnl-devel site list > tbnl-devel(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/tbnl-devel

2 1

[hunchentoot-devel] easy-handler outputs to REPL instead of client
by Tyler Smith 23 Dec '11

23 Dec '11

Hi, I'm trying to set up a simple sql-based website using cl-who, cl-sql and hunchentoot. I've got the basic cl-sql and cl-who parts working, but I'm having a trouble serving the pages with hunchentoot. The following works as expected: (ql:quickload :hunchentoot) (use-package :hunchentoot) (setf my-acceptor (start (make-instance 'hunchentoot:easy-acceptor :port 4242))) (define-easy-handler (tyler :uri "/tyler") () (with-html-output (*standard-output*) (:ul (:li "hi there again")))) After this, if I open localhost:4242/tyler in a browser I see my unordered list. However, with this: (define-easy-handler (tyler :uri "/tyler") () (multiple-value-bind (records fields) (select [genus] [species] :from "specimens") (loop for rec in records do (loop for label in fields for val in rec do (with-html-output (*standard-output*) (:dt :class label (str label)) (:dd :class label (str val))))))) When I browse to localhost:4242/tyler nothing appears in the browser, instead the html is printed in the REPL. If I evaluate just the (M-V-B ...) form without the enclosing (D-E-H ...) it outputs the html to the REPL as I expect. I have been following the examples in the hunchentoot docs, but I'm stumped as to why this doesn't work. What have I missed? Thanks, Tyler

5 4

Re: [hunchentoot-devel] easy-handler outputs to REPL instead of client
by Tyler Smith 23 Dec '11

23 Dec '11

On Thu, Dec 22, 2011 at 6:18 PM, Jens Teich <info(a)jensteich.de> wrote: >> (define-easy-handler (tyler :uri "/tyler") () >> (multiple-value-bind (records fields) >> (select [genus] [species] :from "specimens") >> (loop for rec in records do >> (loop for label in fields >> for val in rec do >> (with-html-output (*standard-output*) >> (:dt :class label (str label)) >> (:dd :class label (str val))))))) > > use with-html-output-to-string > with-html-output-to-string produces no output, either to the REPL or to the browser. Entering just the (M-V-B ...) expression (i.e., removing the define-easy-handler form) at the REPL also produces no output using W-H-O-to-string. Cheers, Tyler

1 0

[hunchentoot-devel] log files
by Haris Bogdanovich 21 Dec '11

21 Dec '11

Hi. I forgot, how do I set error log and access log files ? Thanks

4 8

[hunchentoot-devel] #handlers section missing from the documentation
by Vladimir Sedach 13 Dec '11

13 Dec '11

Hello, There are several places in the documentation that reference the "handlers" section (as #handlers), but there's no longer a subchapter with that name. Vladimir

2 1

[hunchentoot-devel] Subclassing ACCEPTOR
by Sebastian Tennant 12 Dec '11

12 Dec '11

Hi list, (make-package :vhost :use '(:common-lisp)) ;;; => #<PACKAGE "VHOST"> (in-package :vhost) (defclass vhost (tbnl:acceptor) ((tbnl::name :initform (error "Please give this VHOST a meaningful name.")))) ;;; => #<STANDARD-CLASS VHOST> (describe 'vhost) ;;; => VHOST::VHOST ;;; [symbol] ;;; ;;; VHOST names the standard-class #<STANDARD-CLASS VHOST>: ;;; Class precedence-list: VHOST, HUNCHENTOOT:ACCEPTOR, STANDARD-OBJECT, ;;; SB-PCL::SLOT-OBJECT, T ;;; Direct superclasses: HUNCHENTOOT:ACCEPTOR ;;; No subclasses. ;;; Direct slots: ;;; HUNCHENTOOT::NAME ;;; Initform: (ERROR "A virtual host must have a meaningful name.") (defvar *vhost1* (make-instance 'vhost)) ;;; => *VHOST1* <--- WHY NO ERROR ??? (describe *vhost1*) ;;; => #<VHOST (host *, port 80)> ;;; [standard-object] ;;; ;;; Slots with :INSTANCE allocation: ;;; PORT = 80 ;;; ADDRESS = NIL ;;; NAME = #:G1150 <--- this is what I want to prevent ;;; [...] Practical Common Lisp - page 214: "... if multiple classes specify an initform the new class uses the one from the most specific class. This allows a subclass to specify a different default value than the one it would otherwise inherit." What am I doing wrong here? Sebastian -- Emacs' AlsaPlayer - Music Without Jolts Lightweight, full-featured and mindful of your idyllic happiness. http://home.gna.org/eap

2 3

[hunchentoot-devel] patch for fixing abort-request-handler's use of handler-done tag
by Gordon Sims 07 Dec '11

07 Dec '11

Here's a patch that changes abort-request-handler's use of handler-done tag to be consistent with the catch of it (and also consistent with the throw in handle-request). Before this patch is applied, using abort-request-handler causes this response, note there is no error message or backtrace. <html> <head> <title>Internal Server Error</title> </head> <body> <h1>Internal Server Error</h1> An error occured while processing your /stat/config/monitor.debug.eval.enabled request. <hr/> <h1>Error Message</h1> <pre>ERROR</pre> <h1>Backtrace</h1> <pre>BACKTRACE</pre> <hr/> <a href="http://weitz.de/hunchentoot">Hunchentoot</a> 1.2.0 running on Clozure Common Lisp Version 1.7-r15010M (LinuxX8664) <hr/> <img src="/img/made-with-lisp-logo.jpg" width="300" height="100"/> </body> </html> After patch applied, error message and backtrace appear in the HTTP 500 response. -Gordon

1 0

[hunchentoot-devel] Help needed with changes since 1.1
by PL Hayes 02 Dec '11

02 Dec '11

Hi. My *extremely* simple website won't work with 1.2.1. and I've no idea why. All it consists of is this: (push (hunchentoot:create-folder-dispatcher-and-handler "/misc/" #p"/home/plh/misc-web/") hunchentoot:*dispatch-table*) but I just get the 'not found' error page when I try to visit any of the files in that directory.

2 4