3 |
use strict; |
use strict; |
4 |
use warnings; |
use warnings; |
5 |
|
|
6 |
|
my $use_disk_cache = 1; |
7 |
|
|
8 |
use LWP::UserAgent; |
use LWP::UserAgent; |
9 |
|
|
10 |
my $ua = LWP::UserAgent->new; |
my $ua = LWP::UserAgent->new; |
17 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
18 |
|
|
19 |
sub item { |
sub item { |
20 |
my ( $class, $client, $item ) = @_; |
my ( $class, $client, $sid ) = @_; |
21 |
|
|
22 |
|
my $item = unpack('h*', substr($sid,-8)) % 10000; |
23 |
|
|
24 |
my $html; |
my $html; |
25 |
my $status = 200; |
my $status = 200; |
30 |
|
|
31 |
warn "# koha item $item from cache\n"; |
warn "# koha item $item from cache\n"; |
32 |
|
|
33 |
} elsif ( 0 && -e $path ) { # FIXME enable |
} elsif ( $use_disk_cache && -e $path ) { |
34 |
|
|
35 |
$html = $cache->{$item} = read_file( $path ); |
$html = $cache->{$item} = read_file( $path ); |
36 |
|
|