blob: c7aea8074c1264486f3a2c16c5ff20b2bd10bb1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl
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
|
