From 7bbf5f7f50010ee20b82320ee1563d50eb3c0616 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Wed, 9 Jan 2019 13:14:06 +0100
Subject: [PATCH] change dumper output

---
 59_Weather.pm        |  1 +
 OpenWeatherMapAPI.pm | 12 +++++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/59_Weather.pm b/59_Weather.pm
index e75ac28..3ad04a6 100755
--- a/59_Weather.pm
+++ b/59_Weather.pm
@@ -365,6 +365,7 @@ sub Weather_WriteReadings($$) {
     foreach my $r (keys %{$dataRef} ) {        
         readingsBulkUpdate($hash, $r, $dataRef->{$r}) if ($r ne 'status' and $r ne 'current' and $r ne 'forcast');
     }
+
     readingsBulkUpdate($hash, "validity", "up-to-date");
 
 
diff --git a/OpenWeatherMapAPI.pm b/OpenWeatherMapAPI.pm
index dc95e6f..bd0c543 100644
--- a/OpenWeatherMapAPI.pm
+++ b/OpenWeatherMapAPI.pm
@@ -82,6 +82,16 @@ my %codes = (
     521 => 35,
     522 => 35,
     531 => 35,
+    600 => 14,
+    601 => 16,
+    602 => 13,
+    611 => 46,
+    612 => 46,
+    615 => 35,
+    616 => 35,
+    620 => 35,
+    621 => 35,
+    622 => 35,
 );
 
 sub new {
@@ -213,7 +223,7 @@ sub _ProcessingRetrieveData($$) {
                 'OpenWeatherMap Weather decode JSON err ' . $@ );
         }
         elsif ( defined( $data->{cod} ) and defined( $data->{message} ) ) {
-            print 'Dumper2: ' . Dumper $data;
+#             print 'Dumper2: ' . Dumper $data;
             _ErrorHandling( $self, $data->{cod} . ': ' . $data->{message} );
         }
         else {