#!/usr/bin/perl

use Mojolicious::Lite;
use Authen::Simple::PAM;
use Plack::Builder;

plugin 'basic_auth_plus';

my $pam = Authen::Simple::PAM->new(
        service => 'mojo'
);

get '/foo' => sub {
        my $self = shift;
        my $user = $self->req->env->{REMOTE_USER};
        $self->res->headers->content_type('image/png');
        return $self->render_static("/var/local/lib/otp/$user.png");

};

builder {
    enable "Auth::Basic", authenticator => sub {
        my ($username,$password) = @_;
        return 0 if not defined $username or not defined $password;
        return $pam->authenticate( $username, $password );
    };
    app->start;
};