|
|
| version 1.2, 2013/11/17 20:18:17 | version 1.3, 2013/12/26 19:59:00 |
|---|---|
| Line 15 open CUP, "> OmLand.cup" or die "Couldn' | Line 15 open CUP, "> OmLand.cup" or die "Couldn' |
| print CUP "name,code,country,lat,lon,elev,style,rwdir,rwlen,freq,desc,userdata,pics\n"; | print CUP "name,code,country,lat,lon,elev,style,rwdir,rwlen,freq,desc,userdata,pics\n"; |
| #"Ahuriri",0002,NZ,4414.000S,16936.000E,756.0m,1,,,,"Mouth of Canyon Creek",, | #"Ahuriri",0002,NZ,4414.000S,16936.000E,756.0m,1,,,,"Mouth of Canyon Creek",, |
| # Style is | |
| # 1 Normal waypoint | |
| # 2 Airfield grass | |
| # 3 Outlanding | |
| # 4 Glider site | |
| # 5 Airfield sealed | |
| # 6 Mountain Pass | |
| # 7 Mountain Top | |
| # 8 Sender | |
| # 9 VOR | |
| # 10 NDB | |
| # 11 Cooling tower | |
| # 12 Dam | |
| # 13 Tunnel | |
| # 14 Bridge | |
| # 15 Power plant | |
| # 16 Castle | |
| # 17 Intersection | |
| my %strips; | my %strips; |
| foreach my $stripnum ( keys %{$strips->{strip}} ){ | foreach my $stripnum ( keys %{$strips->{strip}} ){ |