view release on metacpan or  search on metacpan

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

214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
        } 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

285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
    );
 
    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});