#
# Perl script to modify names of GPX waypoints in file downloaded from SOTADATA.ORG
# (c) 2018, Jan Uhrin, OM2JU
# License: Free, enjoy
#
# Example of Waypoint entry:
#
#   <wpt lat="48.6330" lon="14.6850">                        <-- print this line
#    <ele>1040</ele>                                         <-- don't print this line
#    <name>OK/JC-027</name>                                  <-- don't print this line
#    <cmt><![CDATA[Myslivna]]></cmt>                         <-- don't print this line
#    <desc><![CDATA[SOTA Association: OK - Czechia, Region: Jihoceský]]></desc>  <-- don't print this line
#    <sym>SOTA10</sym>                                       <-- don't print this line
#    <type>SOTA Summit OK/JC</type>                          <-- don't print this line
#  </wpt>                                                    <-- print this line
#
# Iterate through all lines in text file entered as command line argument
while (<>) {
  # By default let print everything except lines with specific tags
  $print_flag = 1;
  # This flag is activated when new assembled SOTA name is ready
  $print_flag_name = 0;
  #
  # Let print everything except the lines with following tags
  if ($_ =~ /<ele/)   { $print_flag=0; }
  if ($_ =~ /<name/)  { $print_flag=0; }
  if ($_ =~ /<cmt/)   { $print_flag=0; }
  if ($_ =~ /<desc/)  { $print_flag=0; }
  if ($_ =~ /<sym/)   { $print_flag=0; }
  if ($_ =~ /<type/)  { $print_flag=0; }
  #
  # Assemble SOTA name from various parts, final result will look like: SOTA-REF, Elevation, Points - Summit_name
  if ($_ =~ /<name>(.*)<\/name>/)   { $ref = $1; }
  if ($_ =~ /<ele>(.*)<\/ele>/)     { $ele = $1; }
  if ($_ =~ /<cmt><\!\[CDATA\[(.*)\]\]><\/cmt>/) { $summit  = $1; }
  if ($_ =~ /<sym>SOTA(.*)<\/sym>/) { $sym  = $1; $print_flag_name++; }
  #
  # Print all lines except ones with $print_flag=0
  print if ($print_flag>0);
  #
  # Print new SOTA name
  if ($print_flag_name>0) {
    printf("    <name>%s, %sm, %sp - %s</name>\n", $ref, $ele, $sym, $summit );
  }
}