Remove old unused sub (#595)

This commit is contained in:
Xavier Guimard 2016-05-14 17:42:19 +00:00
parent 59a377f29a
commit 5dac8432b8
2 changed files with 0 additions and 69 deletions

View File

@ -118,47 +118,5 @@ sub setGroups {
PE_OK;
}
## @method boolean setUserDBValue(string key, string value)
# Store a value in UserDB
# @param key Key in user information
# @param value Value to store
# @return result
sub setUserDBValue {
my ( $self, $key, $value ) = @_;
# Mandatory attributes
return 0 unless defined $key;
# Write in database
$self->lmLog( "Replace $key attribute in database with value $value",
'debug' );
# Connect
my $dbh =
$self->dbh( $self->{dbiUserChain}, $self->{dbiUserUser},
$self->{dbiUserPassword} );
return 0 unless $dbh;
my $table = $self->{dbiUserTable};
my $pivot = $self->{userPivot};
my $user = $self->{user};
$user =~ s/'/''/g;
my $sth;
eval {
$sth = $dbh->prepare("UPDATE $table SET $key = $value WHERE $pivot=?");
$sth->execute($user);
};
# Check result
if ($@) {
$self->lmLog( "DBI error: $@", 'error' );
return 0;
}
return 1;
}
1;

View File

@ -185,33 +185,6 @@ sub setGroups {
PE_OK;
}
## @method boolean setUserDBValue(string key, string value)
# Store a value in UserDB
# @param key Key in user information
# @param value Value to store
# @return result
sub setUserDBValue {
my ( $self, $key, $value ) = @_;
# Mandatory attributes
return 0 unless defined $key;
# Write in LDAP
$self->lmLog( "Replace $key attribute in LDAP with value $value", 'debug' );
my $modification =
$self->{ldap}->modify( $self->{dn}, replace => { $key => $value } );
# Check result
if ( $modification->code ) {
$self->lmLog(
"LDAP error " . $modification->code . ": " . $modification->error,
'error' );
return 0;
}
return 1;
}
## @apmethod int userDBFinish()
# Unbind.
# @return Lemonldap::NG::Portal constant