Créer un ldif de plus de 80 colonnes grâce à PERL

Par gnunux gnunux, . Lien permanent logiciels libres

ldapsearch à un désavantage énorme (à mon goût). Aujourd'hui, je n'ai pas trouvé comment créer un ldif avec entrée de plus de 80 caractères. En effet, ldapsearch (ou slapcat) retour à la ligne à la 80ème colonne.

Pourtant, en 1999, l'option avait été envisagé (http://www.openldap.org/lists/openldap-software/199909/msg00008.htm). Mais toujours rien (ou alors ce n'est pas documenté).

Je me met donc de côté ce petit script perl permettant de créer un ldif de 2000 colonnes de large :

#!/usr/bin/perl

use Net::LDAP;
use Net::LDAP::LDIF;

# option a modifier
$dn = "dc=gnunux,dc=info";
$ldif = "recup.ldif";
$server = "192.168.5.1";
$root_dn = "cn=manager,dc=gnunux,dc=info";
$root_pw = "motdepasse";

$ldap = Net::LDAP->new ("$server", port => 389, version => 3)
or die $!;

$resultat = $ldap->bind(
	"$root_dn",
	password => "$root_pw");
die $resultat->error() if $resultat->is_error();

# Les options de la recherche
# (ici, toutes les entrées seront retournées)
$mesg = $ldap->search( base     => $dn,
		scope    => "sub",
		filter	=> "objectclass=*",
		) or die $!;

Net::LDAP::LDIF->new( "$ldif", 
		"w",
		onerror => 'undef',
		wrap => 2000
		)->write( $mesg->entries );

$ldap->unbind();

Haut de page