--- landouts-json.perl	2019/12/03 20:12:55	3.1
+++ landouts-json.perl	2020/07/18 01:35:56	3.2
@@ -1,5 +1,5 @@
 #! /usr/bin/perl -w
-# $Id: landouts-json.perl,v 3.1 2019/12/03 20:12:55 philip Exp $
+# $Id: landouts-json.perl,v 3.2 2020/07/18 01:35:56 philip Exp $
 use XML::Simple;
 use JSON;
 use strict;
@@ -60,6 +60,15 @@ foreach my $ad ( keys %{$aerodromes->{'w
  if ( defined $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'}->{'type'} = "Point";
  push @features, $feature;
@@ -67,5 +76,7 @@ foreach my $ad ( keys %{$aerodromes->{'w
 my $json_out;
 $json_out->{'type'} = "FeatureCollection";
 $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;