#!/usr/bin/env newlisp
#

;;
;; prints the environment
;;
(print "Content-Type: text/html\r\n\r\n")
(print "")

(print [text]
Home (http://newlisp.org) |
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 "<h4>CGI by newLISP v" (sys-info -2)" on " ostype "<h4>")
(println "")
(exit)

