> Alejandro Forero Cuervo wrote:
> >>On the other hand, I dislike the way cgi-stream doing its work.
> >
> >Why?
> >
> Just don't like the way it works. I prefer simply throw things out at
> stdout.
So what's wrong with the following?
(cgi-main
(lambda (get post cookies)
(with-output-to-stream
(lambda ()
(format #t "Content-type: text/html~%~%<html><body><p>")
(let ((name (get 'name)))
(if (null? name)
(format #t "Hello, stranger!")
(format #t "Hello, <b>~A</b>!" (stream->string (car name)))))
(format #t " And yet another thing I'm throwing at stdout! HA!")
(format #t "</p></body></html>")))))
Hmm?
Alejo.
http://azul.freaks-unidos.net/
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
