mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

permit non-date values for Expires header

Browse source 
* module/web/http.scm ("Expires"): Permit (some) non-date values.
This commit is contained in:
Daniel Hartwig 2011-12-27 22:24:28 +08:00 • committed by Andy Wingo
parent 9d608ede96
commit 0e947e1d14
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/web/http.scm
View file

@ -1514,7 +1514,15 @@ phrase\"."
;; Expires = HTTP-date ;; Expires = HTTP-date
;; ;;
(declare-date-header! "Expires") (define *date-in-the-past* (parse-date "Thu, 01 Jan 1970 00:00:00 GMT"))
(declare-header! "Expires"
(lambda (str)
(if (member str '("0" "-1"))
*date-in-the-past*
(parse-date str)))
date?
write-date)
;; Last-Modified = HTTP-date ;; Last-Modified = HTTP-date
;; ;;