Information sur LDAP

# Ceci est le fichier principal de configuration de ldapd.
# Voir aussi slapd.conf(5) pour plus d'information sur les
# options de configuration.
                                                                                                                            
# Lis les informations supplémentaires contenues dans
# les fichiers inclus ci-dessous.
# Définition des classes d'objets et d'attributs.
include         /etc/ldap/schema/core.schema
include         /etc/ldap/schema/cosine.schema
include         /etc/ldap/schema/nis.schema
include         /etc/ldap/schema/inetorgperson.schema
                                                                                                                            
# Schema check allows for forcing entries to
# match schemas for their objectClasses's
schemacheck     on
                                                                                                                            
# Le fichier pid:
# Where the pid file is put. The init.d script
# will not stop the server if you change this.
pidfile         /var/run/slapd.pid
                                                                                                                            
# Le fichier args:
# List of arguments that were passed to the server
argsfile        /var/run/slapd.args
                                                                                                                            
# Where to store the replica logs
replogfile      /var/lib/ldap/replog
                                                                                                                            
# Read slapd.conf(5) for possible values
loglevel        0
                                                                                                                            
#######################################################################
# Définition de la base de données ldbm
#######################################################################
                                                                                                                            
# Le type de base de données: ldbm est le standard par défaut
database        ldbm
                                                                                                                            
# Précise l'identifiant DN (distinguished name) à utiliser lors de
# de toutes les requetes vers la base de données
suffix          "o=tela-botanica,dc=net"
rootdn "cn=admin,ou=ressources,o=tela-botanica,dc=net"
                                                                                                                            
# Le mot de passe obtenu avec slappasswd
                                                           
# Lieu de stockage physique dela base de données
directory       "/var/lib/ldap"
                                                                                                                            
# Indique les attributs qui doivent être indexés
index cn,sn pres,eq,sub
index uid,mail eq
index objectClass eq
                                                                                                                            
# Save the time that the entry gets modified
lastmod on
                                                                                                                            
# Les droits :
#{ none | compare | search | read | write }
                                                                                                                            
# Le mot de passe d'un utilisateur peut être changé
# par lui même s'il s'est identifié.
# Les autres ne peuvent pas le voir, excepté l'administrateur.
access to attribute=userPassword
        by dn="cn=admin,ou=ressources,o=tela-botanica,dc=net" write
        by anonymous auth
        by self write
        by * none

# L'administrateur dn à tous les droits d'accès
access to dn.subtree="ou=agenda,o=tela-botanica,dc=net"
        by dn.one="ou=utilisateurs,o=tela-botanica,dc=net" write
access to *
        by dn="cn=admin,ou=ressources,o=tela-botanica,dc=net" write
        by dn.one="ou=utilisateurs,o=tela-botanica,dc=net" read                                                                                                                      
                                                                                                                            
# Pour le support de Netscape Roaming, chaque utilisateur prend
# un profil "roaming" pour obtenir les droits d'accès en écriture.
access to dn=".*,ou=Roaming,o=morsnet"
        by dn="cn=admin,ou=ressources,o=tela-botanica,dc=net" write
        by dnattr=owner write

# -
# -  AddData.pl
# -
# -	This program scans CSV export data and maps it to an add data set for ldap
# -
# -	You will be prompted for the file to convert.  The CSV should be in 
# -     a format where the first row has column headings and the first column
# -     should be the DN.  The output file will be the name of the input file
# -     with the LDIF extension added.
# - 
# -  Example:  perl FixData.pl
# -

use FileHandle;
use Text::CSV_XS;

my($csvFile, $inputfile, %domains, $outfile);
my(@linearray, @dnarray, @cnarray, $linecount);
my(%controlhash, $templatefile, %fieldmap, $logfile);

$csvFile = &promptUser("Name of file to be converted from CSV to LDIF 'Add' File");
$inputfile = new FileHandle($csvFile) ||
	die "Can't open the import file!\n";
$outfile = new FileHandle(">$csvFile.ldif") ||
	die "Can't create or open the output file!\n";
$logfile = new FileHandle(">AddData.log") ||
	die "Can't create or open the log file!\n";

# - Read the first line of the data file and build the control hash from it.
print $outfile "\n";
print $outfile "version: 1\n\n";

$linecount = 0;
while(defined($line = <$inputfile>)) {
    $linecount++;
    chomp($line);
    if($linecount == 1) {
        @linearray = split(m',', $line);
        $fieldcount = 0;
        
        foreach $field (split(m',', $line)) {
            $field =~ s/"//g;
            $fieldmap{$fieldcount} = $field;
            $fieldcount++;
        }
        next;
    }
    @linearray = split(m'"', $line);
    # Récupération du contenu de chaque champ
    my @fieldarray;
    my $csv = Text::CSV_XS->new ({ keep_meta_info => 1, binary => 1 });
    if ($csv->parse($line)) {
        @fieldarray = $csv->fields;
        foreach my $col (0 .. $#fieldarray) {
            printf "%2d: %s\n", $col, $fieldarray[$col];
        }
    } else {
        my $err = $csv->error_input;
        print STDERR "parse () failed on argument: ", $err, "\n";
        $csv->error_diag ();
    }

    for($k = 0; $k < $fieldcount; $k++) {
        if($k == 0) {
            print $outfile "$fieldmap{$k}: ";
            print $outfile "$linearray[1]\n";
            #print $outfile "changetype: add\n";# Semble inutile et pose problème à l'importation
            print $outfile "objectClass: top\n";
            print $outfile "objectClass: person\n";
            print $outfile "objectClass: organizationalPerson\n";
            print $outfile "objectClass: inetOrgPerson\n";
            print $outfile "objectClass: mozillaAbPersonAlpha\n";
        } else {
            if ($fieldarray[$k] !~ /^$/) {
                print $outfile "$fieldmap{$k}: $fieldarray[$k]\n";
            }
        }
    }
    print $outfile "\n";
}

sub promptUser {

   #-------------------------------------------------------------------#
   #  two possible input arguments - $promptString, and $defaultValue  #
   #  make the input arguments local variables.                        #
   #-------------------------------------------------------------------#

   local($promptString,$defaultValue) = @_;

   #-------------------------------------------------------------------#
   #  if there is a default value, use the first print statement; if   #
   #  no default is provided, print the second string.                 #
   #-------------------------------------------------------------------#

   if ($defaultValue) {
      print $promptString, "[", $defaultValue, "]: ";
   } else {
      print $promptString, ": ";
   }

   $| = 1;               # force a flush after our print
   $_ = <STDIN>;         # get the input from STDIN (presumably the keyboard)


   #------------------------------------------------------------------#
   # remove the newline character from the end of the input the user  #
   # gave us.                                                         #
   #------------------------------------------------------------------#

   chomp;

   #-----------------------------------------------------------------#
   #  if we had a $default value, and the user gave us input, then   #
   #  return the input; if we had a default, and they gave us no     #
   #  no input, return the $defaultValue.                            #
   #                                                                 # 
   #  if we did not have a default value, then just return whatever  #
   #  the user gave us.  if they just hit the <enter> key,           #
   #  the calling routine will have to deal with that.               #
   #-----------------------------------------------------------------#

   if ("$defaultValue") {
      return $_ ? $_ : $defaultValue;    # return $_ if it has a value
   } else {
      return $_;
   }
}