Add Surrogate-Control header to stop fastly caching by accident

metacpan · Nov 22, 2013 · 2a98089 · 2a98089
1 parent 6db8046
commit 2a98089
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Root.pm b/lib/MetaCPAN/Web/Controller/Root.pm
@@ -81,6 +81,16 @@ sub end : ActionClass('RenderView') {
     $c->stash->{api}        = $c->config->{api};
     $c->stash->{api_secure} = $c->config->{api_secure} || $c->config->{api};
     $c->res->header( Vary => 'Cookie' );
+
+    unless(
+        # Already have something set for fastly
+        $c->res->header('Surrogate-Control') ||
+        # We'll use Last-Modified for now
+        $c->res->header('Last-Modified')
+        ) {
+            # Make sure fastly doesn't cache anything by accident
+            $c->res->header('Surrogate-Control' => 0);
+    }
 }
 
 =head1 AUTHOR