我有点问题。在工作中,我们将很快使用代理ldap连接到我们的ldap。
但是,我的perl脚本用于直接连接到ldap,我找不到通过ldap代理连接到ldap的正确方法。
ldap团队告诉我只需通过代理的网址更改“my.local.ldap.org”。
但是当我这样做时,除了错误“无法联系myscript.pl第X行的LDAP服务器,< DATA>第403行”之外,我什么也得不回。
我的智慧结束了,因为我对perl很新。
如何通过ldap代理连接到我的ldap并获取我的数据?
有我的perl代码:
#!/usr/bin/perl
use warnings;
use strict;
use Net::LDAP;
use Net::SMTP;
use MIME::Lite;
use Getopt::Std;
connect_ldap();
sub connect_ldap {
my @attributs = qw(uid subsidiary preferredLanguage);
my $ldap = Net::LDAP->new(
"my.local.ldap.org",
port => 389
) or die open (STDERR, ">&SDTOUT");
my $mesg = $ldap->bind (
"cn=app_readonly,ou=account,ou=security,o=oubase",
password => "mypassword"
);
$mesg = $ldap->search(
base => "o=oubase",
scope => "sub",
filter => "(&(objectclass=inetOrgPerson)(|(subsidiary=sub1)(subsidiary=sub2))(role=id=app_access,id=APP,*))",
attrs => [ @attributs ]
);
printf "COUNT : %s\n", $mesg->count;
foreach my $entry ($mesg->entries) {
$entry->dump;
}
print "==========================================\n";
$mesg = $ldap->unbind;
$ldap->unbind;
}
答案 0 :(得分:1)
通常,只要正确设置LDAP代理,与直接连接LDAP服务器相比,通过代理连接(假设它是 LDAP 代理)应该没有任何区别。您是否尝试远程登录代理的主机/端口以查看是否获得了正确的连接信息?