| … | |
… | |
| 146 | my $user = shift; |
146 | my $user = shift; |
| 147 | my $key = shift; |
147 | my $key = shift; |
| 148 | my $timestamp = shift; |
148 | my $timestamp = shift; |
| 149 | |
149 | |
| 150 | my ($real_key, $real_timestamp) = $self->getKey($user); |
150 | my ($real_key, $real_timestamp) = $self->getKey($user); |
|
|
151 | return unless defined $real_key and defined $real_timestamp; |
| 151 | if ($key eq $real_key and $timestamp <= $real_timestamp+$self->{key_timeout}) { |
152 | if ($key eq $real_key and $timestamp <= $real_timestamp+$self->{key_timeout}) { |
| 152 | $self->setKey($user, $key, $timestamp); |
153 | $self->setKey($user, $key, $timestamp); |
| 153 | return 1; |
154 | return 1; |
| 154 | } else { |
155 | } else { |
| 155 | return 0; |
156 | return 0; |
Parent Directory
| 
Revision Log
| 
Patch