X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=app.psgi;h=b29127c24e3e1375ae8e65ea4c3ddddf98930beb;hb=8e3f7d1e659c971fe718b6dccd0b904ed2c0d35a;hp=02d6e88f2218e0be2cb1b1442787b8001c63de04;hpb=7dc3247307f2e86af154dc449224f22ba8923c79;p=plack-app-gruntmaster.git diff --git a/app.psgi b/app.psgi index 02d6e88..b29127c 100644 --- a/app.psgi +++ b/app.psgi @@ -1,11 +1,65 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl use v5.14; +use warnings; -use Plack::Builder; +use Gruntmaster::Data; use Plack::App::Gruntmaster; +use Plack::Builder; +use Plack::Util; +use Log::Log4perl; + +sub CONTENT_SECURITY_POLICY () { + my $csp = <connect($ENV{GRUNTMASTER_DSN} // 'dbi:Pg:'); + $env->{'gruntmaster.dbic'} = $db; + $app->($env) + } +} + +sub add_headers { + my $app = $_[0]; + sub { + my $resp = $app->($_[0]); + my $hdrs = Plack::Util::headers($resp->[1]); + $hdrs->set('Content-Security-Policy', CONTENT_SECURITY_POLICY); + $hdrs->set('Cache-Control', 'public, max-age=604800') if $_[0]->{PATH_INFO} =~ qr,^/static/,; + $resp->[1] = $hdrs->headers; + $resp; + } +} + +Log::Log4perl->init_once('log.conf'); +$ENV{DBIC_NULLABLE_KEY_NOWARN} = 1; builder { - enable 'Static', path => qr,/static/,, pass_through => 1; - enable 'Log4perl', category => 'plack', conf => 'log.conf'; - Plack::App::Gruntmaster->to_app + enable_if { $_[0]->{PATH_INFO} eq '/ok' } sub { sub{ [200, [], []] }}; + enable 'ContentLength'; + enable \&add_headers; + enable 'Static', path => qr,^/static/,; + enable 'Log4perl', category => 'plack'; + enable \&add_database; + enable '+Plack::App::Gruntmaster::Auth', + dbi_connect => [$ENV{GRUNTMASTER_DSN} // 'dbi:Pg:', '', ''], + realm => 'Gruntmaster 6000', + mail_from => $ENV{GRUNTMASTER_RESET_FROM}; + Plack::App::Gruntmaster->run_if_script }