scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use HTTP-STATUS/OK constant instead of integer 200

This commit is contained in:
interp 2002-09-03 13:33:43 +00:00
parent 80257c0822
commit 794412df5a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/httpd/cgi-server.scm
View File

@ -270,12 +270,11 @@
ctype ctype
extra-headers extra-headers
(make-writer-body (make-writer-body
(lambda (out options) ; what about status? (lambda (out options)
(copy-inport->outport script-port out) (copy-inport->outport script-port out)
(close-input-port script-port))))))) (close-input-port script-port)))))))
;; shouldn't this be in uri?
(define (uri-has-protocol? loc) (define (uri-has-protocol? loc)
(receive (proto path search frag) (receive (proto path search frag)
(parse-uri loc) (parse-uri loc)
@ -284,7 +283,7 @@
(define (extract-status-code-and-text stat-lines req) (define (extract-status-code-and-text stat-lines req)
(cond (cond
((not (pair? stat-lines)) ; No status header. ((not (pair? stat-lines)) ; No status header.
(cons 200 "The idiot CGI script left out the status line.")) (cons http-status/ok "The idiot CGI script left out the status line."))
((null? (cdr stat-lines)) ; One line status header. ((null? (cdr stat-lines)) ; One line status header.
(with-fatal-error-handler* (with-fatal-error-handler*
(lambda (c d) (lambda (c d)