Foro - Perl en Español

por **newperlero** » 2011-07-26 04:48 @241

Buenas perleros,

Estoy haciendo unas consultas a LDAP, y no sé cómo hacer para comprobar que la consulta devuelve datos.
Lo que necesito hacer con esta consulta es saber si un usuario existe en el ldap o no, he intentado comprobar el valor de $entrada dentro del foreach (if $entrada eq "" ... o if $entrada eq " "), pero no me funciona.
No sé como tratar la información que devuelve la consulta, lo único que consigo es hacer un dump, pero ni siquiera he conseguido redirigir la salida del dump a un fichero, para luego comprobar ahi si el usuario existe o no.
¿ Cómo puedo hacer esto ?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $user = "admin7890";
my $pass = 'password';
my $ldap_base = 'o=seguridad,c=ar,o=BBDDUSRS';
my $ldap_port= '389';
my $ldap = "produccion.corp.ar";
$ldaps = Net::LDAP->new( $ldap, port => $ldap_port ) or die "$!";
$ldaps->bind($user, password =>$pass, timeout => 10)or die "$!\n";
$salida = $ldaps->search(
        filter=>'(uid=DBATEST)',
        attrs => ['*'],
        base=>$ldap_base,
        );
my @report = $salida->entries;
foreach $entrada (@report) {
        $entrada->dump;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

$ldap_base lo puse por error mal al postear en el foro, por no exponer información y lo puse mal, lo siento.

Finalmente conseguí hacer lo que quería usando el método get_value; me costó dar con el pero al final lo conseguí. Posteo la solución por si le puede servir a alguien, lo que quería hacer era encontrar a todos los usuarios cuyo dn empezara por 'u0' y guardarlos en un hash:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $ldap = '192.168.254.230';
my $user = 'xadm04';
my $pass = 'password'
my $ldap_port = '389';
my $ldap_base = 'DC=ar,DC=sfi,DC=org';
my %admins;
$conexion = Net::LDAP->new( $ldap, port => $ldap_port ) or die "$!\n";
$conexion->bind($user, password =>$pass, timeout => 10)or die "$!\n";
$salida = $conexion->search(
        filter=>"(&(objectClass=person)(dn=u0*))",
        attrs => ['*'],
        base=> $base,
        );
foreach $entrada ($salida->entries) {
        my $var = $entrada->get_value('dn');
        $admins{$var} = 1;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Salida de una consulta LDAP

Salida de una consulta LDAP

Publicidad

Re: Salida de una consulta LDAP

Re: Salida de una consulta LDAP

¿Quién está conectado?