PE_OK
PE_INFO
)
;
our
$VERSION
=
'2.0.14'
;
extends
qw(
Lemonldap::NG::Portal::Lib::OtherSessions
)
;
sub
run {
my
(
$self
,
$req
) =
@_
;
if
(
$req
->param(
'checkLogins'
) ) {
$self
->logger->debug(
'History asked'
);
$req
->info( (
$req
->sessionInfo->{_loginHistory}->{successLogin}
?
$self
->p->mkSessionArray(
$req
,
$req
->sessionInfo->{_loginHistory}->{successLogin},
'lastLogins'
, 0, 0 )
:
""
)
. (
"<hr>"
)
. (
$req
->sessionInfo->{_loginHistory}->{failedLogin}
?
$self
->p->mkSessionArray(
$req
,
$req
->sessionInfo->{_loginHistory}->{failedLogin},
'lastFailedLogins'
, 0, 1 )
:
""
)
);
$req
->info(
$self
->loadTemplate(
$req
,
'noHistory'
) )
unless
(
$req
->info );
return
PE_INFO;
}
return
PE_OK;
}
1;