Страница 1 из 1

Помогите с PERL + LDAP

СообщениеДобавлено: 22 янв 2003, 15:53
skoltogyan
Неполучается обратится к LDap из Perl

NW6 +sp2

Perl5.8, NSN, UCX, LIBC все это с developer.novell.com

создаю в sys:/perl/scripts/test1.pl
Вот его содержимое:
#!sys:/perl/lib
use Net::LDAP qw(:all); # use for all code
use Net::LDAP::Util qw(ldap_error_name
ldap_error_text) ; # use for Error handling


$ldap = Net::LDAP->new('testsrv') or die "$@";


$ldap->bind("cn=admin,o=main",
password => "qwerty",
version => 3 ) or die "Failed to bind";


#modify passwordExpirationTime

my $result = $ldap->modify( "cn=guy_to_change,o=acme", replace => {
'passwordExpirationTime' => '20061010101010Z' });


print $result->code," ",$reslut->error;

exit;


Запускаю так:

perl test1.pl

И вываливается, на создании:
$ldap = Net::LDAP->new('testsrv') or die "$@";

Может кто пробовал подобное или может у себя попробовать?