Revision 0e6ac5bb
Von Sven Schöling vor fast 17 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 97 | 97 |
my $is_crypted = shift; |
| 98 | 98 |
|
| 99 | 99 |
$password = crypt $password, 'ro' if (!$password || !$is_crypted); |
| 100 |
$admin_password = crypt "$self->{admin_password}", 'ro';
|
|
| 100 |
my $admin_password = crypt "$self->{admin_password}", 'ro';
|
|
| 101 | 101 |
|
| 102 | 102 |
$main::lxdebug->leave_sub(); |
| 103 | 103 |
|
| ... | ... | |
| 325 | 325 |
|
| 326 | 326 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| 327 | 327 |
$users{$ref->{login}} ||= { 'login' => $ref->{login}, 'id' => $ref->{id} };
|
| 328 |
$users{$ref->{login}}->{$ref->{cfg_key}} = $ref->{cfg_value} if (($cfg_key ne 'login') && ($cfg_key ne 'id'));
|
|
| 328 |
$users{$ref->{login}}->{$ref->{cfg_key}} = $ref->{cfg_value} if (($ref->{cfg_key} ne 'login') && ($ref->{cfg_key} ne 'id'));
|
|
| 329 | 329 |
} |
| 330 | 330 |
|
| 331 | 331 |
$sth->finish(); |
Auch abrufbar als: Unified diff
Dokumentation ergänzt.
Ausserdem zwei Bugs in Auth.pm behoben