54 lines
1.2 KiB
Perl
54 lines
1.2 KiB
Perl
package Lemonldap::NG::Portal::Plugins::History;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(
|
|
PE_OK
|
|
PE_INFO
|
|
);
|
|
|
|
our $VERSION = '2.1.0';
|
|
|
|
extends qw(
|
|
Lemonldap::NG::Portal::Main::Plugin
|
|
Lemonldap::NG::Portal::Lib::OtherSessions
|
|
);
|
|
|
|
# INITIALIZATION
|
|
|
|
use constant endAuth => 'run';
|
|
|
|
sub init { 1 }
|
|
|
|
# RUNNING METHOD
|
|
|
|
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;
|