app.psgi

   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 }