diff options
author | Daniel Hartwig <mandyke@gmail.com> | 2011-12-27 22:24:28 +0800 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-09 23:36:59 +0100 |
commit | 0e947e1d14597651c5762a4209225c472bdaef45 (patch) | |
tree | c84eccfe3884dc28e535ee5fadc21e7d73fbf704 | |
parent | 9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a (diff) | |
download | guile-0e947e1d14597651c5762a4209225c472bdaef45.tar.gz |
permit non-date values for Expires header
* module/web/http.scm ("Expires"): Permit (some) non-date values.
-rw-r--r-- | 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 aa099feaa..b060af91e 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1514,7 +1514,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 ;; |