more parsing crap

[infobot.git] / src / Modules / Weather.pl

diff --git a/src/Modules/Weather.pl b/src/Modules/Weather.pl
index d2a957769c6442aee55afc312061ff6e3cb20665..d43614af4d280a3f7b39e4150439c4b647da4e75 100644 (file)
--- a/src/Modules/Weather.pl
+++ b/src/Modules/Weather.pl
@@ -60,7 +60,10 @@ sub queryText {
        }
 
        $content = $response->content;
-       $content =~ s|.*?current weather conditions.*?<BR>([^<]*?)\s*<.*?</TR>||is;
+       $content =~ s|.*?<BODY[^>]*>||is;
+       #$content =~ s|.*?current weather conditions.*?<BR>([^<]*?)\s*<.*?</TR>||is;
+       $content =~ s|.*?current weather conditions[^<]*(<[^>]+>\s*)+||is;
+       $content =~ s|([^<]*?)\s*<.*?</TR>||is;
        my $place = $1;
        chomp $place;