Revision d3d6cb31
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
SL/Auth/DB.pm | ||
---|---|---|
32 | 32 |
my $login = shift; |
33 | 33 |
my $password = shift; |
34 | 34 |
|
35 |
my $dbh = $self->{auth}->dbconnect(); |
|
36 |
|
|
37 |
if (!$dbh) { |
|
38 |
$main::lxdebug->leave_sub(); |
|
39 |
return ERR_BACKEND; |
|
40 |
} |
|
41 |
|
|
42 |
my $query = qq|SELECT password FROM auth."user" WHERE login = ?|; |
|
43 |
my ($stored_password) = $dbh->selectrow_array($query, undef, $login); |
|
35 |
my $stored_password = $self->{auth}->get_stored_password($login); |
|
44 | 36 |
|
45 | 37 |
my ($algorithm, $algorithm2); |
46 | 38 |
|
Auch abrufbar als: Unified diff
Fall 'kein Hash-Algorithmus angegeben' bei alten Passwörtern richtig behandeln