change directory structure

This commit is contained in:
Marko Oldenburg 2021-02-27 05:17:23 +01:00
parent 7a1c51959e
commit 1b3fb852b6
3 changed files with 4 additions and 3 deletions

View File

@ -0,0 +1 @@
UPD 2021-02-27_04:38:01 26844 FHEM/46_TeslaPowerwall2AC.pm

View File

@ -4,15 +4,15 @@ use File::Basename;
use POSIX qw(strftime); use POSIX qw(strftime);
use strict; use strict;
my @filenames = ('FHEM/46_TeslaPowerwall2AC.pm',); my @filenames = ('FHEM/46_TeslaPowerwall2AC.pm');
my $controlsfile = 'controls_TeslaPowerwall2AC.txt'; my $controlsfile = 'controls_TeslaPowerwall2AC.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;