From 766118d9e5eab30a00af45b09aeb6b5e8288f658 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 7 Aug 2003 01:16:42 +0000
Subject: [PATCH] parsing

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

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