Revision a0945527
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 36 | 36 |
return $self; |
| 37 | 37 |
} |
| 38 | 38 |
|
| 39 |
sub reset {
|
|
| 40 |
my ($self, %params) = @_; |
|
| 41 |
|
|
| 42 |
$self->{SESSION} = { };
|
|
| 43 |
$self->{FULL_RIGHTS} = { };
|
|
| 44 |
$self->{RIGHTS} = { };
|
|
| 45 |
$self->{unique_counter} = 0;
|
|
| 46 |
} |
|
| 47 |
|
|
| 39 | 48 |
sub get_user_dbh {
|
| 40 | 49 |
my ($self, $login) = @_; |
| 41 | 50 |
my %user = $self->read_user($login); |
Auch abrufbar als: Unified diff
$::auth nicht löschen sondern nur resetten. (Experimentell)