Merge pull request #1000 from CPAN-API/leo/fastly

Add Surrogate-Control header to stop fastly caching by accident
metacpan · Nov 29, 2013 · 60b3613 · 60b3613
2 parents 8aa58c5 + 2a98089
commit 60b3613
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