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

Обсуждение технических вопросов по продуктам Novell

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

Сообщение skoltogyan » 22 янв 2003, 15:53

Неполучается обратится к 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 "$@";

Может кто пробовал подобное или может у себя попробовать?
skoltogyan
 
Сообщения: 2037
Зарегистрирован: 12 июл 2002, 19:39
Откуда: Украина, Донецк

Вернуться в Novell

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing [Bot] и гости: 54

cron