Revision 16f91f23
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 730 | 730 |
my $key = "$$-" . ($now[0] * 1000000 + $now[1]) . "-"; |
| 731 | 731 |
$self->{unique_counter} ||= 0;
|
| 732 | 732 |
|
| 733 |
$self->{unique_counter}++ while exists $self->{SESSION}->{$key . $self->{unique_counter}};
|
|
| 733 |
$self->{unique_counter}++ while exists $self->{SESSION}->{$key . ($self->{unique_counter} + 1)};
|
|
| 734 | 734 |
$self->{unique_counter}++;
|
| 735 | 735 |
|
| 736 | 736 |
$value = { expiration => $params{expiration} ? ($now[0] + $params{expiration}) * 1000000 + $now[1] : undef,
|
Auch abrufbar als: Unified diff
create_unique_session_value hat immer falsch auf Eindeutigkeit der Nummer geprüft