45 lines
1.1 KiB
Perl
45 lines
1.1 KiB
Perl
package Lemonldap::NG::Portal::Plugins::History;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(PE_INFO PE_OK);
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
extends 'Lemonldap::NG::Portal::Main::Plugin',
|
|
'Lemonldap::NG::Portal::Lib::OtherSessions';
|
|
|
|
sub afterDatas { 'run' }
|
|
|
|
sub init { 1 }
|
|
|
|
sub run {
|
|
my ( $self, $req ) = @_;
|
|
if ( $req->param('checkLogins') ) {
|
|
$self->logger->debug('History asked');
|
|
$req->info(
|
|
(
|
|
$req->sessionInfo->{loginHistory}->{successLogin}
|
|
? $self->mkSessionArray(
|
|
$req->sessionInfo->{loginHistory}->{successLogin},
|
|
'lastLogins', 0, 0 )
|
|
: ""
|
|
)
|
|
. (
|
|
$req->sessionInfo->{loginHistory}->{failedLogin}
|
|
? $self->mkSessionArray(
|
|
$req->sessionInfo->{loginHistory}->{failedLogin},
|
|
'lastFailedLogins', 0, 1 )
|
|
: ""
|
|
)
|
|
);
|
|
unless ( $req->info ) {
|
|
$req->info('<p trspan="noHistory"></p>');
|
|
}
|
|
return PE_INFO;
|
|
}
|
|
return PE_OK;
|
|
}
|
|
|
|
1;
|