From: Marius Gavrilescu Date: Sun, 1 Mar 2015 08:02:57 +0000 (+0200) Subject: Merge branch 'master' into newmc X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;ds=sidebyside;h=a8dc218ceb178e05b574deed4090503fa9be3502;hp=-c;p=gruntmaster-page.git Merge branch 'master' into newmc --- a8dc218ceb178e05b574deed4090503fa9be3502 diff --combined app.psgi index a4e0c34,85e8847..728e144 --- a/app.psgi +++ b/app.psgi @@@ -12,7 -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 +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 +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 }