Revision 5d23fb60
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/Auth/DB.pm | ||
|---|---|---|
| 1 | 1 |
package SL::Auth::DB; |
| 2 | 2 |
|
| 3 |
use DBI; |
|
| 4 |
|
|
| 5 |
#use SL::Auth; |
|
| 3 |
use SL::Auth::Constants qw(:all); |
|
| 6 | 4 |
use SL::DBUtils; |
| 7 | 5 |
|
| 8 | 6 |
use strict; |
| ... | ... | |
| 34 | 32 |
|
| 35 | 33 |
if (!$dbh) {
|
| 36 | 34 |
$main::lxdebug->leave_sub(); |
| 37 |
return SL::Auth->ERR_BACKEND();
|
|
| 35 |
return ERR_BACKEND;
|
|
| 38 | 36 |
} |
| 39 | 37 |
|
| 40 | 38 |
my $query = qq|SELECT password FROM auth."user" WHERE login = ?|; |
| ... | ... | |
| 45 | 43 |
|
| 46 | 44 |
$main::lxdebug->leave_sub(); |
| 47 | 45 |
|
| 48 |
return $password eq $stored_password ? SL::Auth->OK() : SL::Auth->ERR_PASSWORD();
|
|
| 46 |
return $password eq $stored_password ? OK : ERR_PASSWORD;
|
|
| 49 | 47 |
} |
| 50 | 48 |
|
| 51 | 49 |
sub can_change_password {
|
| ... | ... | |
| 64 | 62 |
|
| 65 | 63 |
if (!$dbh) {
|
| 66 | 64 |
$main::lxdebug->leave_sub(); |
| 67 |
return SL::Auth->ERR_BACKEND()
|
|
| 65 |
return ERR_BACKEND;
|
|
| 68 | 66 |
} |
| 69 | 67 |
|
| 70 | 68 |
$password = crypt $password, substr($login, 0, 2) if (!$is_crypted); |
Auch abrufbar als: Unified diff
Auth Konstanten ausgelagert in ein eigenes Package.
Dadurch keine Probleme mit zirkulären Includes mehr. Ausserdem DBI an der richtigen Stelle eingebunden.