f6c250207c
* A token is sent when user ask for password reset * The token is linked to an apache session * The password is reset if the token is valid
97 lines
2.2 KiB
Perl
97 lines
2.2 KiB
Perl
## @file
|
|
# DBI userDB mechanism
|
|
|
|
## @class
|
|
# DBI userDB mechanism class
|
|
package Lemonldap::NG::Portal::UserDBDBI;
|
|
|
|
use strict;
|
|
use Lemonldap::NG::Portal::Simple;
|
|
|
|
our $VERSION = '0.2';
|
|
|
|
## @apmethod int userDBInit()
|
|
# Set default values
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub userDBInit {
|
|
my $self = shift;
|
|
|
|
# DBI access to user is the same as authentication by default
|
|
$self->{dbiUserChain} ||= $self->{dbiAuthChain};
|
|
$self->{dbiUserUser} ||= $self->{dbiAuthUser};
|
|
$self->{dbiUserPassword} ||= $self->{dbiAuthPassword};
|
|
$self->{dbiUserTable} ||= $self->{dbiAuthTable};
|
|
$self->{userPivot} ||= $self->{dbiAuthLoginCol};
|
|
|
|
PE_OK;
|
|
}
|
|
|
|
## @apmethod int getUser()
|
|
# Do nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub getUser {
|
|
my $self = shift;
|
|
|
|
# Connect
|
|
my $dbh =
|
|
$self->dbh( $self->{dbiUserChain}, $self->{dbiUserUser},
|
|
$self->{dbiUserPassword} );
|
|
return PE_ERROR unless $dbh;
|
|
|
|
my $table = $self->{dbiUserTable};
|
|
my $pivot = $self->{userPivot};
|
|
my $user = $self->{user};
|
|
|
|
# If in mailProcess, adapt search criteriums
|
|
if ( $self->{mail} ) {
|
|
$pivot = $self->{dbiPasswordMailCol};
|
|
$user = $self->{mail};
|
|
}
|
|
|
|
$user =~ s/'/''/g;
|
|
my $sth;
|
|
|
|
eval {
|
|
$sth = $dbh->prepare("SELECT * FROM $table WHERE $pivot='$user'");
|
|
$sth->execute();
|
|
};
|
|
if ($@) {
|
|
$self->lmLog( "DBI error: $@", 'error' );
|
|
return PE_ERROR;
|
|
}
|
|
|
|
unless ( $self->{entry} = $sth->fetchrow_hashref() ) {
|
|
$self->lmLog( "User $user not found", 'notice' );
|
|
return PE_BADCREDENTIALS;
|
|
}
|
|
PE_OK;
|
|
}
|
|
|
|
## @apmethod int setSessionInfo()
|
|
# Get columns for each exportedVars
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub setSessionInfo {
|
|
my $self = shift;
|
|
|
|
# Return if no data to collect
|
|
return PE_OK
|
|
unless ( $self->{exportedVars}
|
|
and ref( $self->{exportedVars} ) eq 'HASH' );
|
|
|
|
while ( my ( $var, $attr ) = each %{ $self->{exportedVars} } ) {
|
|
$self->{sessionInfo}->{$var} = $self->{entry}->{$attr}
|
|
if ( defined $self->{entry}->{$attr} );
|
|
}
|
|
|
|
PE_OK;
|
|
}
|
|
|
|
## @apmethod int setGroups()
|
|
# Do nothing
|
|
# @return Lemonldap::NG::Portal constant
|
|
sub setGroups {
|
|
PE_OK;
|
|
}
|
|
1;
|
|
|