[Catalyst-commits] r8870 - in trunk/examples/CatalystAdvent/root: 2008/pen static/2008/txt

[jayk at dev.catalyst.perl.org]

Author: jayk
Date: 2008-12-14 08:42:44 +0000 (Sun, 14 Dec 2008)
New Revision: 8870

Modified:
   trunk/examples/CatalystAdvent/root/2008/pen/varnish_pt1.pod
   trunk/examples/CatalystAdvent/root/static/2008/txt/catalyst_vcl.txt
Log:
Removed a bit too much.  adding no-cache stuff back to vcl

Modified: trunk/examples/CatalystAdvent/root/2008/pen/varnish_pt1.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2008/pen/varnish_pt1.pod	2008-12-14 08:36:14 UTC (rev 8869)
+++ trunk/examples/CatalystAdvent/root/2008/pen/varnish_pt1.pod	2008-12-14 08:42:44 UTC (rev 8870)
@@ -443,7 +443,7 @@
 
  if(obj.http.Pragma ~ "no-cache" ||
     obj.http.Cache-Control ~ "no-cache" ||
-    obj.http.Cache-Control ~ "private"){
+    obj.http.Cache-Control ~ "private") {
          pass;
  }
 

Modified: trunk/examples/CatalystAdvent/root/static/2008/txt/catalyst_vcl.txt
===================================================================
--- trunk/examples/CatalystAdvent/root/static/2008/txt/catalyst_vcl.txt	2008-12-14 08:36:14 UTC (rev 8869)
+++ trunk/examples/CatalystAdvent/root/static/2008/txt/catalyst_vcl.txt	2008-12-14 08:42:44 UTC (rev 8870)
@@ -123,6 +123,15 @@
         pass;
     }
     
+     ## if the object is specifically saying 'don't cache me' -  
+     ## obey it.
+     if(obj.http.Pragma ~ "no-cache" ||  
+        obj.http.Cache-Control ~ "no-cache" || 
+        obj.http.Cache-Control ~ "private")  {   
+    
+        pass;
+    } 
+    
     ## if the object is saying how long to cache it, you 
     ## can rely on the fact that it is cachable. 
     if (obj.http.Cache-Control ~ "max-age") {