[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]);
	return 1 if $r->path eq '/action/passwd';
	0
}

builder {
	enable 'ContentLength';
	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]);
31d70015	11	return 1 if $r->path eq '/action/passwd';
c85bf4a6 MG	12	0
c85bf4a6 MG	13	}
7dc32473 MG	14
7dc32473 MG	15	builder {
287424cb	16	enable 'ContentLength';
c85bf4a6	17	enable 'Static', path => qr,/static/,;
7dc32473	18	enable 'Log4perl', category => 'plack', conf => 'log.conf';
c85bf4a6	19	enable_if \&some_auth_required, 'Auth::Basic', authenticator => sub { eval {pwcheck @_; 1} }, realm => 'Gruntmaster 6000';
7dc32473 MG	20	Plack::App::Gruntmaster->to_app
7dc32473 MG	21	}