(require-extension fastcgi)
(fcgi-accept-loop
8080
0
(lambda (in out err env)
(out "Content-type: text/html\r\n\r\n")
(out "")
;; Look up the value of the SERVER_NAME environment variable
;; and print it.
(out "This server is: ")
(out (env "SERVER_NAME" "[unknown]"))
(out "
")
;; Print the name and value of every environment variable.
(out "
Variable
")
(out "
Value
")
(for-each
(lambda (k/v)
(out "
")
(out (car k/v))
(out "
")
(out (cdr k/v))
(out "
"))
(env))
(out "
")
(out "
")
;; Print POST data, if there is any.
(let ((post-data (fcgi-get-post-data in env)))
(when post-data
(out "The following post data was given: ")
(out post-data)))
(out "")))