Net::LDAP::Extensions::eDirectory - Novell* eDirectory* Extensions
use Net::LDAP::Extensions::eDirectory;
$ldap = Net::LDAP->new(``test-server'')
or die ``$@'';
$ldap->bind('cn=username,o=acme',password => 'secret', version=>3);
$identity=``'';
# passing the reference
$ref=\$identity;
Net::LDAP::Extensions::eDirectory::GetBindDN($ldap,$ref); print ``The identity is $identity'' . ``\n''; $ldap->unbind();
Net::LDAP::Extensions::eDirectory is a set of functions for performing extended operations on eDirectory.
Example
$ldap = Net::LDAP->new("your-test") or die "$@"; $ldap->bind('cn=username,o=acme',password => 'secret', version=>3); Net::LDAP::Extensions::eDirectory::AbortPartitionOperation($ldap,0,'o=acme');
Assigns the distinguished name of the user to the BindDN reference variable.
Example
use Net::LDAP::Extensions::eDirectory;
$ldap = Net::LDAP->new(``blr-test'')
or die ``$@'';
$ldap->bind('cn=username,o=acme',password => 'secret', version=>3) or die ``Not able to bind'';
$partcount=0; $ref=\$partcount;
Net::LDAP::Extensions::eDirectory::PartitionEntryCount($ldap,'o=novell',$ref); print $partcount; $ldap->unbind();
Example
my $ldap = Net::LDAP->new("your-test") or die "$@"; $ldap->bind('cn=username,o=acme',password => 'secret', version=>3); Net::LDAP::Extensions::eDirectory::SplitPartition($ldap,0,'o=acme');
Example
2.16.840.1.113719.1.27.100.43
Example
use Net::LDAP::Extensions::eDirectory; use Net::LDAP::Util qw(ldap_error_name ldap_error_text); use Net::LDAP qw(:all);
$ldap = Net::LDAP->new("test-server") or die "$@"; $msg=$ldap->bind('cn=user,o=acme',password => 'secret', version=>3) or die "Not able to bind"; @array=( ); $arrayref=\@array;
$msg=Net::LDAP::Extensions::eDirectory::ListReplicas($ldap,'cn=blr-script-test,o=novell',$arrayref);
my $arraylength=$#array;
if(ldap_error_name($msg->code) eq ``LDAP_SUCCESS'') { for(my $count=1; $count <= $arraylength;$count++){ print ``The Replicas are ''. $array[$count].``\n''; } } $ldap->unbind();