- 論壇徽章:
- 0
|
Hi, 各位
我在Linux/Solaris用Perl ldap-perl 0.32訪問(wèn)ldap服務(wù)器
現(xiàn)在有個(gè)奇怪的問(wèn)題:
當(dāng)我用錯(cuò)誤的用戶名/密碼訪問(wèn)時(shí),會(huì)告訴我不對(duì),但仍然會(huì)顯示我所查詢的結(jié)果。
在LDAP服務(wù)器禁止了匿名訪問(wèn)后,用ldapsearch之類也顯示
Anonymous access disallow
但用Perl訪問(wèn)仍然可以。
不理解啊。
下面是一個(gè)簡(jiǎn)單的測(cè)試程序:
#!/usr/bin/perl
use Net::LDAP;
$lh = Net::LDAP ->; new(
'10.96.100.128',
);
$msg = $lh ->; bind(
'uid=someone,dc=company,dc=com',
password =>; '123',
);
#$msg = $lh ->; bind;
print $msg ->; error;
print "\n";
$result = $lh ->; search(
base =>; 'dc=company,dc=com',
attrs =>; ['uid','homeDirectory'],
filter =>; 'uid=snake',
);
$cnt = $result ->; count;
for($i = 0;$i < $cnt;$i++)
{
$entry = $result ->; entry($i);
foreach $attr($entry ->; attributes)
{
print $attr;
print "=";
print $entry ->; get_value($attr);
print ";\n";
}
}
$lh ->; unbind;
哪位遇見(jiàn)過(guò)這種情況?
謝謝。 |
|