Revision d0c2cfbe
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 11 | 11 |
use SL::Auth::Constants qw(:all); |
| 12 | 12 |
use SL::Auth::DB; |
| 13 | 13 |
use SL::Auth::LDAP; |
| 14 |
use SL::Auth::Password; |
|
| 14 | 15 |
|
| 15 | 16 |
use SL::SessionFile; |
| 16 | 17 |
use SL::User; |
| ... | ... | |
| 163 | 164 |
return $result; |
| 164 | 165 |
} |
| 165 | 166 |
|
| 167 |
sub store_credentials_in_session {
|
|
| 168 |
my ($self, %params) = @_; |
|
| 169 |
|
|
| 170 |
$params{password} = SL::Auth::Password->hash_if_unhashed(login => $params{login}, password => $params{password})
|
|
| 171 |
unless $self->{authenticator}->requires_cleartext_password;
|
|
| 172 |
|
|
| 173 |
$self->set_session_value(login => $params{login}, password => $params{password});
|
|
| 174 |
} |
|
| 175 |
|
|
| 166 | 176 |
sub dbconnect {
|
| 167 | 177 |
$main::lxdebug->enter_sub(2); |
| 168 | 178 |
|
Auch abrufbar als: Unified diff
Das Benutzer-Passwort nicht im Klartext in Session-Tabelle ablegen