From 8b7eda0bd7b03467f6eef0ce6c99dedf8fd3ac0c Mon Sep 17 00:00:00 2001 From: Daniel Hartwig Date: Tue, 27 Dec 2011 22:24:28 +0800 Subject: [PATCH] permit non-date values for Expires header * module/web/http.scm ("Expires"): Permit (some) non-date values. --- module/web/http.scm | 10 +++++++++- 1 files changed, 9 insertions(+), 1 deletions(-) diff --git a/module/web/http.scm b/module/web/http.scm index afe70a7..9bb4449 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1506,7 +1506,15 @@ phrase\"." ;; 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 ;; -- 1.7.5.4