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
|
(load "/usr/local/eus/lib/llib/httpfcgi.l")
(defvar *count* 0)
(fcgi-loop
;; get-cookie has been done.
(incf *count*)
(setq con (fcgi-connection 'eusid))
(set-cookie 'eusid (send con :cookie))
(html-header)
(gen "~%~%")
(gen (html *cookies* con))
(gen (html "~%<body><h1>Hello World " *count* "</h1>~%" ))
(gen (html (unix:environ)))
(gen (html "<pre>~%"))
(gen (html (send-all *fcgi-connections* :cookie)))
(gen (html "</pre>~%"))
(gen "<h2>Good-bye</h2>~%")
(gen "</body> </html>~%")
)
|
