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

parsing


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

diff --git a/blootbot/src/Modules/Weather.pl b/blootbot/src/Modules/Weather.pl
index 2cdf25b..d2a9577 100644
--- a/blootbot/src/Modules/Weather.pl
+++ b/blootbot/src/Modules/Weather.pl
@@ -60,10 +60,8 @@ sub queryText {
 	}
 
 	$content = $response->content;
-	$content =~ s|.*?current weather conditions.*?<BR>([^<]*)<.*?</TR>||is;
+	$content =~ s|.*?current weather conditions.*?<BR>([^<]*?)\s*<.*?</TR>||is;
 	my $place = $1;
-	$content =~ s|.*?<TR>(?:\s*<[^>]+>)*\s*([^<]+)\s<.*?</TR>||is;
-	$place .= $1;
 	chomp $place;
 
 	$content =~ s|.*?<TR>(?:\s*<[^>]+>)*\s*([^<]+)\s<.*?</TR>||is;
@@ -72,7 +70,8 @@ sub queryText {
 
 	$content =~ s|.*?conditions at.*?</TD>||is;
 
-	$content =~ s|.*?<OPTION SELECTED>\s+([^<]+)\s<OPTION>.*?</TR>||s;
+	#$content =~ s|.*?<OPTION SELECTED>\s+([^<]+)\s<OPTION>.*?</TR>||s; # local time
+	$content =~ s|.*?<BR>\s+([^<]+?)\s*</FORM>.*?</TR>||s; # UTC
 	my $time = $1;
 	$time =~ s/-//g;
 	$time =~ s/\s+/ /g;