You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
3 358ɿ f 3You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
5 355ɿ c 5The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
" 7lze q\jbѿ 45 - 7 +WM3/-IM+IM3 4St 9 358 f 9You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
; 355 c ;The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
0 =lah 8]1h ]__ ub &=LV[( - = package Memoize::Expire; # require 5.00556; use Carp; $DEBUG = 0; $VERSION = '1.02'; # This package will implement expiration by prepending a fixed-length header # to the font of the cached data. The format of the header will be: # (4-byte number of last-access-time) (For LRU when I implement it) # (4-byte expiration time: unsigned seconds-since-unix-epoch) # (2-byte number-of-uses-before-expire) sub _header_fmt () { "N N n" } sub _header_size () { length(_header_fmt) } # Usage: memoize func # TIE => [Memoize::Expire, LIFETIME => sec, NUM_USES => n, # TIE => [...] ] BEGIN { eval {require Time::HiRes}; unless ($@) { Time::HiRes->import('time'); } } sub TIEHASH { my ($package, %args) = @_; my %cache; if ($args{TIE}) { my ($module, @opts) = @{$args{TIE}}; my $modulefile = $module . '.pm'; $modulefile =~ s{::}{/}g; eval { require $modulefile }; if ($@) { croak "Memoize::Expire: Couldn't load hash tie module `$module': $@; aborting"; } my $rc = (tie %cache => $module, @opts); unless ($rc) { croak "Memoize::Expire: Couldn't tie hash to `$module': $@; aborting"; } } $args{LIFETIME} ||= 0; $args{NUM_USES} ||= 0; $args{C} = \%cache; bless \%args => $package; } sub STORE { $DEBUG and print STDERR " >> Store $_[1] $_[2]\n"; my ($self, $key, $value) = @_; my $expire_time = $self->{LIFETIME} > 0 ? $self->{LIFETIME} + time : 0; # The call that results in a value to store into the cache is the # first of the NUM_USES allowed calls. my $header = _make_header(time, $expire_time, $self->{NUM_USES}-1); $self->{C}{$key} = $header . $value; $value; } sub FETCH { $DEBUG and print STDERR " >> Fetch cached value for $_[1]\n"; my ($data, $last_access, $expire_time, $num_uses_left) = _get_item($_[0]{C}{$_[1]}); $DEBUG and print STDERR " >> (ttl: ", ($expire_time-time()), ", nuses: $num_uses_left)\n"; $n