add yahoo icon mapping

OpenWeatherMapAPI.pm

@@ -87,11 +87,26 @@ my %codes = (
     602 => 13,
     611 => 46,
     612 => 46,
-    615 => 35,
+    615 => 5,
-    616 => 35,
+    616 => 5,
-    620 => 35,
+    620 => 14,
-    621 => 35,
+    621 => 46,
-    622 => 35,
+    622 => 42,
+    701 => 19,
+    711 => 22,
+    721 => 19,
+    731 => 23,
+    741 => 20,
+    751 => 23,
+    761 => 19,
+    762 => 3200,
+    771 => 1,
+    781 => 0,
+    800 => 32,
+    801 => 30,
+    802 => 26,
+    803 => 26,
+    804 => 28,
 );
 
 sub new {
@@ -268,7 +283,7 @@ sub _ProcessingRetrieveData($$) {
                 'cloudCover'     => $data->{clouds}->{all},
                 'visibility'     => $data->{visibility},
 
-#                         'code'           => $codes{ $data->{weather}[0]{icon} },
+                'code'           => $codes{ $data->{weather}[0]{id} },
                 'iconAPI'    => $data->{weather}[0]{icon},
                 'sunsetTime' => strftime(
                     "%a,%e %b %Y %H:%M %p",