Revision f07df483
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1410 | 1410 |
sub save_preferences {
|
| 1411 | 1411 |
$main::lxdebug->enter_sub(); |
| 1412 | 1412 |
|
| 1413 |
my ($self, $myconfig, $form, $webdav) = @_;
|
|
| 1413 |
my ($self, $myconfig, $form) = @_; |
|
| 1414 | 1414 |
|
| 1415 | 1415 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 1416 | 1416 |
|
| ... | ... | |
| 1438 | 1438 |
|
| 1439 | 1439 |
my $auth = $main::auth; |
| 1440 | 1440 |
|
| 1441 |
if ($auth->can_change_password() |
|
| 1442 |
&& defined $form->{new_password}
|
|
| 1443 |
&& ($form->{new_password} ne '********')) {
|
|
| 1444 |
$auth->change_password($form->{login}, $form->{new_password});
|
|
| 1445 |
|
|
| 1446 |
$form->{password} = $form->{new_password};
|
|
| 1447 |
$auth->set_session_value('password', $form->{password});
|
|
| 1448 |
$auth->create_or_refresh_session(); |
|
| 1449 |
} |
|
| 1450 |
|
|
| 1451 | 1441 |
$main::lxdebug->leave_sub(); |
| 1452 | 1442 |
|
| 1453 | 1443 |
return $rc; |
Auch abrufbar als: Unified diff
Überprüfung der Passwortrichtlinie, wenn die Benutzerin ihr Passwort ändert