From e4a887d491d977570997e74cbc2634854d6a258a Mon Sep 17 00:00:00 2001 From: vibr Date: Mon, 24 May 2004 15:54:58 +0000 Subject: [PATCH] Revert last commit. --- scheme/httpd/response.scm | 34 +++++++--------------------------- 1 file changed, 7 insertions(+), 27 deletions(-) diff --git a/scheme/httpd/response.scm b/scheme/httpd/response.scm index 9f5aca5..4fa7873 100644 --- a/scheme/httpd/response.scm +++ b/scheme/httpd/response.scm @@ -66,56 +66,36 @@ (number status-code-number) (message status-code-message) ( - (continue 100 "Continue") - (switch-protocol 101 "Switching Protocols") - (ok 200 "OK") (created 201 "Created") (accepted 202 "Accepted") - (non-author-info 203 "Non-Authoritative Information") + (prov-info 203 "Provisional Information") (no-content 204 "No Content") - (reset-content 205 "Reset Content") - (partial-content 206 "Partial Content") (mult-choice 300 "Multiple Choices") (moved-perm 301 "Moved Permanently") - (found 302 "Found");;use 303 or 307 for unambiguity; - ;;use 302 for compatibility with - ;;pre-1.1-clients - (see-other 303 "See other");;client is expected to - ;;perform a GET on new URI + (moved-temp 302 "Moved Temporarily") + (method 303 "Method (obsolete)") (not-mod 304 "Not Modified") - (use-proxy 305 "Use Proxy") - (temp-redirect 307 "Temporary Redirect");;analogous to "302 - ;;Moved Temporarily" - ;;in RFC1945 (bad-request 400 "Bad Request") (unauthorized 401 "Unauthorized") - (payment-required 402 "Payment Required") + (payment-req 402 "Payment Required") (forbidden 403 "Forbidden") (not-found 404 "Not Found") (method-not-allowed 405 "Method Not Allowed") - (not-acceptable 406 "Not Acceptable") + (none-acceptable 406 "None Acceptable") (proxy-auth-required 407 "Proxy Authentication Required") (timeout 408 "Request Timeout") (conflict 409 "Conflict") - (gone 410 "Gone") - (length-required 411 "Length Required") - (precon-failed 412 "Precondition Failed") - (req-ent-too-large 413 "Request Entity Too Large") - (req-uri-too-large 414 "Request URI Too Large") - (unsupp-media-type 415 "Unsupported Media Type") - (req-range-not-sat 416 "Requested Range Not Satisfiable") - (expectation-failed 417 "Expectation Failed") + (gone 410 "Gone") (internal-error 500 "Internal Server Error") (not-implemented 501 "Not Implemented") (bad-gateway 502 "Bad Gateway") (service-unavailable 503 "Service Unavailable") (gateway-timeout 504 "Gateway Timeout") - (version-not-supp 505 "HTTP Version Not Supported") - + (redirect -301 "Internal redirect"))) (define (name->status-code name)