<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:Courier New,courier,monaco,monospace,sans-serif;font-size:10pt"><div>Hola,<br></div><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><div style="font-family: Courier New,courier,monaco,monospace,sans-serif; font-size: 10pt;"><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><font face="Tahoma" size="2"><b><span style="font-weight: bold;">From:</span></b> Francisco Rivas <taken2k4@gmail.com><br><b><span style="font-weight: bold;">To:</span></b> madrid-pm@pm.org<br><b><span style="font-weight: bold;">Sent:</span></b> Tue, March 30, 2010 9:37:01 AM<br><b><span style="font-weight: bold;">Subject:</span></b> [Madrid-pm] Perl y Red Hat Directory Server<br></font><br>
<meta http-equiv="x-dns-prefetch-control" content="off">Hola *, <br><br>Empezare con la misma frase que he visto en otro correo, con la que me identifique muchisimo :<br><br>Me han encomendado una tarea de la que como siempre no tengo ni idea :P.<br><br>En esta ocasion es cambiar algun atributo de algun usuario en Red Hat Directory Server (ldap), por supuesto<br>
de entrada me voy al CPAN a ver que hay para esto y encuentro Net::LDAP, de inmediato, gracias a la <br>documentacion del modulo me pongo a escribir un prototipo del script super basico mas no he logrado que <br>haga lo que necesito :<br>
<br></div></div></blockquote>De dónde sale $result?<div style="font-family: Courier New,courier,monaco,monospace,sans-serif; font-size: 10pt;"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><br></div></div><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><div style="font-family: Courier New,courier,monaco,monospace,sans-serif; font-size: 10pt;"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><br>use strict;<br>use Net::LDAP;<br><br># New connection<br>my $ldap = Net::LDAP->new("ldap://<a rel="nofollow" target="_blank" href="http://ldap.server.net">ldap.server.net</a>") or die "$@";<br><br># Setting bind options<br>my $mesg = $ldap->bind("uid=francisco.rivas,dc=server,dc=net",password=>"password",version=>3);<br>
<br>sub LDAPModify {<br> my $dn = "uid=francisco.rivas,dc=server,dc=net";<br> $mesg = $ldap->modify($dn, replace=>{"mail" => "taken2k4\@<a rel="nofollow" target="_blank" href="http://gmail.com">gmail.com</a>"});<br>
print $mesg;<br>}<br><br>sub printDesiredAttrs {<br> # Store the results in an array<br> my @entries = $results->entries;<br><br> # Looping over that array to print and get the attributes<br> foreach my $entry (@entries) {<br>
print $entry->get_value("uid") . "\n";<br> print $entry->get_value("mail") . "\n";<br> #print $entry->get_value("telephonenumber") . "\n";<br>
print $entry->get_value("givenname") . "\n";<br> print $entry->get_value("sn") . "\n";<br> }<br>}<br><br>LDAPModify();<br><br>printDesiredAttrs();<br><br>$ldap->unbind;<br>
<br>Y esto no funciona como deberia, por ahi he leido en otros articulos sobre el modulo que probablemente necesito hacer un update para propagar el error pero no lo comprendi bien, alguno tiene experiencias similares?, cualquier ayuda es super bienvenida.<br>
<br>Muchas gracias de antemano.<br><br>-- <br>Francisco Rivas<br>God loves you so much!<br>Really great people make you feel that you, too, can become great -- Mark Twain<br>--<br>Linux User (New) : #448324<br>Linux Machine (New) : 355187<br>
<meta http-equiv="x-dns-prefetch-control" content="on"></div></div></blockquote>
</div></body></html>