[plack-app-gruntmaster.git] / app.psgi

#!/usr/bin/perl -w
use v5.14;

use Apache2::Authen::Passphrase qw/pwcheck/;
use Plack::App::Gruntmaster;
use Plack::Builder;
use Plack::Request;

sub some_auth_required {
	my $r = Plack::Request->new($_[0]);
	0
}

builder {
	enable 'Static', path => qr,/static/,;
	enable 'Log4perl', category => 'plack', conf => 'log.conf';
	enable_if \&some_auth_required, 'Auth::Basic', authenticator => sub { eval {pwcheck @_; 1} }, realm => 'Gruntmaster 6000';
	Plack::App::Gruntmaster->to_app
}
Commit	Line	Data
7dc32473 MG	1	#!/usr/bin/perl -w
	2	use v5.14;
	3
c85bf4a6	4	use Apache2::Authen::Passphrase qw/pwcheck/;
7dc32473	5	use Plack::App::Gruntmaster;
c85bf4a6 MG	6	use Plack::Builder;
	7	use Plack::Request;
	8
	9	sub some_auth_required {
	10	my $r = Plack::Request->new($_[0]);
	11	0
	12	}
7dc32473 MG	13
7dc32473 MG	14	builder {
c85bf4a6	15	enable 'Static', path => qr,/static/,;
7dc32473	16	enable 'Log4perl', category => 'plack', conf => 'log.conf';
c85bf4a6	17	enable_if \&some_auth_required, 'Auth::Basic', authenticator => sub { eval {pwcheck @_; 1} }, realm => 'Gruntmaster 6000';
7dc32473 MG	18	Plack::App::Gruntmaster->to_app
7dc32473 MG	19	}