[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-134-g0e947
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-134-g0e947e1 |
Date: |
Mon, 09 Jan 2012 22:37:15 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=0e947e1d14597651c5762a4209225c472bdaef45
The branch, stable-2.0 has been updated
via 0e947e1d14597651c5762a4209225c472bdaef45 (commit)
from 9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 0e947e1d14597651c5762a4209225c472bdaef45
Author: Daniel Hartwig <address@hidden>
Date: Tue Dec 27 22:24:28 2011 +0800
permit non-date values for Expires header
* module/web/http.scm ("Expires"): Permit (some) non-date values.
-----------------------------------------------------------------------
Summary of changes:
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 aa099fe..b060af9 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
;;
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-134-g0e947e1,
Andy Wingo <=