Merge pull request #636 from waynieack/WeatherNOAA

WeatherNOAA - Fix for some local offices not issuing an RWR
hollie · Oct 23, 2016 · 751628a · 751628a
2 parents e96c86f + 9e5cea4
commit 751628a
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/lib/site/Geo/WeatherNOAA.pm b/lib/site/Geo/WeatherNOAA.pm
@@ -503,6 +503,17 @@ sub get_city_hourly {
     #print STDERR "Getting data from $URL\n";
     my $data = get_data( $URL, $filename, $fileopt, $UA );
     my $datalength = length($data);
+    if ( $data =~ /None issued/ ) {
+        $URL =
+            $URL_BASE
+          . $zone
+          . '&issuedby='
+          . $state
+          . '&product=RWR&format=txt&version=1&glossary=0';
+
+        $data = get_data( $URL, $filename, $fileopt, $UA );
+        $datalength = length($data);
+    }
 
     #print STDERR "Got data ($datalength)\n";