Mercurial > urweb

diff src/cjr_print.sml @ 1823:66a58d8501e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author Adam Chlipala <adam@chlipala.net>
date Wed, 19 Sep 2012 14:36:12 -0400
parents e6ff36097cc4
children 16b08de04f05
line wrap: on
line diff
--- a/src/cjr_print.sml	Wed Sep 19 14:20:47 2012 -0400
+++ b/src/cjr_print.sml	Wed Sep 19 14:36:12 2012 -0400
@@ -3239,7 +3239,7 @@
 
         val now = Time.now ()
         val nowD = Date.fromTimeUniv now
-        val rfcFmt = "%a, %d %b %Y %H:%M:%S"
+        val rfcFmt = "%a, %d %b %Y %H:%M:%S GMT"
     in
         box [string "#include \"",
              string (OS.Path.joinDirFile {dir = !Settings.configInclude,
@@ -3430,6 +3430,8 @@
                   newline,
                   string ("uw_write_header(ctx, \"Last-modified: " ^ Date.fmt rfcFmt nowD ^ "\\r\\n\");"),
                   newline,
+                  string ("uw_write_header(ctx, \"Cache-Control: max-age=31536000, public\\r\\n\");"),                  
+                  newline,
                   string "uw_write(ctx, jslib);",
                   newline,
                   string "return;",