From baa94864881ef7db28dbdc523432e5f558258d2c Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 22 Apr 2003 13:49:49 +0000
Subject: [PATCH] Make MAKE-ERROR-RESPONSE work for "method not allowed"
 responses.

---
 scheme/httpd/response.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/scheme/httpd/response.scm b/scheme/httpd/response.scm
index a4b974d..80903ce 100644
--- a/scheme/httpd/response.scm
+++ b/scheme/httpd/response.scm
@@ -174,6 +174,15 @@
 	 (send-message port)
 	 (close-html port))))
 
+     ((eq? code (status-code method-not-allowed))
+      (create-response
+       '()
+       (lambda (port options)
+	 (generic-title port)
+	 (write-string "<P>Method not allowed.\n" port)
+	 (send-message port)
+	 (close-html port))))
+
      ((eq? code (status-code unauthorized))
       (create-response
        (list (cons 'WWW-Authenticate message)) ; Vas is das?