www.geocaching.com : main website to find caches

http://gctour.madd.in : greasemonkey script to get additional features on geocaching.com (easy download of geocaches with full description). Had to apply the following modifs to make gpx download work:

2773c2773
<     date_format = $('select#ctl00_ContentBody_uxDateTimeFormat option:selected', response_div).val();
---
>     date_format = "MM/dd/yyyy";

Perl script to convert the gpx to be displayed in OruxMaps (inspired from this script):

open INF,"@ARGV[0]";
@gpx = <INF>;
close INF;
 
open OUTF,">@ARGV[0].out.gpx";
 
$size = $#gpx + 1;
 
while ($x < $size){
   print OUTF "$gpx[$x]";
   if ($gpx[$x] =~ /<wpt.*>/){
      #$y=<STDIN>;
      until ($gpx[$x] =~ /<\/wpt>/){
         $wpt .= $gpx[$x];
         $x++;
      }
      $x--;
 
      $wpt =~ /<time>(.*?)<\/time>/xsi; $time = $1;
      $wpt =~ /<name>(.*?)<\/name>/xsi; $name = $1;
      $wpt =~ /<desc>(.*?)<\/desc>/xsi; $desc = $1;
      $wpt =~ /<url>(.*?)<\/url>/xsi; $url = $1;
      $wpt =~ /<urlname>(.*?)<\/urlname>/xsi; $urlname = $1;
      $wpt =~ /<type>(.*?)<\/type>/xsi; $type = $1;
      $wpt =~ /<sym>(.*?)<\/sym>/xsi; $sym = $1;
      $wpt =~ /<groundspeak:name>(.*?)<\/groundspeak:name>/xsi; $gsname = $1;
      $wpt =~ /<groundspeak:type>(.*?)<\/groundspeak:type>/xsi; $gstype = $1;
      $wpt =~ /<groundspeak:container>(.*?)<\/groundspeak:container>/xsi; $gscontainer = $1;
      $wpt =~ /<groundspeak:difficulty>(.*?)<\/groundspeak:difficulty>/xsi; $gsdifficulty = $1;
      $wpt =~ /<groundspeak:terrain>(.*?)<\/groundspeak:terrain>/xsi; $gsterrain = $1;
      $wpt =~ /<groundspeak:short_description.*?>(.*)<\/groundspeak:short_description>/xsi; $gsshort_description = $1;
      $wpt =~ /<groundspeak:long_description.*?>(.*)<\/groundspeak:long_description>/xsi; $gslong_description = $1;
      $wpt =~ /<groundspeak:encoded_hints>(.*?)<\/groundspeak:encoded_hints>/xsi; $gsencoded_hints = $1;
      $wpt =~ /<groundspeak:logs>(.*?)<\/groundspeak:logs>/xsi; $gslogs = $1;
      $wpt =~ /<groundspeak:attributes>(.*?)<\/groundspeak:attributes>/xsi; $gsattrs = $1;
      $gsencoded_hints =~ s/\n//g;
      $break = "&lt;br /&gt;&lt;br /&gt;\n------------------------------\n&lt;br /&gt;&lt;br /&gt;\n";
      $hbreak = "&lt;br /&gt;\n";
      $gslogs =~ s/<\/.*?>/$hbreak/g;
      $gslogs =~ s/<.*?>//g;
      $gsattrs =~ s/<\/.*?>/ ; /g;
      $gsattrs =~ s/<.*?>//g;
 
      print OUTF
      "<name>$name $gsname</name>\n".
      "<time>$time</time>\n".
      "<url>$url</url>\n".
      "<urlname>$urlname</urlname>\n".
      "<type>$type</type>\n".
      "<sym>$sym</sym>\n".
      "<desc>\n".
      $break.
      "Type $gstype ; Size $gscontainer ; Difficulty $gsdifficulty ; Terrain $gsterrain\n".
      $hbreak.$hbreak.
      "$gsattrs\n".
      $break.
      "$gsshort_description\n".
      $break.
      "Hint: $gsencoded_hints\n".
      $break.
      "$gslong_description\n".
      $break.
      "$gslogs\n".
      $break.
      "</desc>\n";
 
      $wpt="";
   }
   $x++;
}
 
close OUTF;