rajout de toutes les colonnes
This commit is contained in:
10
test.pl
10
test.pl
@@ -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 ],
|
||||||
]
|
]
|
||||||
) ;
|
) ;
|
||||||
|
|||||||
Reference in New Issue
Block a user