Merge pull request 'patch-removedarksky' (#74) from patch-removedarksky into dev

Reviewed-on: #74

controls_Weather.txt

@@ -1,4 +1,4 @@
-UPD 2023-01-07_13:28:16 57768 FHEM/59_Weather.pm
+UPD 2025-02-05_05:56:41 25899 FHEM/59_Weather.pm
-UPD 2023-01-07_13:28:44 49884 lib/FHEM/APIs/Weather/DarkSkyAPI.pm
+UPD 2025-02-04_21:08:26 34419 lib/FHEM/Core/Weather.pm
-UPD 2023-01-07_13:28:59 33258 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
+UPD 2025-02-05_06:38:34 33780 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
-UPD 2023-01-07_13:29:12 36090 lib/FHEM/APIs/Weather/wundergroundAPI.pm
+UPD 2025-02-04_21:08:26 38751 lib/FHEM/APIs/Weather/wundergroundAPI.pm

hooks/pre-commit

@@ -4,32 +4,34 @@ use File::Basename;
 use POSIX qw(strftime);
 use strict;
 
-my @filenames = (   'FHEM/59_Weather.pm',
+my @filenames = (
-		    'lib/FHEM/APIs/Weather/DarkSkyAPI.pm',
+    'FHEM/59_Weather.pm',
+    'lib/FHEM/Core/Weather.pm',
     'lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm',
     'lib/FHEM/APIs/Weather/wundergroundAPI.pm',
-    );
+);
 
 my $controlsfile = 'controls_Weather.txt';
 
-open(FH, ">$controlsfile") || return("Can't open $controlsfile: $!");
+open( FH, ">$controlsfile" ) || return ("Can't open $controlsfile: $!");
 
 for my $filename (@filenames) {
     my @statOutput = stat($filename);
 
-    if (scalar @statOutput != 13) {
+    if ( scalar @statOutput != 13 ) {
-        printf 'error: stat has unexpected return value for ' . $filename . "\n";
+        printf 'error: stat has unexpected return value for '
+          . $filename . "\n";
         next;
     }
 
     my $mtime    = $statOutput[9];
-    my $date = POSIX::strftime("%Y-%m-%d", localtime($mtime));
+    my $date     = POSIX::strftime( "%Y-%m-%d", localtime($mtime) );
-    my $time = POSIX::strftime("%H:%M:%S", localtime($mtime));
+    my $time     = POSIX::strftime( "%H:%M:%S", localtime($mtime) );
-    my $filetime = $date."_".$time;
+    my $filetime = $date . "_" . $time;
 
     my $filesize = $statOutput[7];
 
-    printf FH 'UPD ' . $filetime . ' ' . $filesize . ' ' .$filename . "\n";
+    printf FH 'UPD ' . $filetime . ' ' . $filesize . ' ' . $filename . "\n";
 }
 
 close(FH);

lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm

@@ -3,7 +3,7 @@
 #
 # Developed with VSCodium and richterger perl plugin
 #
-#  (c) 2019-2023 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
+#  (c) 2019-2025 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net)
 #  All rights reserved
 #
 #   Special thanks goes to:
@@ -423,7 +423,7 @@ sub _ProcessingRetrieveData {
                 _ErrorHandling( $self,
                     'OpenWeatherMap Weather decode JSON err ' . $@ );
             }
-            elsif (defined( $data->{cod} )
+            elsif ( defined( $data->{cod} )
                 && $data->{cod}
                 && $data->{cod} != 200
                 && defined( $data->{message} )
@@ -591,6 +591,7 @@ sub _FillSelfHashWithWeatherResponseForWeatherCurrent {
         'wind_direction' => $data->{wind}->{deg},
         'cloudCover'     => $data->{clouds}->{all},
         'code'           => $codes{ $data->{weather}->[0]->{id} },
+        'owmAPICode'     => $data->{weather}->[0]->{id},
         'iconAPI'        => $data->{weather}->[0]->{icon},
         'sunsetTime'     => _strftimeWrapper(
             "%a, %e %b %Y %H:%M",
@@ -670,6 +671,7 @@ sub _FillSelfHashWithWeatherResponseForForecastHourly {
                 ),
                 'cloudCover' => $data->{list}->[$i]->{clouds}->{all},
                 'code' => $codes{ $data->{list}->[$i]->{weather}->[0]->{id} },
+                'owmAPICode' => $data->{list}->[$i]->{weather}->[0]->{id},
                 'iconAPI'    => $data->{list}->[$i]->{weather}->[0]->{icon},
                 'rain1h'     => (
                       $data->{list}->[$i]->{rain}->{'1h'}
@@ -688,7 +690,7 @@ sub _FillSelfHashWithWeatherResponseForForecastHourly {
                 ),
                 'snow3h' => (
                       $data->{list}->[$i]->{snow}->{'3h'}
-                    ? $data->{list}->[$i]->{snow}->{'1h'}
+                    ? $data->{list}->[$i]->{snow}->{'3h'}
                     : 0
                 ),
             }
@@ -732,6 +734,7 @@ sub _FillSelfHashWithWeatherResponseForOnecallCurrent {
         'rain_1h'    => ( $data->{rain}->{'1h'} ? $data->{rain}->{'1h'} : 0 ),
         'cloudCover' => $data->{current}->{clouds},
         'code'       => $codes{ $data->{current}->{weather}->[0]->{id} },
+        'owmAPICode' => $data->{current}->{weather}->[0]->{id},
         'iconAPI'    => $data->{current}->{weather}->[0]->{icon},
         'condition'  =>
           encode_utf8( $data->{current}->{weather}->[0]->{description} ),
@@ -788,6 +791,7 @@ sub _FillSelfHashWithWeatherResponseForOnecallDaily {
                 'moonset'    => strftime(
                     "%a, %H:%M", localtime( $data->{daily}->[$i]->{moonset} )
                 ),
+                'summary'     => $data->{daily}->[$i]->{summary},
                 'temperature' =>
                   int( sprintf( "%.0f", $data->{daily}->[$i]->{temp}->{day} ) ),
                 'temperature_morn' => int(
@@ -833,6 +837,7 @@ sub _FillSelfHashWithWeatherResponseForOnecallDaily {
                     $data->{daily}->[$i]->{weather}->[0]->{description}
                 ),
                 'code' => $codes{ $data->{daily}->[$i]->{weather}->[0]->{id} },
+                'owmAPICode' => $data->{daily}->[$i]->{weather}->[0]->{id},
                 'iconAPI'    => $data->{daily}->[$i]->{weather}->[0]->{icon},
                 'pressure'   => int(
                     sprintf( "%.1f", $data->{daily}->[$i]->{pressure} ) + 0.5
@@ -853,7 +858,6 @@ sub _FillSelfHashWithWeatherResponseForOnecallDaily {
                     sprintf( "%.1f", ( $data->{daily}->[$i]->{wind_deg} ) )
                 ),
                 'cloudCover' => $data->{daily}->[$i]->{clouds},
-                'code' => $codes{ $data->{daily}->[$i]->{weather}->[0]->{id} },
                 'rain'       => (
                     $data->{daily}->[$i]->{rain} ? $data->{daily}->[$i]->{rain}
                     : 0
@@ -920,6 +924,7 @@ sub _FillSelfHashWithWeatherResponseForOnecallHourly {
                 'wind_direction' => $data->{hourly}->[$i]->{wind_deg},
                 'cloudCover'     => $data->{hourly}->[$i]->{clouds},
                 'code' => $codes{ $data->{hourly}->[$i]->{weather}->[0]->{id} },
+                'owmAPICode' => $data->{hourly}->[$i]->{weather}->[0]->{id},
                 'iconAPI'    => $data->{hourly}->[$i]->{weather}->[0]->{icon},
                 'rain1h'     => (
                       $data->{hourly}->[$i]->{rain}->{'1h'}
@@ -951,7 +956,7 @@ sub _CallWeatherCallbackFn {
 
     #     print 'Dumperausgabe: ' . Dumper $self;
     ### Aufruf der callbackFn
-    return ::Weather_RetrieveCallbackFn( $self->{devName} );
+    return FHEM::Core::Weather::RetrieveCallbackFn( $self->{devName} );
 }
 
 sub _ErrorHandling {
@@ -977,9 +982,9 @@ sub _CreateForecastRef {
         {
             lat           => $self->{lat},
             long          => $self->{long},
-            apiMaintainer => 'Marko Oldenburg ('
+            apiMaintainer => $META->{author}[0],
-              . $META->{x_fhem_maintainer}[0] . ')',
+            apiVersion => version->parse( __PACKAGE__->VERSION() )->normal . '-'
-            apiVersion => version->parse( __PACKAGE__->VERSION() )->normal,
+              . $META->{release_status},
         }
     );
 
@@ -1024,7 +1029,14 @@ sub _strftimeWrapper {
       "abstract": "Wetter API für OpenWeatherMap"
     }
   },
-  "version": "v3.2.5",
+  "keywords": [
+	    "fhem-mod-device",
+	    "Weather",
+        "API"
+	  ],
+  "release_status": "stable",
+  "license": "GPL_2",
+  "version": "v3.2.7",
   "author": [
     "Marko Oldenburg <fhemdevelopment@cooltux.net>"
   ],
@@ -1037,8 +1049,9 @@ sub _strftimeWrapper {
   "prereqs": {
     "runtime": {
       "requires": {
+        "FHEM": 5.00918799,
+        "HttpUtils": 5.023,
         "FHEM::Meta": 0,
-        "HttpUtils": 0,
         "strict": 0,
         "warnings": 0,
         "constant": 0,