package DPAE;
#=======================================================
# **** do not use Shotgun - resets session every request
#=======================================================
use Dancer2;
use DPAE::Plugin::Admin;
use Dancer2::Plugin::Auth::Extensible;
use Data::Dumper;
use Data::Printer alias => 'ddp';
our $VERSION = '0.1';
set auto_page => 1; # /denied (DPAE)
# hook before => sub { my $session = session; ddp $session; };
hook before => sub { _debug('=' x 80) };
hook before_template_render => sub {
my $tokens = shift;
};
get '/' => sub {
my $session = session; # p $session;
template 'index';
};
get '/admin' => require_role Admin => sub {
return 'you have Admin role';
};
get '/beer' => require_role BeerDrinker => sub {
my $user = logged_in_user; # ddp $user;
return 'you have BeerDrinker role';
};
get '/bar' => require_role NoExists => sub {
return "you'll never get here!!";
};
get '/register' => require_role register => sub {
my $user = logged_in_user; # ddp $user; # user_profile href
return "you have 'register' role";
};
get '/users' => require_login sub {
my $user = logged_in_user; # ddp $user; # user_profile href
return "Hi there, $user->{username}";
};
get '/user/:user/:pass' => sub { # set env SKIP_PASSWORD=1 to enter random pwd
my ($user, $pwd) = map route_parameters->get($_), qw/user pass/; # ddp [$user,$pwd];
if ( authenticate_user($user, $pwd) ) { # warn 'here';
if ( my $u = logged_in_user ) { # ddp $u;
return $u->{username} . 'authenticated and logged in';
}
else { # warn 'here'; # doesn't automatically get logged-in
return "$user authenticated but not logged in";
}
}
return 'user not authenticated';
};
get '/wine' => sub {
if ( authenticate_user('') ) {
}
else {
}
};
get '/drink' => require_any_role [qw(BeerDrinker VodkaDrinker)] => sub {
return 'you can drink';
};
get '/get_drunk' => require_all_roles [qw(BeerDrinker VodkaDrinker)] => sub {
return 'you are drunk!!';
};
get '/test' => require_role TestRole => sub {
return 'test access success';
};
# DPAE::Plugin::Admin:
get '/keys_to_safe' => needs_admin sub {
return 'locked inside safe!!';
};
any '/logout' => sub {
app->destroy_session;
redirect '/';
};
sub permission_denied { template denied => {}, { layout => undef } }
sub _debug {
return unless app->environment eq 'development';
ddp @_;
}
=begin # auto-login:
get '/login' => sub {
session logged_in_user => 'raj';
session logged_in_user_realm => 'config';
#redirect '/';
};
=cut
true;