fix multiple Global symbol requires explicit package name outputs
geändert: lib/FHEM/backupToStorage.pm
This commit is contained in:
parent
e0ac3b68e5
commit
c7a9155495
@ -1,2 +1,2 @@
|
||||
UPD 2020-06-17_12:01:37 3338 FHEM/98_backupToStorage.pm
|
||||
UPD 2020-06-17_14:48:22 9932 lib/FHEM/backupToStorage.pm
|
||||
UPD 2020-06-17_14:54:41 10040 lib/FHEM/backupToStorage.pm
|
||||
|
@ -111,7 +111,7 @@ sub Delete {
|
||||
}
|
||||
|
||||
sub Shutdown {
|
||||
$hash = shift;
|
||||
my $hash = shift;
|
||||
|
||||
HttpUtils_Close( $hash->{helper}->{HttpUtilsParam} )
|
||||
if ( $hash->{helper}->{HttpUtilsParam} );
|
||||
@ -250,6 +250,7 @@ sub ncUpload {
|
||||
timeout => AttrVal( $name, 'btS_UploadTimeout', 30 ),
|
||||
method => 'PUT',
|
||||
data => $cont,
|
||||
hash => $hash,
|
||||
user => $ncUser,
|
||||
pwd => $ncPass,
|
||||
callback => \&FHEM::backup::ncUploadCb,
|
||||
@ -266,6 +267,9 @@ sub ncUploadCb {
|
||||
my $err = shift;
|
||||
my $data = shift;
|
||||
|
||||
my $hash = $param->{hash};
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
Log( 1, 'backup URL: ' . $param->{url} );
|
||||
Log( 1, 'backup User: ' . $param->{user} );
|
||||
Log( 1, 'backup Pass: ' . $param->{pwd} );
|
||||
|
Loading…
x
Reference in New Issue
Block a user