Revision cdacfe1c
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 815 | 815 |
my $key = "$$-" . ($now[0] * 1000000 + $now[1]) . "-"; |
| 816 | 816 |
$self->{unique_counter} ||= 0;
|
| 817 | 817 |
|
| 818 |
$self->{unique_counter}++ while exists $self->{SESSION}->{$key . ($self->{unique_counter} + 1)};
|
|
| 819 |
$self->{unique_counter}++;
|
|
| 818 |
my $hashed_key; |
|
| 819 |
do {
|
|
| 820 |
$self->{unique_counter}++;
|
|
| 821 |
$hashed_key = md5_hex($key . $self->{unique_counter});
|
|
| 822 |
} while (exists $self->{SESSION}->{$hashed_key});
|
|
| 820 | 823 |
|
| 821 |
$self->set_session_value($key . $self->{unique_counter} => $value);
|
|
| 824 |
$self->set_session_value($hashed_key => $value);
|
|
| 822 | 825 |
|
| 823 |
return $key . $self->{unique_counter};
|
|
| 826 |
return $hashed_key;
|
|
| 824 | 827 |
} |
| 825 | 828 |
|
| 826 | 829 |
sub save_form_in_session {
|
Auch abrufbar als: Unified diff
Prozess-ID & Uhrzeit nicht sichtbar in Session-Keys verwenden