You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
449 B
25 lines
449 B
10 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use utf8;
|
||
|
|
|
||
|
|
use Test;
|
||
|
|
use LDV::LDAP;
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
BEGIN { plan test => 2 };
|
||
|
|
|
||
|
|
my $ldap = LDV::LDAP->new({
|
||
|
|
server => '127.0.0.1',
|
||
|
|
binddn => undef,
|
||
|
|
bindpass => undef,
|
||
|
|
userbase => undef,
|
||
|
|
});
|
||
|
|
|
||
|
|
print Dumper $ldap->get("ad_user");
|
||
|
|
#print Dumper $ldap->create("test20");
|
||
|
|
#print Dumper $ldap->get("test20");
|
||
|
|
#print Dumper $ldap->delete("test20");
|
||
|
|
print Dumper $ldap->get("test20");
|