#! /usr/local/bin/clisp
;;; -*- Mode: Lisp -*-
;;;
;;; $Header: /home/gene/library/website/docsrc/lc/RCS/show-env.lisp,v 395.1 2008/04/20 17:25:45 gene Exp $
;;;
;;; Make an HTML table of the CGI environment variables.
;;;
(format t "Content-type: text/html~%")
(format t "~%")
(format t "~%~%")
(format t "CGI environment variables~%")
(format t "~%~%")
(mapc #'(lambda (env)
(format t "| ~A | ~A |
~%"
env (or (system::getenv env) "")))
'("AUTH_TYPE"
"CONTENT_LENGTH"
"CONTENT_TYPE"
"GATEWAY_INTERFACE"
"PATH_INFO"
"PATH_TRANSLATED"
"QUERY_STRING"
"REMOTE_ADDR"
"REMOTE_HOST"
"REMOTE_IDENT"
"REMOTE_USER"
"REQUEST_METHOD"
"SCRIPT_NAME"
"SERVER_NAME"
"SERVER_PORT"
"SERVER_PROTOCOL"
"SERVER_SOFTWARE"))
(format t "
~%~%