From 0a0aeb3a9b5c0025342fe56f3cc94888e2049ccd Mon Sep 17 00:00:00 2001 From: Thomas Constans Date: Tue, 22 Oct 2019 13:54:53 +0200 Subject: [PATCH] rajout de toutes les colonnes --- test.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/test.pl b/test.pl index 17b664f..8cea0c9 100644 --- a/test.pl +++ b/test.pl @@ -50,6 +50,16 @@ while ($csv->getline ($data)) { print $dn."\t >>".$question3 ."<<\n"; my $mesg = $ldap-> modify( $dn, 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 ], ] ) ;