Display ppolicy info messsages only if authentication is valid (#669)
This commit is contained in:
parent
eb419fa3f4
commit
fc61240345
@ -15,7 +15,7 @@ use Unicode::String qw(utf8);
|
|||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
our @EXPORT = qw(ldap);
|
our @EXPORT = qw(ldap);
|
||||||
our $VERSION = '1.3.0';
|
our $VERSION = '1.3.2';
|
||||||
our $ppLoaded = 0;
|
our $ppLoaded = 0;
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
@ -167,24 +167,7 @@ sub userBind {
|
|||||||
return ( $mesg->code == 0 ? PE_OK : PE_LDAPERROR );
|
return ( $mesg->code == 0 ? PE_OK : PE_LDAPERROR );
|
||||||
}
|
}
|
||||||
|
|
||||||
# Get expiration warning and graces
|
# Check for ppolicy error
|
||||||
if ( $resp->grace_authentications_remaining ) {
|
|
||||||
$self->{portal}->info( "<h3>"
|
|
||||||
. $resp->grace_authentications_remaining . " "
|
|
||||||
. $self->{portal}->msg(PM_PP_GRACE)
|
|
||||||
. "</h3>" );
|
|
||||||
}
|
|
||||||
if ( $resp->time_before_expiration ) {
|
|
||||||
$self->{portal}->info(
|
|
||||||
"<h3>"
|
|
||||||
. sprintf(
|
|
||||||
$self->{portal}->msg(PM_PP_EXP_WARNING),
|
|
||||||
$self->{portal}->convertSec( $resp->time_before_expiration )
|
|
||||||
)
|
|
||||||
. "</h3>"
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
my $pp_error = $resp->pp_error;
|
my $pp_error = $resp->pp_error;
|
||||||
if ( defined $pp_error ) {
|
if ( defined $pp_error ) {
|
||||||
$self->{portal}->_sub( 'userError',
|
$self->{portal}->_sub( 'userError',
|
||||||
@ -202,6 +185,26 @@ sub userBind {
|
|||||||
]->[$pp_error];
|
]->[$pp_error];
|
||||||
}
|
}
|
||||||
elsif ( $mesg->code == 0 ) {
|
elsif ( $mesg->code == 0 ) {
|
||||||
|
|
||||||
|
# Get expiration warning and graces
|
||||||
|
if ( $resp->grace_authentications_remaining ) {
|
||||||
|
$self->{portal}->info( "<h3>"
|
||||||
|
. $resp->grace_authentications_remaining . " "
|
||||||
|
. $self->{portal}->msg(PM_PP_GRACE)
|
||||||
|
. "</h3>" );
|
||||||
|
}
|
||||||
|
if ( $resp->time_before_expiration ) {
|
||||||
|
$self->{portal}->info(
|
||||||
|
"<h3>"
|
||||||
|
. sprintf(
|
||||||
|
$self->{portal}->msg(PM_PP_EXP_WARNING),
|
||||||
|
$self->{portal}
|
||||||
|
->convertSec( $resp->time_before_expiration )
|
||||||
|
)
|
||||||
|
. "</h3>"
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
return PE_OK;
|
return PE_OK;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user