From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 7 Aug 2003 01:36:49 +0000 (+0000)
Subject: more parsing crap
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a499da459f23a72496c00e27170fe49252960844;p=infobot.git

more parsing crap


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@797 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Modules/Weather.pl b/src/Modules/Weather.pl
index d2a9577..d43614a 100644
--- 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;