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         my $word = qr,(\w+),a;
  12         return 1 if $r->path eq '/action/passwd' || $r->path =~ m,/pb/$word/submit$,;
  13         0
  14 }
  15
  16 builder {
  17         enable 'ContentLength';
  18         enable 'Static', path => qr,/static/,;
  19         enable 'Log4perl', category => 'plack', conf => 'log.conf';
  20         enable_if \&some_auth_required, 'Auth::Basic', authenticator => sub { eval {pwcheck @_; 1} }, realm => 'Gruntmaster 6000';
  21         Plack::App::Gruntmaster->to_app
  22 }