Rewrite /v0 => / in development for es clients

metacpan · May 24, 2014 · f1269f1 · f1269f1
1 parent 8f71cd1
commit f1269f1
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Server.pm b/lib/MetaCPAN/Server.pm
@@ -82,6 +82,14 @@ __PACKAGE__->setup(
 
 my $app = __PACKAGE__->apply_default_middlewares( __PACKAGE__->psgi_app );
 
+# Using an ES client against the API requires an index (/v0).
+# In production nginx handles this.
+if ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} eq 'development' ) {
+    require Plack::Middleware::Rewrite;
+    $app = Plack::Middleware::Rewrite->wrap( $app,
+        rules => sub {s{^/?v\d+/}{}} );
+}
+
 # Should this be `unless ( $ENV{HARNESS_ACTIVE} ) {` ?
 {
     my $scoreboard = __PACKAGE__->path_to(qw(var tmp scoreboard));