sunet/scheme/httpd/text-generation.scm

;;; Text generation utilities.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  

(define (time->http-date-string time)
  (format-date "~A, ~d-~b-~y ~H:~M:~S GMT" (date time 0)))

(define (title-html out message)
  (format out "<HEAD>~%<TITLE>~%~A~%</TITLE>~%</HEAD>~%~%" message)
  (format out "<BODY>~%<H1>~A</H1>~%" message))
* split up big httpd-core file in several pieces * make structures that used httpd-core using the new pieces of httpd-core 2002-05-26 13:56:56 -04:00			`;;; Text generation utilities.`
			`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`

			`(define (time->http-date-string time)`
			`(format-date "~A, ~d-~b-~y ~H:~M:~S GMT" (date time 0)))`

Rework the API of path handlers: Path handlers must now return a response object similar to the response objects of the PLT web server, encapsulating headers, mime type, status code, and so on. A response object in turn can contain an encoding of a body. The only presently supported body type is a procedure which just prints the body. Other changes: - split file-dir-handler.scm out from handlers.scm - moved the ICON-NAME constructor parameters for file handlers to the options - removed input/output port redirections and work with paths explicitly 2002-08-26 05:46:11 -04:00			`(define (title-html out message)`
* split up big httpd-core file in several pieces * make structures that used httpd-core using the new pieces of httpd-core 2002-05-26 13:56:56 -04:00			`(format out "<HEAD>~%<TITLE>~%~A~%</TITLE>~%</HEAD>~%~%" message)`
			`(format out "<BODY>~%<H1>~A</H1>~%" message))`