X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=app.psgi;h=728e144e4cf0b742cf7f22765925419d51f350e1;hb=a8dc218ceb178e05b574deed4090503fa9be3502;hp=c61b8bbbb4c8c78dde09bbd09e2eecb69ebde8da;hpb=031ffaf58cc26884316489ca7d99a867840bf957;p=gruntmaster-page.git diff --git a/app.psgi b/app.psgi index c61b8bb..728e144 100644 --- a/app.psgi +++ b/app.psgi @@ -12,7 +12,7 @@ use Log::Log4perl; use Tie::Hash::Expire; use constant AUTH_TIMEOUT => 5 * 60; -use constant ACCESSLOG_FORMAT => 'combined'; +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 = <connect($ENV{GRUNTMASTER_DSN} // 'dbi:Pg:'); +my $db; tie my %auth, 'Tie::Hash::Expire', {expire_seconds => AUTH_TIMEOUT}; @@ -42,6 +42,16 @@ sub authenticate { $auth{key} = 1; } +sub add_database { + my $app = $_[0]; + sub { + my ($env) = @_; + $db //= Gruntmaster::Data->connect($ENV{GRUNTMASTER_DSN} // 'dbi:Pg:'); + $env->{'gruntmaster.dbic'} = $db; + $app->($env) + } +} + sub add_headers { my $app = $_[0]; sub { @@ -65,7 +75,7 @@ builder { enable \&add_headers; enable 'Static', path => qr,^/static/,; enable 'Log4perl', category => 'plack'; + enable \&add_database; enable_if { shift->{HTTP_AUTHORIZATION} } 'Auth::Basic', authenticator => \&authenticate, realm => 'Gruntmaster 6000'; - enable sub { my $app = $_[0]; sub { $_[0]->{'gruntmaster.dbic'} = $db; $app->($_[0]) } }; Plack::App::Gruntmaster->run_if_script }