diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2015-01-23 14:35:00 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2015-02-13 11:38:05 +0000 |
| commit | 0dc3e4f2c0b6e90c2b67fab5aaf7c9c3d2b1f971 (patch) | |
| tree | bd9ced8416bd5c8bc65a595bff805bbc2c0ff709 /perllib/FixMyStreet/Geocode/Zurich.pm | |
| parent | 04117b8be30b5d82d50cdc047ac4e7c19864f8ed (diff) | |
Expire cached geolocations after a week.
And refactor geoloction caching code into one function
(except for Zurich which has its own SOAP based system).
Diffstat (limited to 'perllib/FixMyStreet/Geocode/Zurich.pm')
| -rw-r--r-- | perllib/FixMyStreet/Geocode/Zurich.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Geocode/Zurich.pm b/perllib/FixMyStreet/Geocode/Zurich.pm index 1f0b4fc16..d0355e1e5 100644 --- a/perllib/FixMyStreet/Geocode/Zurich.pm +++ b/perllib/FixMyStreet/Geocode/Zurich.pm @@ -66,7 +66,7 @@ sub string { my $cache_dir = FixMyStreet->config('GEO_CACHE') . 'zurich/'; my $cache_file = $cache_dir . md5_hex($s); my $result; - if (-s $cache_file) { + if (-s $cache_file && -M $cache_file <= 7) { $result = retrieve($cache_file); } else { my $search = SOAP::Data->name('search' => $s)->type(''); |