Revision 16f91f23
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
|
my $key = "$$-" . ($now[0] * 1000000 + $now[1]) . "-";
|
||
|
$self->{unique_counter} ||= 0;
|
||
|
|
||
|
$self->{unique_counter}++ while exists $self->{SESSION}->{$key . $self->{unique_counter}};
|
||
|
$self->{unique_counter}++ while exists $self->{SESSION}->{$key . ($self->{unique_counter} + 1)};
|
||
|
$self->{unique_counter}++;
|
||
|
|
||
|
$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