splitti
Geocacher
Hi!
Mir ist gerade aufgefallen, das geoown nach dem Update von gc.com nicht mehr lief. Ich hab auf die Schnelle mal ein paar Anpassungen vorgenommen....
Ob das alles ist, und ob das wirklich gut ist, weiß ich nicht ;-)
Mir ist gerade aufgefallen, das geoown nach dem Update von gc.com nicht mehr lief. Ich hab auf die Schnelle mal ein paar Anpassungen vorgenommen....
Ob das alles ist, und ob das wirklich gut ist, weiß ich nicht ;-)
Code:
--- geoown.pl 2010-11-11 16:32:40.000000000 +0100
+++ /soft3/geolog/geoown/geoown.pl 2010-11-11 16:24:46.000000000 +0100
@@ -1384,12 +1384,12 @@
sub cachehidden {
my($id,$text) = @_;
my($day,$month,$year);
- if ($text =~ /Event Date.*?:<\/strong>.*?[A-Za-z]+, ([0-9]{1,2}) ([A-Za-z]+) ([0-9]{4})/si) {
+ if ($text =~ /Event Date.*?:.*?<\/strong>.*?[A-Za-z]+, ([0-9]{1,2}) ([A-Za-z]+) ([0-9]{4})/si) {
$month = $2;
$day = $1;
$year = $3;
}
- if ($text =~ /Hidden.*?:<\/strong>.*?([0-9]{1,2})\/([0-9]{1,2})\/([0-9]{4})/si) {
+ if ($text =~ /Hidden.*?:.*?<\/strong>.*?([0-9]{1,2})\/([0-9]{1,2})\/([0-9]{4})/si) {
$month = $1;
$day = $2;
$year = $3;
@@ -1463,7 +1463,7 @@
while ($text =~ m%(<tr><td.*?>.*?<\/td><\/tr>)%sig) {
$entry = $1;
#$text =~ s|$entry||gs;
- if($entry =~ m%<strong><img src=\"http://www.geocaching.com/images/icons/(.+?)\.gif\".*?>\ \;([a-zA-Z]+)\s+([0-9]{1,2})(|,\s+[0-9]{4})\s+by\s+<a href=\"/profile/\?guid=(.+?)\" id=\"([0-9]+?)\".*?>(.*?)</a></strong>\s*\([0-9]+\s+found\)<br />(.*?)<br /><small>%si) {
+ if($entry =~ m%<strong><img src=\'http://www.geocaching.com/images/icons/(.+?)\.gif\'.*?>\ \;([a-zA-Z]+)\s+([0-9]{1,2})(|,\s+[0-9]{4})\s+by\s+<a href=\'/profile/\?guid=(.+?)\' id=\'([0-9]+?)\'.*?>(.*?)</a></strong>.*?found\)<br/>(.*?)<br /><small>%si) {
$icon = $1;
$month = $2;
$day = $3;