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

View File

@ -287,7 +287,7 @@
((null? (cdr stat-lines)) ; One line status header.
(with-fatal-error-handler*
(lambda (c d)
(http-error http-status/internal-error req
(http-error http-status/bad-gateway req
"CGI script generated an invalid status header."
(car stat-lines) c))
(lambda ()
@ -295,5 +295,5 @@
(cons (string->number (substring status 0 3)) ; number
(substring/shared status 4)))))) ; text
(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."))))

View File

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