aliens/tekuti
1
0
Fork 0
Code Activity

handle HEAD requests (requires Guile from today)

Browse source 
* tekuti/request.scm (request-path-case): Dispatch HEAD requests as GET
  requests, relying on new Guile web servers to elide the HEAD body.
This commit is contained in:
Andy Wingo 2012-02-12 13:46:22 +01:00
parent afec0daa99
commit 29a6144123
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tekuti/request.scm
View file

@ -1,5 +1,5 @@
;; Tekuti ;; Tekuti
;; Copyright (C) 2008, 2010, 2011 Andy Wingo <wingo at pobox dot com> ;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -162,7 +162,14 @@
(define-syntax request-path-case (define-syntax request-path-case
(syntax-rules () (syntax-rules ()
((_ request clause ...) ((_ request clause ...)
(let ((r request)) (let* ((r request)
(method (request-method r)))
(path-proc-case (path-proc-case
(cons (symbol->string (request-method r)) (request-relative-path r)) (cons (symbol->string
(case method
;; Treat HEAD as GET, for the purposes of dispatching
;; requests.
((HEAD) 'GET)
(else method)))
(request-relative-path r))
clause ...))))) clause ...)))))