mr_evans2u has asked for the wisdom of the Perl Monks concerning the following question:
################################## # Connect to LDAP # # # ################################## @attr = ("uid", "usertype", "corpDeleteDate", "mail", "mailAlternateAd +dress"); # attributes to be returned print STDERR "\nConnecting to $ld{host}.\n\n"; print LOG "\nConnecting to $ld{host}.\n\n"; $LDAP_conn = new Mozilla::LDAP::Conn(\%ld) or die "Could't connect to LDAP server $ld{host}"; # Tell the connection how to handle referrals from the server # $LDAP_conn->setRebindProc(sub { return ($ld{"bind"}, $ld{"pswd"}, LDAP +_AUTH_SIMPLE); });
|
|---|