diff options
| -rwxr-xr-x | bin/zurich/geocode | 45 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Geocode/Zurich.pm | 1 |
2 files changed, 46 insertions, 0 deletions
diff --git a/bin/zurich/geocode b/bin/zurich/geocode new file mode 100755 index 000000000..9482b27e6 --- /dev/null +++ b/bin/zurich/geocode @@ -0,0 +1,45 @@ +#!/usr/bin/perl + +=head1 NAME + +zurich/geocode - commandline tool to test the Zurich geocoder + +=head1 SYNOPSIS + + # Firstly: + ## copy the GEOCODER config from a current Zurich conf to your conf/general.yml + $ eval `perl setenv.pl` + + $ bin/zurich/geocode Magnus + + # ... output from geocoder + +This can be used to test the results of, e.g. + + https://www.zueriwieneu.ch/ajax/geocode?term=Magnus + +but without the caching which FixMyStreet applies, and passing on any 500 +errors from the server. + +=cut + +use strict; +use warnings; +require 5.8.0; + + +use Data::Dumper; +use feature 'say'; + +use FixMyStreet; +use FixMyStreet::App; +use FixMyStreet::Geocode::Zurich; + +# TODO use FixMyStreet::override_config to get data from conf/general.yml.zurich if available +my $geocoder = FixMyStreet->config('GEOCODER') + or die "No GEOCODER config -- please copy appropriate Zurich conf to conf/general.yml"; + +my $c = FixMyStreet::App->new(); +my $s = join ' ', @ARGV; + +say Dumper( FixMyStreet::Geocode::Zurich::string( $s, $c ) ); diff --git a/perllib/FixMyStreet/Geocode/Zurich.pm b/perllib/FixMyStreet/Geocode/Zurich.pm index 0fc84c0ef..7ba3d27ad 100644 --- a/perllib/FixMyStreet/Geocode/Zurich.pm +++ b/perllib/FixMyStreet/Geocode/Zurich.pm @@ -76,6 +76,7 @@ sub string { $result = $soap->call($method, $security, $search, $count); }; if ($@) { + warn $@ if FixMyStreet->config('STAGING_SITE'); return { error => 'The geocoder appears to be down.' }; } $result = $result->result; |