Changeset 355e31d31 in mythtv

Timestamp:

Jun 24, 2013, 10:22:49 PM (11 years ago)

Author:

Joe Ripley <jripley@…>

Branches:

fixes/0.26

Children:

f5c2875ec

Parents:

fe3e4d09d

git-author:

Joe Ripley <jripley@…> (06/24/13 22:22:49)

git-committer:

Stuart Morgan <smorgan@…> (06/24/13 22:27:51)

Message:

MythWeather? Environment Canada Parser update

Fixes #11623

Signed-off-by: Stuart Morgan <smorgan@…>
(cherry picked from commit 34620185a9a5b832bcc9bb597e3afe0668fbee06)

File:

• mythplugins/mythweather/mythweather/scripts/ca_envcan/ENVCANParser.pm (modified) (8 diffs)

mythplugins/mythweather/mythweather/scripts/ca_envcan/ENVCANParser.pm

@@ -12 +12 @@
 use XML::Simple;
 
-our $VERSION = 0.5;
+our $VERSION = 0.6;
 
 my %results;
@@ -23 +23 @@
                     SE => "Southeast",  WNW => "West Northwest",
                     SW => "Southwest",  NNW => "North Northwest");
+
+my %degrees = (     N  => 0,   NNE => 22.5,
+                    S  => 180, ENE => 67.5,
+                    E  => 90,  ESE => 112.5,
+                    W  => 270, SSE => 157.5,
+                    NE => 45,  SSW => 202.5,
+                    NW => 315, WSW => 247.5,
+                    SE => 135, WNW => 292.5,
+                    SW => 225, NNW => 337.5);
 
 sub getIcon {
@@ -36 +45 @@
         $icon = 'fog.png';
     }
+    elsif ($condition =~ /precip/i) {
+        $icon = 'lshowers.png';
+        $icon = 'rainsnow.png'  if ($condition =~ /freezing/i);
+    }
     elsif ($condition =~ /drizzle/i) {
         $icon = 'lshowers.png';
@@ -48 +61 @@
         $icon = 'thunshowers.png' if ($condition =~ /thunder/i);
     }
+    elsif ($condition =~ /overcast/i) {
+        $icon = 'cloudy.png';
+    }
     elsif ($condition =~ /cloud/i) {
         $icon = 'cloudy.png';
@@ -58 +74 @@
     elsif ($condition =~ /clear/i) {
         $icon = 'fair.png';
+        $icon = 'pcloudy.png' if ($condition =~ /clearing/i);
     }
     elsif ($condition =~ /sun/i) {
@@ -76 +93 @@
     foreach my $type (@types) { $results{$type} = ""; }
 
-    my $xml = XMLin($data);
+    my $xml = XMLin($data, ForceArray => [ 'id' ] );
     die if (!$xml);
 
-    $results{'copyright'}  = $xml->{channel}->{copyright};
-    if ($xml->{channel}->{title} =~ /^(.*) - Weather/) {
+    $results{'copyright'}  = $xml->{rights};
+    if ($xml->{title} =~ /^(.*) - Weather/) {
         $results{'cclocation'} = ucfirst($1); 
         $results{'3dlocation'} = ucfirst($1); 
@@ -87 +104 @@
    
     my $i = 0; 
-    foreach my $item (@{$xml->{channel}->{item}}) {
+
+    foreach my $item (@{$xml->{entry}}) {
         if ($item->{title} =~ /Current Conditions/) {
-            if ($item->{description} =~ /Condition:\<\/b\>\s*([\w ]*)\s*\<br\/\>/s) {
+            if ($item->{summary}->{content} =~ /Condition:\<\/b\>\s*([\w ]*)\s*\<br\/\>/s) {
                 $results{'weather'} = $1;
                 $results{'weather_icon'} = getIcon($1);
             }
             $results{'temp'}     = sprintf("%.0f", $1) 
-                if ($item->{description} =~ /Temperature:\<\/b\>\s*(-?\d*\.?\d*)\&deg\;\C\s*\<br\/\>/s);
+                if ($item->{summary}->{content} =~ /Temperature:\<\/b\>\s*(-?\d*\.?\d*)\&deg\;\C\s*\<br\/\>/s);
             $results{'pressure'} = sprintf("%d", $1 * 10)
-                if ($item->{description} =~ /Pressure \/ Tendency:\<\/b\>\s*(\d*\.?\d*) kPa\s*.*\<br\/\>/s);
+                if ($item->{summary}->{content} =~ /Pressure.*:\<\/b\>\s*(\d*\.?\d*) kPa\s*.*\<br\/\>/s);
             $results{'visibility'} = sprintf("%.1f", $1)
-                if ($item->{description} =~ /Visibility:\<\/b\>\s*(\d*\.?\d*) km\s*.*\<br\/\>/s);
+                if ($item->{summary}->{content} =~ /Visibility:\<\/b\>\s*(\d*\.?\d*) km\s*.*\<br\/\>/s);
             $results{'relative_humidity'} = $1
-                if ($item->{description} =~ /Humidity:\<\/b\>\s*(\d*) \%\<br\/\>/s);
-            if ($item->{description} =~ /Wind Chill:\<\/b\>\s*(-?\d*\.?\d*)\s*\<br\/\>/s) {
+                if ($item->{summary}->{content} =~ /Humidity:\<\/b\>\s*(\d*) \%\<br\/\>/s);
+            if ($item->{summary}->{content} =~ /Wind Chill:\<\/b\>\s*(-?\d*\.?\d*)\s*\<br\/\>/s) {
                 $results{'appt'} = $1; 
                 $results{'windchill'} = $1; 
             }
             $results{'dewpoint'} = sprintf("%.0f", $1)
-                if ($item->{description} =~ /Dewpoint:\<\/b\>\s*(-?\d*\.?\d*)\&deg\;\C\s*\<br\/\>/s);
-            if ($item->{description} =~ /(\d*\:\d*[\w ]*\d*[\w *]\d*)\s*\<br\/\>/s) {
+                if ($item->{summary}->{content} =~ /Dewpoint:\<\/b\>\s*(-?\d*\.?\d*)\&deg\;\C\s*\<br\/\>/s);
+            if ($item->{summary}->{content} =~ /(\d*\:\d*[\w ]*\d*[\w *]\d*)\s*\<br\/\>/s) {
                 $results{'observation_time'} = "Last updated at ". $1;
                 $results{'updatetime'} = "Last updated at ". $1;
             }
-            if ($item->{description} =~ /Wind:\<\/b\>(.*)\<br\/\>/s) {
+            if ($item->{summary}->{content} =~ /Wind:\<\/b\>(.*)\<br\/\>/s) {
                 my $wind = $1;
                 if ($wind =~ /\s*(\d*)\s*km\/h\s*/i) {
@@ -119 +137 @@
                 }
                 if ($wind =~ /\s*(\w*)\s*(\d*)\s*km\/h\s*/i) {
-                    $results{'wind_dir'}   = $directions{$1};
+                    $results{'wind_dir'}     = $directions{$1};
+                    $results{'wind_degrees'} = $degrees{$1};
                     $results{'wind_speed'} = $2;
                 }