diff options
| author | Struan Donald <struan@exo.org.uk> | 2011-10-17 19:22:47 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2011-10-17 19:22:47 +0100 |
| commit | 1fac2719996a060f4e1c75bef9c1980ac8a5f9ac (patch) | |
| tree | 71317fc07eff1f146fc0cb712e84b7a717afe303 /bin | |
| parent | c0e8290e1a1e846dc555d6b03d2fe8bb71057a2c (diff) | |
notes on creating a cobrand plus a quick helper script for generating location data
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/generate_council_location | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/bin/generate_council_location b/bin/generate_council_location new file mode 100644 index 000000000..36bf14d04 --- /dev/null +++ b/bin/generate_council_location @@ -0,0 +1,26 @@ +use strict; +use JSON; +use LWP::Simple; + +my $id = shift; + +my $url = sprintf( 'http://mapit.mysociety.org/area/%s/geometry', $id); + +my $json = get( $url ); +my $geo = decode_json( $json ); + +my $max_lat = $geo->{max_lat}; +my $min_lat = $geo->{min_lat}; +my $max_lon = $geo->{max_lon}; +my $min_lon = $geo->{min_lon}; +my $c_lat = $geo->{centre_lat}; +my $c_lon = $geo->{centre_lon}; + +my $spn_lat = $max_lat - $min_lat; +my $spn_lon = $max_lon - $min_lon; + +print <<"EOT"; + centre => '$c_lat,$c_lon', + span => '$spn_lat,$spn_lon', + bounds => [ '$min_lat,$min_lon','$max_lat,$max_lon' ], +EOT |