package Lemonldap::NG::Portal::Plugins::History; use strict; use Mouse; use Lemonldap::NG::Portal::Main::Constants qw( PE_OK PE_INFO ); our $VERSION = '2.0.14'; extends qw( Lemonldap::NG::Portal::Main::Plugin Lemonldap::NG::Portal::Lib::OtherSessions ); # INITIALIZATION use constant endAuth => 'run'; # 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 ) : "" ) . ("
") . ( $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;