cup.perl - diff

Return to cup.perl CVS log

Up to [Omarama Landouts]

-version 1.1, 2013/11/16 21:15:36
+version 1.3, 2013/12/26 19:59:00
  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";
  #"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;
  foreach my $stripnum ( keys %{$strips->{strip}} ){
-  print CUP $strips->{strip}->{$stripnum}->{name} . ",";
+  print CUP qq["$strips->{strip}->{$stripnum}->{name}",];
-  print CUP $stripnum . ",NZ,";
+  print CUP qq["$stripnum",NZ,];
   $strips->{strip}->{$stripnum}->{lat} =~ s/://;
   print CUP $strips->{strip}->{$stripnum}->{lat} . ",";
   $strips->{strip}->{$stripnum}->{lng} =~ s/://;
   print CUP $strips->{strip}->{$stripnum}->{lng} . ",";
-  print CUP $strips->{strip}->{$stripnum}->{elev} . "f,1,,,,";
+  print CUP $strips->{strip}->{$stripnum}->{elev} . "f,3,,,,";
   if ( defined $strips->{strip}->{$stripnum}->{location} ) {
    print CUP qq{"$strips->{strip}->{$stripnum}->{location}"};
   }