4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
use Net::LDAP;
$ldap = Net::LDAP->new( '127.0.0.1' ) or die "$@";
$mesg = $ldap->bind;
$mesg = $ldap->search(base => "o=test",
filter => "(&(objectclass=domain)(maildomain=test.de))"
);
$mesg->code && die $mesg->error;
print "Debug: ".($mesg->entries)."\n";
$mesg->$ldap->unbind;
print Debug: ".$mesg->count."\n";
$mesg->$ldap->unbind;
4 Einträge, 1 Seite |