Revision 8f7f4370
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $password eq $admin_password ? OK : ERR_PASSWORD;
|
||
|
return OK if $password eq $admin_password;
|
||
|
sleep 5;
|
||
|
return ERR_PASSWORD;
|
||
|
}
|
||
|
|
||
|
sub authenticate {
|
||
| ... | ... | |
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $self->{authenticator}->authenticate(@_);
|
||
|
my $result = $self->{authenticator}->authenticate(@_);
|
||
|
return OK if $result eq OK;
|
||
|
sleep 5;
|
||
|
return $result;
|
||
|
}
|
||
|
|
||
|
sub dbconnect {
|
||
Auch abrufbar als: Unified diff
Bei falschem Passwort fünf Sekunden vor nächstem Versuch warten.