Revision f9736118
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 92 | 92 |
sub authenticate_root {
|
| 93 | 93 |
$main::lxdebug->enter_sub(); |
| 94 | 94 |
|
| 95 |
my $self = shift; |
|
| 96 |
my $password = shift; |
|
| 97 |
my $is_crypted = shift; |
|
| 95 |
my $self = shift;
|
|
| 96 |
my $password = shift;
|
|
| 97 |
my $is_crypted = shift;
|
|
| 98 | 98 |
|
| 99 |
$password = crypt $password, 'ro' if (!$password || !$is_crypted); |
|
| 100 |
my $admin_password = crypt "$self->{admin_password}", 'ro';
|
|
| 99 |
$password = crypt $password, 'ro' if (!$password || !$is_crypted);
|
|
| 100 |
my $admin_password = crypt "$self->{admin_password}", 'ro';
|
|
| 101 | 101 |
|
| 102 | 102 |
$main::lxdebug->leave_sub(); |
| 103 | 103 |
|
Auch abrufbar als: Unified diff
Kosmetik.