rajout de toutes les colonnes

This commit is contained in:
2019-10-22 13:54:53 +02:00
parent 57a336603c
commit 0a0aeb3a9b

10
test.pl
View File

@@ -50,6 +50,16 @@ while ($csv->getline ($data)) {
print $dn."\t >>".$question3 ."<<\n"; print $dn."\t >>".$question3 ."<<\n";
my $mesg = $ldap-> modify( $dn, my $mesg = $ldap-> modify( $dn,
changes=> [ changes=> [
replace => [ 'objectClass' => 'klesiaentreprise' ],
replace => [ 'idTechnique' => $idTechnique ],
replace => [ 'question1' => $question1 ],
replace => [ 'question2' => $question2 ],
replace => [ 'question3' => $question3 ],
replace => [ 'reponse1' => $reponse1 ],
replace => [ 'reponse2' => $reponse2 ],
replace => [ 'reponse3' => $reponse3 ],
replace => [ 'siren' => $siren],
replace => [ 'civilite' => $civilite],
replace => [ 'userPassword' => $userPassword ], replace => [ 'userPassword' => $userPassword ],
] ]
) ; ) ;