From bc3c887a97b1b3405e36b7b6b5794793f3be88ca Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 7 Aug 2003 01:36:49 +0000
Subject: [PATCH] more parsing crap

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@797 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/Modules/Weather.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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