use English '-no_match_vars';
+use Scalar::Util qw(weaken);
use SL::Auth::Constants qw(:all);
use strict;
my $self = {};
$self->{auth} = shift;
+ weaken $self->{auth};
bless $self, $type;
return $self;
}
+sub reset {
+ my ($self) = @_;
+ $self->{ldap} = undef;
+ $self->{dn_cache} = { };
+}
+
sub _connect {
$main::lxdebug->enter_sub();
return 0;
}
+sub requires_cleartext_password {
+ return 1;
+}
+
sub change_password {
return ERR_BACKEND;
}