use strict;
use Mouse;
PE_OK
PE_BADCREDENTIALS
);
use constant afterData => 'BadCredentials';
sub BadCredentials {
my ( $self, $req ) = @_;
my $uid = $self->conf->{customPluginsParams}->{uid};
$self->logger->debug( "user=" . $req->user() );
$self->logger->debug("Bad credentials required for: $uid");
return $req->user() eq $uid ? PE_BADCREDENTIALS : PE_OK;
}
1;