changeset 1818:e6ff36097cc4

Fixed HTTP date format and added Cache-Control to app.js
author Vladimir Shabanov <vshabanoff@gmail.com>
date Wed, 12 Sep 2012 19:49:02 +0400
parents 2d9f831d45c9
children c9c38157d0d3
files src/cjr_print.sml
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/cjr_print.sml	Mon Sep 03 09:51:23 2012 -0400
+++ b/src/cjr_print.sml	Wed Sep 12 19:49:02 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;",