From: Chris Hanson Date: Tue, 23 Nov 2004 18:00:22 +0000 (+0000) Subject: Eliminate kludge to deal with case-sensitive header matching in X-Git-Tag: 20090517-FFI~1441 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b86fc767887755946aef77c3af49b257a465a020;p=mit-scheme.git Eliminate kludge to deal with case-sensitive header matching in mod_lisp, as this has been fixed in 2.41. --- diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm index ac100290f..34b3fed2d 100644 --- a/v7/src/ssp/mod-lisp.scm +++ b/v7/src/ssp/mod-lisp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: mod-lisp.scm,v 1.17 2004/11/23 17:20:34 cph Exp $ +$Id: mod-lisp.scm,v 1.18 2004/11/23 18:00:22 cph Exp $ Copyright 2003,2004 Massachusetts Institute of Technology @@ -25,6 +25,8 @@ USA. ;;;; MIT/GNU Scheme interface to Apache mod-lisp. +;;; Requires mod_lisp 2.41, or mod_lisp2 1.2. + (declare (usual-integrations)) (define (start-mod-lisp-server) @@ -79,21 +81,7 @@ USA. (list (car p) (cdr p))) (http-message-headers message))))) (for-each (lambda (header) - ;; Kludge: mod-lisp uses case-sensitive comparisons for - ;; these headers. - (write-string (case (car header) - ((CONTENT-LENGTH) "Content-Length") - ((CONTENT-TYPE) "Content-Type") - ((KEEP-SOCKET) "Keep-Socket") - ((LAST-MODIFIED) "Last-Modified") - ((LOCATION) "Location") - ((LOG) "Log") - ((LOG-ERROR) "Log-Error") - ((NOTE) "Note") - ((SET-COOKIE) "Set-Cookie") - ((STATUS) "Status") - (else (symbol-name (car header)))) - port) + (write-string (symbol-name (car header)) port) (newline port) (write-string (cdr header) port) (newline port))