X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=app.psgi;h=837dd60ab51e100408d84934eb6d7fd80a4a724c;hb=b876342c5975a7c67d227577f43d55b42a3a0a26;hp=be72e9b18b9bd2fa4dd7ea7317d41d84a44e035c;hpb=69d77267e240ef389facf309d33d4cbe68a98895;p=gruntmaster-page.git diff --git a/app.psgi b/app.psgi index be72e9b..837dd60 100644 --- a/app.psgi +++ b/app.psgi @@ -1,6 +1,6 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use v5.14; -no if $] >= 5.017011, warnings => 'experimental::smartmatch'; +use warnings; use Gruntmaster::Data; use Plack::App::Gruntmaster; @@ -8,19 +8,16 @@ use Plack::Builder; use Plack::Util; use Log::Log4perl; -use constant AUTH_TIMEOUT => 5 * 60; -use constant ACCESSLOG_FORMAT => '%{X-Forwarded-For}i %l %u %t "%r" %>s %b "%{Referer}i" "%{User-agent}i"'; - sub CONTENT_SECURITY_POLICY () { my $csp = <init_once('log.conf'); -my $access_logger = Log::Log4perl->get_logger('access'); $ENV{DBIC_NULLABLE_KEY_NOWARN} = 1; builder { enable_if { $_[0]->{PATH_INFO} eq '/ok' } sub { sub{ [200, [], []] }}; - enable 'AccessLog', format => ACCESSLOG_FORMAT, logger => sub { $access_logger->info(@_) }; enable 'ContentLength'; enable \&add_headers; enable 'Static', path => qr,^/static/,;