Update CGI version
This commit is contained in:
parent
50d71b5a60
commit
6b4ebde2ef
|
|
@ -52,16 +52,13 @@ hello.scm:
|
||||||
(scheme write)
|
(scheme write)
|
||||||
(retropikzel cgi))
|
(retropikzel cgi))
|
||||||
|
|
||||||
(display "Content-type: text/html")
|
(handle-request
|
||||||
(display "\r\n")
|
'()
|
||||||
(display "\r\n")
|
(lambda (request headers parameters cookies body files)
|
||||||
(display "Hello")
|
(display "Content-type: text/html")
|
||||||
(display "</br>")
|
(display "\r\n")
|
||||||
|
(display "\r\n")
|
||||||
(display "Request: ")
|
(display "Hello")))
|
||||||
(write (get-request))
|
|
||||||
(display "</br>")
|
|
||||||
(cgi-exit)
|
|
||||||
|
|
||||||
Run:
|
Run:
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
1.1.0
|
1.2.0
|
||||||
|
|
|
||||||
|
|
@ -5,8 +5,11 @@
|
||||||
(retropikzel cgi)
|
(retropikzel cgi)
|
||||||
(srfi 64))
|
(srfi 64))
|
||||||
|
|
||||||
(test-begin "cgi")
|
(handle-request
|
||||||
|
'()
|
||||||
|
(lambda (request headers parameters cookies body files)
|
||||||
|
(display "Content-type: text/html")
|
||||||
|
(display "\r\n")
|
||||||
|
(display "\r\n")
|
||||||
|
(display "Hello")))
|
||||||
|
|
||||||
(display "Hello")
|
|
||||||
|
|
||||||
(test-end "cgi")
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue