package myApp;
use Dancer2;
use Dancer2::Plugin::Auth::ActiveDirectory;
get '/loginForm' => sub {
template 'loginForm' => { 'title' => 'loginForm' };
};
post '/loginPost' => sub {
session 'user' => authenticate(params->{user}, params->{pass});
return template 'loggedIn' => {};
};
true;
####
plugins:
Auth::ActiveDirectory:
host: xxx.xxx.xxx.xxx
principal: 'OU=USER,OU=ACCOUNTS,OU=OUROU,DC=our,DC=domain,DC=com'
domain: our.domain.com
rights:
definedright1: 'Our Users'
####
Can't call method "groups" on unblessed reference at /home/camel/perl5/perlbrew/perls/perl-5.30.1/lib/site_perl/5.30.1/Dancer2/Plugin/Auth/ActiveDirectory.pm line 140.
/home/camel/perl5/perlbrew/perls/perl-5.30.1/lib/site_perl/5.30.1/Dancer2/Plugin/Auth/ActiveDirectory.pm around line 140
135
136 register authenticate => sub {
137 my ( $dsl, $name, $pass ) = @_;
138 my $user = _connect_to_ad($dsl)->authenticate( $name, $pass );
139 return $user if $user->{error};
140 my $user_groups = [ map { $_->name } @{ $user->groups } ];
141 return {
142 uid => $user->uid,
143 firstname => $user->firstname,
144 surname => $user->surname,
145 mail => $user->mail,