From 260aa0dfbe2b872db8f1ede54d68f51658cca9c3 Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Thu, 5 Jan 2023 20:45:38 +0100 Subject: [PATCH] new header write new header --- controls_backupToStorage.txt | 4 ++-- lib/FHEM/Services/backupToStorage.pm | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/controls_backupToStorage.txt b/controls_backupToStorage.txt index 86c859f..ff0fa0f 100644 --- a/controls_backupToStorage.txt +++ b/controls_backupToStorage.txt @@ -1,2 +1,2 @@ -UPD 2023-01-05_20:43:08 7708 FHEM/98_backupToStorage.pm -UPD 2023-01-05_20:06:46 23352 lib/FHEM/Services/backupToStorage.pm +UPD 2023-01-05_20:45:05 7708 FHEM/98_backupToStorage.pm +UPD 2023-01-05_20:45:17 23354 lib/FHEM/Services/backupToStorage.pm diff --git a/lib/FHEM/Services/backupToStorage.pm b/lib/FHEM/Services/backupToStorage.pm index b8eca3e..3ced79c 100644 --- a/lib/FHEM/Services/backupToStorage.pm +++ b/lib/FHEM/Services/backupToStorage.pm @@ -2,7 +2,7 @@ # # Developed with VSCodium and richterger perl plugin # -# (c) 2020-2022 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net) +# (c) 2020-2023 Copyright: Marko Oldenburg (fhemdevelopment at cooltux dot net) # All rights reserved # # Special thanks goes to: @@ -43,7 +43,7 @@ BEGIN { GP_Import( qw( init_done defs - ) + ) ); } @@ -406,7 +406,7 @@ sub PushToStorage { $subprocess->{backupfile} = $backupFile; $subprocess->{fileNameAtStorage} = $fileNameAtStorage; $subprocess->{proto} = ::AttrVal( $name, 'bTS_Proto', 'https' ); - $subprocess->{loglevel} = ::AttrVal( $name, 'verbose', 3 ); + $subprocess->{loglevel} = ::AttrVal( $name, 'verbose', 3 ); my $pid = $subprocess->run(); @@ -469,7 +469,7 @@ sub KeepLastN { $subprocess->{path} = ::AttrVal( $name, 'bTS_Path', '' ); $subprocess->{fileNameAtStorage} = $fileNameAtStorage; $subprocess->{proto} = ::AttrVal( $name, 'bTS_Proto', 'https' ); - $subprocess->{loglevel} = ::AttrVal( $name, 'verbose', 3 ); + $subprocess->{loglevel} = ::AttrVal( $name, 'verbose', 3 ); $subprocess->{keeplastn} = ::AttrVal( $name, 'bTS_KeepLastBackups', 5 ); my $pid = $subprocess->run();