Lines 28-41
require Exporter;
Link Here
|
28 |
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); |
28 |
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS); |
29 |
|
29 |
|
30 |
eval { |
30 |
eval { |
31 |
my $servers = C4::Context->config('memcached_servers'); |
31 |
my $servers = $ENV{'MEMCACHED_SERVERS'}; |
32 |
if ($servers) { |
32 |
if ($servers) { |
33 |
require Memoize::Memcached; |
33 |
require Memoize::Memcached; |
34 |
import Memoize::Memcached qw(memoize_memcached); |
34 |
import Memoize::Memcached qw(memoize_memcached); |
35 |
|
35 |
|
36 |
my $memcached = { |
36 |
my $memcached = { |
37 |
servers => [$servers], |
37 |
servers => [$servers], |
38 |
key_prefix => C4::Context->config('memcached_namespace') || 'koha', |
38 |
key_prefix => $ENV{'MEMCACHED_NAMESPACE'} || 'koha', |
39 |
expire_time => 600 |
39 |
expire_time => 600 |
40 |
}; # cache for 10 mins |
40 |
}; # cache for 10 mins |
41 |
|
41 |
|
42 |
- |
|
|