Помогите с PERL + LDAP
Добавлено: 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 "$@";
Может кто пробовал подобное или может у себя попробовать?
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 "$@";
Может кто пробовал подобное или может у себя попробовать?