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

mise a jour du mot de passe - WIP (il faut verifier quil n'ait pas deja ete change)

Browse Source 
mise a jour des attributs - WIP: gerer le cas ou l'attribut existe
This commit is contained in:
Thomas Constans
2019-10-16 23:21:17 +02:00
parent fffebbd771
commit 91b47f700c
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
test.pl
View File

@@ -30,20 +30,27 @@ my $row = {} ;
$csv->bind_columns (\@{$row}{@cols});
while ($csv->getline ($data)) {
my $dn = $row->{dn} ;
my $attr1 = $row->{seeAlso} ;
my $attr2 = $row->{l} ;
# my $mesg = $ldap-> search(
# base=> $dn,
# scope=> "base",
# filter=> "(description=".$attr1.")") ;
# print $mesg->count() ;
# if ($mesg->count() != 0) { next ; }
print( $dn."\t".$attr1."\n" ) ;
my $idTechnique = $row->{idTechnique} ? $row->{idTechnique} : "xx" ;
my $question1 = $row->{question1} ? $row->{question1} : "xx" ;
my $question2 = $row->{question2} ? $row->{question2} : "xx" ;
my $question3 = $row->{question3} ? $row->{question3} : "_" ;
my $reponse1 = $row->{reponse1} ? $row->{reponse1} : "_" ;
my $reponse2 = $row->{reponse2} ? $row->{reponse2} : "_" ;
my $reponse3 = $row->{reponse3} ? $row->{reponse3} : "_" ;
my $siren = $row->{siren} ? $row->{siren} : "" ;
my $civilite = $row->{civilite} ? $row->{civilite} : "" ;
my $userPassword = $row->{userPassword} ;
my $userPassword = `slappasswd -n -s $userPassword` ;
print $dn."\t >>".$question3 ."<<\n";
my $mesg = $ldap-> modify( $dn,
changes=> [
replace => [ 'description'=> $attr1 ],
replace => [ 'l' => $attr2 ],
replace => [ 'userPassword' => $userPassword ],
]
) ;
$mesg->code and warn $mesg->error; # check for errors