FHEM/mod-Weather
1
0
Fork 0
Code Issues Pull Requests Releases 5 Wiki Activity

patch-remove-perlexperimental #77

Merged
marko merged 13 commits from patch-remove-perlexperimental into testing 2025-10-14 05:10:17 +00:00
Conversation 0 Commits 13 Files Changed 7 +20 -19
2 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 12595b3674 - Show all commits

4
controls_Weather.txt
View File

@@ -1,4 +1,4 @@
UPD 2025-02-04_21:25:55 25899 FHEM/59_Weather.pm UPD 2025-02-05_05:56:41 25899 FHEM/59_Weather.pm
UPD 2025-02-04_21:08:26 34419 lib/FHEM/Core/Weather.pm UPD 2025-02-04_21:08:26 34419 lib/FHEM/Core/Weather.pm
UPD 2025-02-04_21:08:26 33780 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm UPD 2025-02-05_06:38:34 33780 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
UPD 2025-02-04_21:08:26 38751 lib/FHEM/APIs/Weather/wundergroundAPI.pm UPD 2025-02-04_21:08:26 38751 lib/FHEM/APIs/Weather/wundergroundAPI.pm

35
hooks/pre-commit
View File

@@ -4,33 +4,34 @@ use File::Basename;
use POSIX qw(strftime); use POSIX qw(strftime);
use strict; use strict;
my @filenames = ( 'FHEM/59_Weather.pm', my @filenames = (
'lib/FHEM/Core/Weather.pm', 'FHEM/59_Weather.pm',
'lib/FHEM/APIs/Weather/DarkSkyAPI.pm', 'lib/FHEM/Core/Weather.pm',
'lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm', 'lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm',
'lib/FHEM/APIs/Weather/wundergroundAPI.pm', 'lib/FHEM/APIs/Weather/wundergroundAPI.pm',
); );
my $controlsfile = 'controls_Weather.txt'; 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) { for my $filename (@filenames) {
my @statOutput = stat($filename); 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; next;
} }
my $mtime = $statOutput[9]; 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]; my $filesize = $statOutput[7];
printf FH 'UPD ' . $filetime . ' ' . $filesize . ' ' .$filename . "\n"; printf FH 'UPD ' . $filetime . ' ' . $filesize . ' ' . $filename . "\n";
} }
close(FH); close(FH);