FHEM/mod-backupToStorage
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

new header #4

Merged
marko merged 1 commits from patch-rewrite into dev 2023-01-05 19:46:45 +00:00
Conversation 0 Commits 1 Files Changed 2 +6 -6
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
controls_backupToStorage.txt
View File

@ -1,2 +1,2 @@
UPD 2023-01-05_20:43:08 7708 FHEM/98_backupToStorage.pm UPD 2023-01-05_20:45:05 7708 FHEM/98_backupToStorage.pm
UPD 2023-01-05_20:06:46 23352 lib/FHEM/Services/backupToStorage.pm UPD 2023-01-05_20:45:17 23354 lib/FHEM/Services/backupToStorage.pm

8
lib/FHEM/Services/backupToStorage.pm
View File

@ -2,7 +2,7 @@
# #
# Developed with VSCodium and richterger perl plugin # 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 # All rights reserved
# #
# Special thanks goes to: # Special thanks goes to:
@ -43,7 +43,7 @@ BEGIN {
GP_Import( GP_Import(
qw( init_done qw( init_done
defs defs
) )
); );
} }
@ -406,7 +406,7 @@ sub PushToStorage {
$subprocess->{backupfile} = $backupFile; $subprocess->{backupfile} = $backupFile;
$subprocess->{fileNameAtStorage} = $fileNameAtStorage; $subprocess->{fileNameAtStorage} = $fileNameAtStorage;
$subprocess->{proto} = ::AttrVal( $name, 'bTS_Proto', 'https' ); $subprocess->{proto} = ::AttrVal( $name, 'bTS_Proto', 'https' );
$subprocess->{loglevel} = ::AttrVal( $name, 'verbose', 3 ); $subprocess->{loglevel} = ::AttrVal( $name, 'verbose', 3 );
my $pid = $subprocess->run(); my $pid = $subprocess->run();
@ -469,7 +469,7 @@ sub KeepLastN {
$subprocess->{path} = ::AttrVal( $name, 'bTS_Path', '' ); $subprocess->{path} = ::AttrVal( $name, 'bTS_Path', '' );
$subprocess->{fileNameAtStorage} = $fileNameAtStorage; $subprocess->{fileNameAtStorage} = $fileNameAtStorage;
$subprocess->{proto} = ::AttrVal( $name, 'bTS_Proto', 'https' ); $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 ); $subprocess->{keeplastn} = ::AttrVal( $name, 'bTS_KeepLastBackups', 5 );
my $pid = $subprocess->run(); my $pid = $subprocess->run();