view release on metacpan or  search on metacpan

lib/Connector/Multi.pm  view on Meta::CPAN

        } else {
            $ptr_cache->{$path} = 1;
        }
    }

    # Push path on top of the argument array
    unshift @args, [ @prefix, @suffix ];
    return $conn->$call( @args );
}

sub get_wrapper() {
    my $self = shift;
    my $location = shift;
    return Connector::Wrapper->new({ BASECONNECTOR => $self, TARGET => $location });
}

# getWrapper() is deprecated - use get_wrapper() instead
sub getWrapper() {
    my $self = shift;
    warn "using deprecated call to getWrapper - use get_wrapper instead";
    $self->get_wrapper(@_);
}

sub get_connector {
    my $self = shift;
    my $target = shift;

    # the cache needs to store the absolute path including the prefix

lib/Connector/Proxy/Net/LDAP.pm  view on Meta::CPAN

    );

    if (! $ldap) {
       $self->_log_and_die("Could not instantiate ldap object ($@)");
    }

    $self->rebind($ldap);
    return $ldap;
}

sub rebind() {

    my $self = shift;
    # this as the potential for an inifinte loop so be careful ;)
    my $ldap = shift || $self->ldap();

    my $mesg;
    if (defined $self->binddn()) {
        $self->log()->debug('Binding with ' . $self->binddn());
        my %options = $self->_build_bind_options();
        $self->log()->warn('Binding with DN but without password') if (!defined $options{password});