lemonldap-ng/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/History.pm

50 lines
1.2 KiB
Perl
Raw Normal View History

2017-02-17 08:40:18 +01:00
package Lemonldap::NG::Portal::Plugins::History;
use strict;
use Mouse;
2017-02-19 08:17:48 +01:00
use Lemonldap::NG::Portal::Main::Constants qw(PE_INFO PE_OK);
2017-02-17 08:40:18 +01:00
2017-02-28 21:53:19 +01:00
our $VERSION = '2.0.0';
2017-02-17 08:40:18 +01:00
extends 'Lemonldap::NG::Portal::Main::Plugin',
'Lemonldap::NG::Portal::Lib::OtherSessions';
2017-03-23 13:41:52 +01:00
# INITIALIZATION
use constant endAuth => 'run';
2017-02-17 08:40:18 +01:00
2017-02-19 08:17:48 +01:00
sub init { 1 }
2017-03-23 13:41:52 +01:00
# RUNNING METHOD
2017-02-17 08:40:18 +01:00
sub run {
my ( $self, $req ) = @_;
2017-02-19 08:17:48 +01:00
if ( $req->param('checkLogins') ) {
$self->logger->debug('History asked');
$req->info(
(
2017-03-21 22:00:37 +01:00
$req->sessionInfo->{_loginHistory}->{successLogin}
2017-09-19 22:06:33 +02:00
? $self->p->mkSessionArray(
2017-03-21 22:00:37 +01:00
$req->sessionInfo->{_loginHistory}->{successLogin},
2017-02-19 08:17:48 +01:00
'lastLogins', 0, 0 )
: ""
2018-10-12 10:04:03 +02:00
)
. ("<hr>")
. (
2017-03-21 22:00:37 +01:00
$req->sessionInfo->{_loginHistory}->{failedLogin}
2017-09-19 22:06:33 +02:00
? $self->p->mkSessionArray(
2017-03-21 22:00:37 +01:00
$req->sessionInfo->{_loginHistory}->{failedLogin},
2017-02-19 08:17:48 +01:00
'lastFailedLogins', 0, 1 )
: ""
2018-10-12 10:04:03 +02:00
)
2017-02-19 08:17:48 +01:00
);
2017-02-19 12:51:58 +01:00
unless ( $req->info ) {
$req->info( $self->loadTemplate('noHistory') );
2017-02-19 08:17:48 +01:00
}
return PE_INFO;
}
return PE_OK;
2017-02-17 08:40:18 +01:00
}
1;