dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make SingleSession configurable by rule (#2164)

Browse Source
This commit is contained in:
Maxime Besson 2020-04-21 15:49:31 +02:00
parent 42b650247b
commit 92af252ae9
1 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/SingleSession.pm
View File

@ -11,7 +11,29 @@ extends 'Lemonldap::NG::Portal::Main::Plugin',
use constant endAuth => 'run';
sub init { 1 }
has singleIPRule => ( is => 'rw' );
has singleSessionRule => ( is => 'rw' );
has singleUserByIPRule => ( is => 'rw' );
sub init {
my ($self) = @_;
# Build triggering rules from configuration
$self->singleIPRule(
$self->p->buildRule( $self->conf->{singleIP}, 'singleIP' ) );
return 0 unless $self->singleIPRule;
$self->singleSessionRule(
$self->p->buildRule( $self->conf->{singleSession}, 'singleSession' ) );
return 0 unless $self->singleSessionRule;
$self->singleUserByIPRule(
$self->p->buildRule( $self->conf->{singleUserByIP}, 'singleUserByIP' )
);
return 0 unless $self->singleUserByIPRule;
return 1;
}
sub run {
my ( $self, $req ) = @_;
@ -42,8 +64,8 @@ sub run {
next if ( $linkedSessionId and $id eq $linkedSessionId );
my $session = $self->p->getApacheSession($id) or next;
if (
$self->conf->{singleSession}
or ( $self->conf->{singleIP}
$self->singleSessionRule->( $req, $req->sessionInfo )
or ( $self->singleIPRule->( $req, $req->sessionInfo )
and $req->{sessionInfo}->{ipAddr} ne $session->data->{ipAddr} )
)
{
@ -54,7 +76,8 @@ sub run {
push @$otherSessions, $self->p->_sumUpSession( $session->data );
}
}
if ( $self->conf->{singleUserByIP} ) {
if ( $self->singleUserByIPRule->( $req, $req->sessionInfo ) ) {
my $sessions =
$self->module->searchOn( $moduleOptions, 'ipAddr',
$req->sessionInfo->{ipAddr} );