# HG changeset patch
# User Vladimir Shabanov <vshabanoff@gmail.com>
# Date 1347464942 -14400
# Node ID e6ff36097cc4c646ad5cf5e75bb0d369cd14d9ac
# Parent  2d9f831d45c90334c54bc810bdcbd11b852a76f5
Fixed HTTP date format and added Cache-Control to app.js

diff -r 2d9f831d45c9 -r e6ff36097cc4 src/cjr_print.sml
--- 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;",