Skip to content

Commit 0fab562

Browse files
authored
Merge pull request #900 from metacpan/oalders/server-status
remove server-status URL for now
2 parents 8b0290f + 90aaf80 commit 0fab562

File tree

1 file changed

+3
-21
lines changed

1 file changed

+3
-21
lines changed

lib/MetaCPAN/Server.pm

Lines changed: 3 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -4,15 +4,14 @@ use Moose;
44

55
## no critic (Modules::RequireEndWithOne)
66
use Catalyst qw( +MetaCPAN::Role::Fastly::Catalyst ), '-Log=warn,error,fatal';
7-
use Log::Log4perl::Catalyst;
8-
97
use CatalystX::RoleApplicator;
8+
use Digest::SHA;
109
use File::Temp qw( tempdir );
10+
use Log::Log4perl::Catalyst;
11+
use Plack::Builder;
1112
use Plack::Middleware::ReverseProxy;
1213
use Plack::Middleware::ServerStatus::Lite;
1314
use Ref::Util qw( is_arrayref is_hashref );
14-
use Plack::Builder;
15-
use Digest::SHA;
1615

1716
extends 'Catalyst';
1817

@@ -123,23 +122,6 @@ sub app {
123122
enable 'Rewrite', rules => sub {s{^/?v\d+/}{}};
124123
}
125124

126-
# Using an ES client against the API requires an index (/v0).
127-
# In production nginx handles this.
128-
129-
unless ( $ENV{HARNESS_ACTIVE} or $0 =~ /\.t$/ ) {
130-
my $scoreboard = $class->path_to(qw(var tmp scoreboard));
131-
132-
# This may be a File object if it doesn't exist so change it, then make it.
133-
my $dir = Path::Class::Dir->new(
134-
ref $scoreboard ? $scoreboard->stringify : $scoreboard );
135-
$dir->mkpath unless -d $dir;
136-
137-
enable 'ServerStatus::Lite',
138-
path => '/server-status',
139-
allow => ['127.0.0.1'],
140-
scoreboard => $scoreboard,
141-
;
142-
}
143125
$class->apply_default_middlewares( $class->psgi_app );
144126
};
145127
}

0 commit comments

Comments
 (0)