#!/usr/bin/env newlisp
#
;;
;; prints the environment
;;
(print "Content-Type: text/html\r\n\r\n")
(print "")
(print [text]
Home |
Source
[/text])
(println "" (date) "
")
(println "")
(dolist (e (sort (env)))
(if (and (!= (e 0) "HTTP_COOKIE") (!= (e 0) "UNIQUE_ID"))
(println "| " (e 0) " | " (e 1) " |
\n")
)
)
(print "CGI by newLISP v" (sys-info -2)" on " ostype "")
(println "")
(exit)