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