diff --git a/controls_backupToStorage.txt b/controls_backupToStorage.txt index 2c62849..bd141fd 100644 --- a/controls_backupToStorage.txt +++ b/controls_backupToStorage.txt @@ -1,2 +1,2 @@ UPD 2020-10-20_15:51:15 6126 FHEM/98_backupToStorage.pm -UPD 2020-10-21_09:05:15 16202 lib/FHEM/backupToStorage.pm +UPD 2020-10-21_09:16:23 16319 lib/FHEM/backupToStorage.pm diff --git a/lib/FHEM/backupToStorage.pm b/lib/FHEM/backupToStorage.pm index 0e8671b..bf47442 100644 --- a/lib/FHEM/backupToStorage.pm +++ b/lib/FHEM/backupToStorage.pm @@ -346,6 +346,7 @@ sub PushToStorage { $subprocess->{backupfile} = $backupFile; $subprocess->{fileNameAtStorage} = $fileNameAtStorage; $subprocess->{proto} = AttrVal( $name, 'bTS_Proto', 'https' ); + $subprocess->{loglevel} = AttrVal( $name, 'verbose', 3 ); my $pid = $subprocess->run(); @@ -417,9 +418,11 @@ sub FileUpload { if ( $subprocess->{type} eq 'Nextcloud' ) { my ($returnString,$returnCode) = ExecuteNCupload($subprocess); - Log3( 'backupToStorage File Upload', 5, - "backupToStorage - FileUpload Nextcloud, returnCode: $returnCode - , returnString: $returnString" ); + print 'backupToStorage File Upload - FileUpload Nextcloud, returnCode: ' + . $returnCode + . ' , returnString: ' + . $returnString' . "\n" + if ( $subprocess->{loglevel} > 4 ); $response->{ncUpload} = ( $returnCode == 72057594037927935 && $returnString eq '' @@ -429,8 +432,8 @@ sub FileUpload { my $json = eval { encode_json($response) }; if ($@) { - Log3( 'backupToStorage File Upload', - 1, "backupToStorage - JSON error: $@" ); + print 'backupToStorage File Upload backupToStorage - JSON error: $@' + . "\n"; $json = '{"jsonerror":"$@"}'; }