Hello.
I havent used hunchentoot for a while now, so I checked out the svn-repository on http://bknr.net/svn/ediware/ (I hope this is the correct one) and Installed the packages. The server seems to work, but unfortunately, the following code seems not to do:
(defun http-seite () (with-html-output (out (send-headers)) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt"))))) (setf *dispatch-table* (list (create-prefix-dispatcher "/hallo-welt" 'http-seite))) (defvar *server* (start-server :port 8000))
When calling http://localhost:8000/hallo-welt, I only get an empty page. For any other URL, i get a "not found" error.
When defining the function differently, returning a string, say
(defun http-seite () (with-html-output-to-string (bla) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt")))))
the whole thing works. Also the more trivial functions
(defun http-2 () (write-char #\A (send-headers)))
and
(defun http-2 () (write-char #\A (send-headers)) (finish-output (send-headers)))
do not produce any output. I read the included documentation, but it seems like (send-headers) hasnt changed its meening according to it, and also the code doesnt say anything else.
Any Ideas what I could be doing wrong?
Greetings Christoph
Christoph,
thank you for the report, what you see is actually a bug. I was able to pinpoint some possible causes for the problem, but have not yet fixed the issue. I will let the list know once it is fixed.
-Hans
On Wed, Jan 28, 2009 at 12:37, css css@swissjabber.ch wrote:
Hello.
I havent used hunchentoot for a while now, so I checked out the svn-repository on http://bknr.net/svn/ediware/ (I hope this is the correct one) and Installed the packages. The server seems to work, but unfortunately, the following code seems not to do:
(defun http-seite () (with-html-output (out (send-headers)) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt"))))) (setf *dispatch-table* (list (create-prefix-dispatcher "/hallo-welt" 'http-seite))) (defvar *server* (start-server :port 8000))
When calling http://localhost:8000/hallo-welt, I only get an empty page. For any other URL, i get a "not found" error.
When defining the function differently, returning a string, say
(defun http-seite () (with-html-output-to-string (bla) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt")))))
the whole thing works. Also the more trivial functions
(defun http-2 () (write-char #\A (send-headers)))
and
(defun http-2 () (write-char #\A (send-headers)) (finish-output (send-headers)))
do not produce any output. I read the included documentation, but it seems like (send-headers) hasnt changed its meening according to it, and also the code doesnt say anything else.
Any Ideas what I could be doing wrong?
Greetings Christoph
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel
Hi,
Unfortunately, the HTML documentation isn't always up to date in the development version and even some of the docstrings might not be fully correct anymore. In the case of send-headers, the docstring /is/ correct, though, although the change is hard to catch. The modified sentence there is "returns a BINARY stream" instead of "returns a stream". This is one of many changes that we did for performance reasons. So, if you want to send text to this stream, you'll have to wrap it with a flexi stream first.
HTH, Edi.
On Wed, Jan 28, 2009 at 6:37 AM, css css@swissjabber.ch wrote:
Hello.
I havent used hunchentoot for a while now, so I checked out the svn-repository on http://bknr.net/svn/ediware/ (I hope this is the correct one) and Installed the packages. The server seems to work, but unfortunately, the following code seems not to do:
(defun http-seite () (with-html-output (out (send-headers)) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt"))))) (setf *dispatch-table* (list (create-prefix-dispatcher "/hallo-welt" 'http-seite))) (defvar *server* (start-server :port 8000))
When calling http://localhost:8000/hallo-welt, I only get an empty page. For any other URL, i get a "not found" error.
When defining the function differently, returning a string, say
(defun http-seite () (with-html-output-to-string (bla) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt")))))
the whole thing works. Also the more trivial functions
(defun http-2 () (write-char #\A (send-headers)))
and
(defun http-2 () (write-char #\A (send-headers)) (finish-output (send-headers)))
do not produce any output. I read the included documentation, but it seems like (send-headers) hasnt changed its meening according to it, and also the code doesnt say anything else.
Any Ideas what I could be doing wrong?
Greetings Christoph
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel
Hello.
Ok, thank you. This new behaviour makes more sense since for most streamed output you will often want binary output anyway (and if not can still use flexi-streams). The handler
(defun bla () (cl-who:with-html-output (out (flexi-streams:make-flexi-stream (hunchentoot:send-headers))) (:html (:head (:title "blafasel")) (:body (:h1 "quak")))))
works (though it is not very useful).
Christoph Senjak
2009/1/28 Edi Weitz edi@agharta.de:
Hi,
Unfortunately, the HTML documentation isn't always up to date in the development version and even some of the docstrings might not be fully correct anymore. In the case of send-headers, the docstring /is/ correct, though, although the change is hard to catch. The modified sentence there is "returns a BINARY stream" instead of "returns a stream". This is one of many changes that we did for performance reasons. So, if you want to send text to this stream, you'll have to wrap it with a flexi stream first.
HTH, Edi.
On Wed, Jan 28, 2009 at 6:37 AM, css css@swissjabber.ch wrote:
Hello.
I havent used hunchentoot for a while now, so I checked out the svn-repository on http://bknr.net/svn/ediware/ (I hope this is the correct one) and Installed the packages. The server seems to work, but unfortunately, the following code seems not to do:
(defun http-seite () (with-html-output (out (send-headers)) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt"))))) (setf *dispatch-table* (list (create-prefix-dispatcher "/hallo-welt" 'http-seite))) (defvar *server* (start-server :port 8000))
When calling http://localhost:8000/hallo-welt, I only get an empty page. For any other URL, i get a "not found" error.
When defining the function differently, returning a string, say
(defun http-seite () (with-html-output-to-string (bla) (:html (:head (:title "Hallo-Welt-Seite")) (:body (:h1 "Hallo Welt")))))
the whole thing works. Also the more trivial functions
(defun http-2 () (write-char #\A (send-headers)))
and
(defun http-2 () (write-char #\A (send-headers)) (finish-output (send-headers)))
do not produce any output. I read the included documentation, but it seems like (send-headers) hasnt changed its meening according to it, and also the code doesnt say anything else.
Any Ideas what I could be doing wrong?
Greetings Christoph
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel
-
christoph.senjak＠web.de -
css -
Edi Weitz -
Hans Hübner