2008-06-06 14:42:35 +02:00
|
|
|
package Lemonldap::NG::Portal::AuthLDAP;
|
|
|
|
|
|
|
|
use Lemonldap::NG::Portal::Simple;
|
2008-10-07 22:15:48 +02:00
|
|
|
use Lemonldap::NG::Portal::_LDAP;
|
2008-06-06 14:42:35 +02:00
|
|
|
|
|
|
|
our $VERSION = '0.1';
|
|
|
|
|
2008-10-05 20:42:50 +02:00
|
|
|
sub ldap {
|
|
|
|
my $self = shift;
|
2008-10-07 22:15:48 +02:00
|
|
|
unless ( ref( $self->{ldap} ) ) {
|
|
|
|
my $mesg = $self->{ldap}->{bind}
|
|
|
|
if ( $self->{ldap} = Lemonldap::NG::Portal::_LDAP->new($self) );
|
|
|
|
if ( $mesg->{code} ) {
|
|
|
|
print STDERR $mesg->error . "\n";
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return $self->{ldap};
|
2008-10-05 20:42:50 +02:00
|
|
|
}
|
|
|
|
|
2008-06-06 14:42:35 +02:00
|
|
|
sub authInit {
|
2008-10-07 22:15:48 +02:00
|
|
|
PE_OK;
|
2008-06-06 14:42:35 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
sub extractFormInfo {
|
|
|
|
my $self = shift;
|
|
|
|
return PE_FIRSTACCESS
|
|
|
|
unless ( $self->param('user') );
|
|
|
|
return PE_FORMEMPTY
|
|
|
|
unless ( length( $self->{'user'} = $self->param('user') ) > 0
|
|
|
|
&& length( $self->{'password'} = $self->param('password') ) > 0 );
|
|
|
|
PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub setAuthSessionInfo {
|
|
|
|
PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub authenticate {
|
|
|
|
my $self = shift;
|
2008-10-07 22:15:48 +02:00
|
|
|
unless ( $self->ldap ) {
|
|
|
|
return PE_LDAPCONNECTFAILED;
|
|
|
|
}
|
|
|
|
|
2008-06-06 14:42:35 +02:00
|
|
|
# Check if we use Ppolicy control
|
|
|
|
if ( $self->{ldapPpolicyControl} ) {
|
|
|
|
|
|
|
|
# require Perl module
|
|
|
|
eval 'require Net::LDAP::Control::PasswordPolicy';
|
2008-07-18 15:52:11 +02:00
|
|
|
if ($@) {
|
2008-10-07 22:15:48 +02:00
|
|
|
print STDERR
|
|
|
|
"Module Net::LDAP::Control::PasswordPolicy not found in @INC\n";
|
2008-07-18 15:52:11 +02:00
|
|
|
return PE_LDAPERROR;
|
2008-08-08 18:19:16 +02:00
|
|
|
}
|
2008-06-06 14:42:35 +02:00
|
|
|
no strict 'subs';
|
|
|
|
|
|
|
|
# Create Control object
|
|
|
|
my $pp = Net::LDAP::Control::PasswordPolicy->new;
|
|
|
|
|
|
|
|
# Bind with user credentials
|
2008-10-07 22:15:48 +02:00
|
|
|
my $mesg = $self->ldap->bind(
|
2008-06-06 14:42:35 +02:00
|
|
|
$self->{dn},
|
|
|
|
password => $self->{password},
|
|
|
|
control => [$pp]
|
|
|
|
);
|
|
|
|
|
|
|
|
# Get server control response
|
2008-07-18 15:52:11 +02:00
|
|
|
my ($resp) = $mesg->control("1.3.6.1.4.1.42.2.27.8.5.1");
|
2008-06-06 14:42:35 +02:00
|
|
|
|
2008-10-07 22:15:48 +02:00
|
|
|
# Get expiration warning and graces
|
|
|
|
$self->{ppolicy}->{time_before_expiration} =
|
|
|
|
$resp->time_before_expiration;
|
|
|
|
$self->{ppolicy}->{grace_authentications_remaining} =
|
|
|
|
$resp->grace_authentications_remaining;
|
2008-09-18 10:34:17 +02:00
|
|
|
|
|
|
|
# Get bind response
|
|
|
|
return PE_OK if ( $mesg->code == 0 );
|
|
|
|
|
2008-06-06 14:42:35 +02:00
|
|
|
if ( defined $resp ) {
|
2008-09-18 10:34:17 +02:00
|
|
|
my $pp_error = $resp->pp_error;
|
2008-06-27 10:49:20 +02:00
|
|
|
if ( defined $pp_error ) {
|
2008-08-08 18:19:16 +02:00
|
|
|
return [
|
|
|
|
PE_PP_PASSWORD_EXPIRED,
|
|
|
|
PE_PP_ACCOUNT_LOCKED,
|
|
|
|
PE_PP_CHANGE_AFTER_RESET,
|
|
|
|
PE_PP_PASSWORD_MOD_NOT_ALLOWED,
|
|
|
|
PE_PP_MUST_SUPPLY_OLD_PASSWORD,
|
|
|
|
PE_PP_INSUFFICIENT_PASSWORD_QUALITY,
|
|
|
|
PE_PP_PASSWORD_TOO_SHORT,
|
|
|
|
PE_PP_PASSWORD_TOO_YOUNG,
|
|
|
|
PE_PP_PASSWORD_IN_HISTORY,
|
|
|
|
]->[$pp_error];
|
2008-06-06 14:42:35 +02:00
|
|
|
}
|
|
|
|
else {
|
|
|
|
return PE_BADCREDENTIALS;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return PE_LDAPERROR;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return PE_BADCREDENTIALS
|
|
|
|
unless (
|
2008-10-07 22:15:48 +02:00
|
|
|
$self->ldap->bind( $self->{dn}, password => $self->{password} ) );
|
2008-06-06 14:42:35 +02:00
|
|
|
}
|
|
|
|
$self->{sessionInfo}->{authenticationLevel} = 2;
|
|
|
|
PE_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|