use English '-no_match_vars';
-#use SL::Auth;
+use SL::Auth::Constants qw(:all);
use strict;
if ($is_crypted) {
$main::lxdebug->leave_sub();
- return SL::Auth->ERR_BACKEND();
+ return ERR_BACKEND;
}
my $ldap = $self->_connect();
if (!$ldap) {
$main::lxdebug->leave_sub();
- return SL::Auth->ERR_BACKEND();
+ return ERR_BACKEND;
}
my $dn = $self->_get_user_dn($ldap, $login);
if (!$dn) {
$main::lxdebug->leave_sub();
- return SL::Auth->ERR_BACKEND();
+ return ERR_BACKEND;
}
my $mesg = $ldap->bind($dn, 'password' => $password);
$main::lxdebug->leave_sub();
- return $mesg->is_error() ? SL::Auth->ERR_PASSWORD() : SL::Auth->OK();
+ return $mesg->is_error() ? ERR_PASSWORD : OK;
}
sub can_change_password {
}
sub change_password {
- return SL::Auth->ERR_BACKEND();
+ return ERR_BACKEND;
}
sub verify_config {