tom/klesia_ldap
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add_attribute.pl no longer update userpassword

Browse Source
This commit is contained in:
Thomas Constans
2020-06-18 14:09:26 +02:00
parent eef12fc2d9
commit 6332558133
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
add_attribute.pl
View File

@@ -48,8 +48,7 @@ while ($csv->getline ($data)) {
my $civilite = $row->{civilite} ? $row->{civilite} : "UNDEFINED" ; my $civilite = $row->{civilite} ? $row->{civilite} : "UNDEFINED" ;
my $phoneNumber = $row->{telephoneNumber} ? $row->{telephoneNumber} : "UNDEFINED" ; my $phoneNumber = $row->{telephoneNumber} ? $row->{telephoneNumber} : "UNDEFINED" ;
my $birthDate = $row->{birthDate} ? $row->{birthDate} : "UNDEFINED" ; my $birthDate = $row->{birthDate} ? $row->{birthDate} : "UNDEFINED" ;
my $userPassword = $row->{userPassword} ; }
if ( $userPassword ) { $userPassword= `slappasswd -n -s $userPassword` ; }
warn "$dn\n" ; warn "$dn\n" ;
my $mesg = $ldap -> search( my $mesg = $ldap -> search(
@@ -80,7 +79,6 @@ while ($csv->getline ($data)) {
replace => [ 'reponse2' => $reponse2 ], replace => [ 'reponse2' => $reponse2 ],
replace => [ 'reponse3' => $reponse3 ], replace => [ 'reponse3' => $reponse3 ],
replace => [ 'civilite' => $civilite], replace => [ 'civilite' => $civilite],
replace => [ 'userPassword' => $userPassword ],
] ]
) ; ) ;
$mesg->code and warn $dn."\t".$mesg->error; $mesg->code and warn $dn."\t".$mesg->error;