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

auto search for cURL binary

Browse Source 
change code style
	geändert:       lib/FHEM/backupToStorage.pm
This commit is contained in:
Marko Oldenburg 2020-06-18 12:29:57 +02:00
parent 71941e0398
commit 9c86f35abd
2 changed files with 32 additions and 17 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 2020-06-17_15:03:50 3368 FHEM/98_backupToStorage.pm
UPD 2020-06-18_10:42:44 15143 lib/FHEM/backupToStorage.pm
UPD 2020-06-18_11:26:15 3368 FHEM/98_backupToStorage.pm
UPD 2020-06-18_12:29:29 15616 lib/FHEM/backupToStorage.pm

43
lib/FHEM/backupToStorage.pm
View File

@ -155,8 +155,9 @@ sub Define {
if ( scalar( @{$aArg} ) != 2 );
my $name = shift @$aArg;
$hash->{VERSION} = version->parse($VERSION)->normal;
$hash->{NOTIFYDEV} = 'global,' . $name;
$hash->{VERSION} = version->parse($VERSION)->normal;
$hash->{NOTIFYDEV} = 'global,' . $name;
$hash->{STORAGETYPE} = AttrVal( $name, 'bTSType', 'Nextcloud' );
Log3( $name, 3, "backupToStorage ($name) - defined" );
@ -328,7 +329,9 @@ sub PushToStorage {
my @fileNameAtStorage_array = split( '/', $backupFile );
my $fileNameAtStorage = $fileNameAtStorage_array[$#fileNameAtStorage_array];
$subprocess->{type} = AttrVal( $name, 'bTSType', 'Nextcloud' );
$subprocess->{curl} = qx(which curl);
chomp($subprocess->{curl});
$subprocess->{type} = $hash->{STORAGETYPE};
$subprocess->{host} = AttrVal( $name, 'bTS_Host', '' );
$subprocess->{user} = AttrVal( $name, 'bTS_User', '' );
$subprocess->{pass} = ReadPassword( $hash, $name );
@ -404,7 +407,12 @@ sub FileUpload {
my $response = {};
if ( $subprocess->{type} eq 'Nextcloud' ) {
$response->{ncUpload} = ExecuteNCupload($subprocess);
my ($returnString,$returnCode) = ExecuteNCupload($subprocess);
$response->{ncUpload} = ( $returnCode == 72057594037927935
&& $returnString eq ''
? 'upload successfully'
: $returnString );
}
my $json = eval { encode_json($response) };
@ -422,7 +430,8 @@ sub FileUpload {
sub ExecuteNCupload {
my $subprocess = shift;
my $command = 'curl -u ';
my $command = $subprocess->{curl};
$command .= ' -s -u ';
$command .= $subprocess->{user} . ':' . $subprocess->{pass};
$command .= ' -T ' . $subprocess->{backupfile};
$command .= ' "https://';
@ -434,9 +443,12 @@ sub ExecuteNCupload {
$command .= $subprocess->{fileNameAtStorage};
$command .= '"';
print 'DEBUG!!! - Command: ' . $command . "\n";
return ExecuteCommand($command);
}
return qx{$command};
sub ExecuteCommand {
my $command = join q{ }, @_;
return ( $_ = qx{$command 2>&1}, $? >> 8 );
}
######################################
@ -546,15 +558,18 @@ sub CheckAttributsForCredentials {
my $ncUser = AttrVal( $name, 'bTS_User', 'none' );
my $ncPass = ReadPassword( $hash, $name );
my $ncHost = AttrVal( $name, 'bTS_Host', 'none' );
my $ncPath = AttrVal( $name, 'bTS_Path', 'none' );
my $status = 'ready';
$status = (
$status eq 'ready' && $ncUser eq 'none' ? 'no user credential attribut'
: $status eq 'ready'
&& $ncHost eq 'none' ? 'no host credential attribut'
: $status eq 'ready' && !defined($ncPass) ? 'no password set'
: $status
$status = ( $status eq 'ready'
&& $ncUser eq 'none'
? 'no user credential attribut'
: $status eq 'ready'
&& $ncHost eq 'none'
? 'no host credential attribut'
: $status eq 'ready'
&& !defined($ncPass)
? 'no password set'
: $status
);
return readingsSingleUpdate( $hash, 'state', $status, 1 );