Utilisation du module Net::LDAP::LDIF pour ajouter des données

Version imprimable

05/04/2007, 15h00
Oli_Ifre

Utilisation du module Net::LDAP::LDIF pour ajouter des données

Bonjour !
J'aurais voulu savoir si ce module pouvait etre utilisé pour ajouter des fichiers ldif sur mon serveur LDAP.
Car d'apres ce que j'ai lu de la doc, il faut toujours donner tous les attributs lors d'un ajout.

J'ai aussi regardé le module Net::LDAP::LDIF, mais je comprend pas trop comment effectuer l'ajout avec cette méthode.

Si quelqu'un peut m'eclairer, je l en remercie :mouarf:

C'est très simple, en fait il te suffit de te connecter à ton serveur LDAP, puis d'utiliser le code d'example de Net::LDAP::LDIF pour obtenir les entrée à ajouter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# connection à ton serveur, disons dans $ldap_server
 
 use Net::LDAP::LDIF;
 
 $ldif = Net::LDAP::LDIF->new( "file.ldif", "r", onerror => 'undef' );
 while( not $ldif->eof ( ) ) {
   $entry = $ldif->read_entry ( );
   if ( $ldif->error ( ) ) {
     print "Error msg: ", $ldif->error ( ), "\n";
     print "Error lines:\n", $ldif->error_lines ( ), "\n";
   } else {
     # do stuff : ICI TU AJOUTES LES ENTREES VALIDE A TON SERVEUR
     $ldap_server->add( $entry );
   }
 }
 $ldif->done ( );
 
# déconnexion

Pour que ce soit plus clair, je te conseille d'en faire une fonction. :D

--
Jedaï

merci Jedai !
Juste une derniere petite question ^^

G le message d'erreur qui apparait :

Code:

Can't call method "eof" on an undefined value

et j'ai codé de la facon suivante :
Code:

1 2 3 4 5 6 7 $ldif = Net::LDAP::LDIF->new( FICHIER, "r", onerror => 'undef' ); while( not $ldif->eof () ) { $entry = $ldif->read_entry (); if ( $ldif->error ( ) ) { print "Error msg: ", $ldif->error (), "\n"; print "Error lines:\n", $ldif->error_lines (), "\n"; }
"FICHIER" provient de la commande suivante, executée au début de mon programme :

Code:

open (FICHIER, ">/tmp/$$.ldif");

et je fais un close(FICHIER) après m'etre déconnécté de LDAP.
Je pense que l'erreur vient de là, mais je suis pas bien sur ^^

merci de ton aide :king:

05/04/2007, 16h05
Jedai

Tu ne peux pas utiliser un handle de fichier ouvert en écriture pour lire ton fichier !!
Utilise plutôt :

Code:

$ldif = Net::LDAP::LDIF->new( "/tmp/$$.ldif", "r", onerror => 'undef' );

Et ferme FICHIER avant.

--
Jedaï
05/04/2007, 16h07
Oli_Ifre

Nickel !!
Merci pour les réponses :yaisse2: