landouts-json.perl - diff

Return to landouts-json.perl CVS log

Up to [Omarama Landouts]

Diff for /landouts-json.perl between versions 3.1 and 3.2

version 3.1, 2019/12/03 20:12:55	version 3.2, 2020/07/18 01:35:56
Line 60 foreach my $ad ( keys %{$aerodromes->{'w	Line 60 foreach my $ad ( keys %{$aerodromes->{'w
if ( defined $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'slope'} ){	if ( defined $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'slope'} ){
$feature->{'properties'}->{'slope'} = $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'slope'};	$feature->{'properties'}->{'slope'} = $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'slope'};
}	}
	if ( defined $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'style'} ){
	$feature->{'properties'}->{'style'} = $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'style'};
	}
	if ( defined $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'rwdir'} ){
	$feature->{'properties'}->{'rwdir'} = $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'rwdir'};
	}
	if ( defined $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'rwlen'} ){
	$feature->{'properties'}->{'rwlen'} = $aerodromes->{'wpt'}->{$ad}->{'extensions'}->{'rwlen'};
	}
$feature->{'geometry'}->{'coordinates'} = \@coordinates;	$feature->{'geometry'}->{'coordinates'} = \@coordinates;
$feature->{'geometry'}->{'type'} = "Point";	$feature->{'geometry'}->{'type'} = "Point";
push @features, $feature;	push @features, $feature;
Line 67 foreach my $ad ( keys %{$aerodromes->{'w	Line 76 foreach my $ad ( keys %{$aerodromes->{'w
my $json_out;	my $json_out;
$json_out->{'type'} = "FeatureCollection";	$json_out->{'type'} = "FeatureCollection";
$json_out->{'features'} = \@features;	$json_out->{'features'} = \@features;
print $json->pretty->encode($json_out);	open GEOJSON, "> landouts.geojson" or die "Couldn't open OmLand.geojson: $!\n";
	print GEOJSON $json->pretty->encode($json_out);
	close GEOJSON;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.3.1
changed lines
	Added in v.3.2