1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/env newlisp
#
;;
;; prints the environment
;;
(print "Content-Type: text/html\r\n\r\n")
(print "<html>")
(print [text]
<A HREF="http://newlisp.org">Home</A> |
<A HREF="http:syntax.cgi?environment.txt">Source</A>
[/text])
(println "<h2>" (date) "</h2>")
(println "<table border=1>")
(dolist (e (sort (env)))
(if (and (!= (e 0) "HTTP_COOKIE") (!= (e 0) "UNIQUE_ID"))
(println "<tr><td>" (e 0) "</td><td>" (e 1) "</td></tr>\n")
)
)
(print "<h4>CGI by newLISP v" (sys-info -2)" on " ostype "<h4>")
(println "</html>")
(exit)
|
