Commit ffcda639 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

json2json: prune invalid coordinates

parent f403b2c1

share/json2json

+16 −2
Original line number Diff line number Diff line
@@ -13,7 +13,8 @@ my $stations = JSON->new->utf8->decode($json_str); 


my $have_duplicates = 0;

my @names           = map { $_->{name} } @{$stations};

my @ds100           = map { $_->{ds100} } sort { $a->{ds100} cmp $b->{ds100} } @{$stations};

my @ds100

  = map { $_->{ds100} } sort { $a->{ds100} cmp $b->{ds100} } @{$stations};

my @eva_ids = map { $_->{eva} } sort { $a->{eva} <=> $b->{eva} } @{$stations};



for my $i ( 1 .. $#names ) {
@@ -40,5 +41,18 @@ if ($have_duplicates) { 
	say "Please remove duplicate entries before opening a pull request.";

}



for my $station ( @{$stations} ) {

	$station->{eva} = 0 + $station->{eva};

	if (    $station->{latlong}

		and $station->{latlong}[0] == 0

		and $station->{latlong}[1] == 0 )

	{

		$station->{latlong} = undef;

	}

	elsif ( not exists $station->{latlong} ) {

		$station->{latlong} = undef;

	}

}



my $json_out = JSON->new->utf8->canonical->pretty->encode($stations);

write_file( 'stations.json', $json_out );