From 91b47f700c0c9f0ac2e1cf2c367f24ebc388038d Mon Sep 17 00:00:00 2001
From: Thomas C <thomas@opendoor.fr>
Date: Wed, 16 Oct 2019 23:21:17 +0200
Subject: [PATCH] mise a jour du mot de passe - WIP (il faut verifier quil
 n'ait pas deja ete change) mise a jour des attributs - WIP: gerer le cas ou
 l'attribut existe

---
 test.pl | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/test.pl b/test.pl
index ef0613c..17b664f 100644
--- a/test.pl
+++ b/test.pl
@@ -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