geoown neues GC-Layout

splitti · 11 Nov. 2010

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 ;-)

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\".*?>\&nbsp\;([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\'.*?>\&nbsp\;([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;

geoown neues GC-Layout

splitti

Geocacher