change directory structure
This commit is contained in:
parent
7a1c51959e
commit
1b3fb852b6
@ -0,0 +1 @@
|
|||||||
|
UPD 2021-02-27_04:38:01 26844 FHEM/46_TeslaPowerwall2AC.pm
|
@ -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;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user