Hola!
Necesito ayuda para conectarme al LDAP con perl
se que necesito los modulos NET::LDAP y ya lo tengo instalados
pero no por donde comenzar, como conectarme,
encontre este codigo y quise implementarlo
###### Datos de validación #####
my $usuario="<nombreusuario>";
my $clave="<clavedeusuario>";
################################
my $maquina="ldap01.uc3m.es";
if ($#ARGV != -1) {
print "Sintaxis: ./login.pl\n";
exit;
}
#Primero hago un BIND anónimo para la busqueda
my $ldap = Net::LDAP->new('ldap01.uc3m.es',port => '389', version=>3) or die "$@";
$ldap->bind;
my $r = $ldap->search (base => "ou=Gente,o=Universidad Carlos III, c=es",
filter => "(&(uid=$usuario)(objectclass=inetOrgPerson))" ,
);
en la variable $maquina, no se porque pusieron eso...que tendria que poner yo....
soy principiante tanto en linux como en perl y ya he leido sobre los temas pero no capto completa la idea, me podrian ayudar.
Gracias!
