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

report BAD-GATEWAY error instead INTERNAL-ERROR

This commit is contained in:
interp 2002-09-03 11:55:53 +00:00
parent 443e321cc8
commit 1694d372c5
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -287,7 +287,7 @@
((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)
(http-error http-status/internal-error req (http-error http-status/bad-gateway req
"CGI script generated an invalid status header." "CGI script generated an invalid status header."
(car stat-lines) c)) (car stat-lines) c))
(lambda () (lambda ()
@ -295,5 +295,5 @@
(cons (string->number (substring status 0 3)) ; number (cons (string->number (substring status 0 3)) ; number
(substring/shared status 4)))))) ; text (substring/shared status 4)))))) ; text
(else ; Vas ist das? (else ; Vas ist das?
(http-error http-status/internal-error req (http-error http-status/bad-gateway req
"CGI script generated multi-line status header.")))) "CGI script generated multi-line status header."))))

2
scheme/httpd/info-gateway.scm
View File

@ -141,7 +141,7 @@
(lambda (c decline) (lambda (c decline)
(cond (cond
((info-gateway-error? c) ((info-gateway-error? c)
(apply http-error http-status/internal-error req (apply http-error http-status/bad-gateway req
(condition-stuff c))) (condition-stuff c)))
((http-error? c) ((http-error? c)
(apply http-error (car (condition-stuff c)) req (apply http-error (car (condition-stuff c)) req