Revision 8f7f4370
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 126 | 126 |
|
| 127 | 127 |
$main::lxdebug->leave_sub(); |
| 128 | 128 |
|
| 129 |
return $password eq $admin_password ? OK : ERR_PASSWORD; |
|
| 129 |
return OK if $password eq $admin_password; |
|
| 130 |
sleep 5; |
|
| 131 |
return ERR_PASSWORD; |
|
| 130 | 132 |
} |
| 131 | 133 |
|
| 132 | 134 |
sub authenticate {
|
| ... | ... | |
| 136 | 138 |
|
| 137 | 139 |
$main::lxdebug->leave_sub(); |
| 138 | 140 |
|
| 139 |
return $self->{authenticator}->authenticate(@_);
|
|
| 141 |
my $result = $self->{authenticator}->authenticate(@_);
|
|
| 142 |
return OK if $result eq OK; |
|
| 143 |
sleep 5; |
|
| 144 |
return $result; |
|
| 140 | 145 |
} |
| 141 | 146 |
|
| 142 | 147 |
sub dbconnect {
|
Auch abrufbar als: Unified diff
Bei falschem Passwort fünf Sekunden vor nächstem Versuch warten.