package
t::AfterDataCustomPlugin;
use
strict;
use
Mouse;
PE_OK
PE_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;