Sziasztok,
A cimben emlitett scripptel szeretném AD-ból kinyerni userek e-mail cimeit egy e-mail gw-hez.
Viszont a script nem szedi ki az infót.
Másik gépen működik (az egy ubuntu 8.04, perl 5.8.8), viszont az újon már elhasal (12.04, perl 5.14.2).
A scriptbe tettem pár debug printet (http://pastebin.com/59cSZW6L) , viszont egy ponton megáll és ezt adja csak vissza:
A bash script hivja meg a perlt:
/usr/bin# ./update-relay-recipients.sh
DEBUG: Net::LDAP::Search=HASH(0x1724f38)
Ez a mesg változó tartalma.
Hol a hiba?
Hozzászólások
A
print "DEBUG: $name\n";
sorig már el sem jut?
Tudnál a tetejére egy
use Dumper;
-t, a print helyére meg egy
print "DEBUG: mesg\n" . Dumper($mesg);
-et?
Pontosan, a $name-ig el sem jut.
http://pastebin.com/fYcL56PL
71. sorban ezt
attrs => "proxyAddresses",
erre:
attrs => [ "proxyAddresses" ],
Köszönöm, megoldva.
-------------------------
Dropbox refer: https://db.tt/V3RtXWLl
neut @ présház
Nincs mit :)
# Only continue on LDAP_SUCCESS
$mesg->code and last;
ezt még meg kéne nézni, szerintem azért futott végtelenre mert itt valami nem stimt. Leginkább az, hogy a dumper alapján nem code, hanem resultCode. Az más kérdés, hogy cpan dokumentációban is következetesen code van, elmennek a picsába. Lehet inkább $mesg-> is_error() and last; kéne a biztonság kedvéért.