rajout doc

mise au point password.pl qui prend une branche en parametre
mise au point add_attribute.pl qui rajoute l'OC le cas echeant

add_attribute.pl

@@ -0,0 +1,72 @@
+#/usr/bin/perl
+
+use strict;
+use Net::LDAP;
+use Text::CSV;
+
+my $ldapserver = "localhost";
+my $binddn = "cn=manager,o=od";
+my $bindpw = "123Soleil" ;
+
+my $ldap = Net::LDAP->new( $ldapserver ) or die "$@" ;
+
+my $mesg = $ldap->bind( $binddn,
+      password => $bindpw
+      );
+
+$mesg->code  and  die $mesg->error;          # check for errors
+my $csv = Text::CSV->new({ sep_char => ';' }) ;
+my $file = $ARGV[0] or die "Need to get CSV file on the command line\n" ;
+
+open(my $data, '<', $file) or die "Could not open '$file' $!\n";
+my @cols = @{$csv->getline ($data)};
+foreach my $c (@cols){
+   print "column: ". $c ."\t" ;
+}
+print "\n" ;
+my $row = {} ;
+$csv->bind_columns (\@{$row}{@cols});
+while ($csv->getline ($data)) {
+   my $dn = $row->{dn} ;
+   if ( $dn =~ /^dn / ) { next ; } 
+   my $idTechnique = $row->{idTechnique} ? $row->{idTechnique} : "UNDEFINED" ;
+   my $question1 = $row->{question1} ? $row->{question1} : "UNDEFINED" ;
+   my $question2 = $row->{question2} ? $row->{question2} : "UNDEFINED" ;
+   my $question3 = $row->{question3} ? $row->{question3} : "UNDEFINED" ;
+   my $reponse1 = $row->{reponse1} ? $row->{reponse1} : "UNDEFINED" ;
+   my $reponse2 = $row->{reponse2} ? $row->{reponse2} : "UNDEFINED" ;
+   my $reponse3 = $row->{reponse3} ? $row->{reponse3} : "UNDEFINED" ;
+   my $siren = $row->{siren} ? $row->{siren} : "UNDEFINED" ;
+   my $civilite = $row->{civilite} ? $row->{civilite} : "UNDEFINED" ;
+   my $userPassword  = $row->{userPassword} ;
+   my $userPassword = `slappasswd -n -s $userPassword` ;
+
+   my $mesg = $ldap -> search(
+      scope => 'base',
+      attrs => ['1.1'],
+      filter => '(objectClass=klesiaentreprise)',
+      base => $dn,
+      );
+   if( $mesg-> count() == 0 ) {
+      my $mesg = $ldap-> modify( $dn,
+            add => {
+            objectClass  => 'klesiaentreprise',
+         });
+   }else{
+      warn $dn . " already of type klesia\n" ;
+      my $mesg = $ldap-> modify( $dn,
+         changes=> [
+            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 ],
+            ]
+            ) ;
+      $mesg->code  and  warn $dn."\t".$mesg->error;   }
+   }