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_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 {
|
sub Shutdown {
|
||||||
$hash = shift;
|
my $hash = shift;
|
||||||
|
|
||||||
HttpUtils_Close( $hash->{helper}->{HttpUtilsParam} )
|
HttpUtils_Close( $hash->{helper}->{HttpUtilsParam} )
|
||||||
if ( $hash->{helper}->{HttpUtilsParam} );
|
if ( $hash->{helper}->{HttpUtilsParam} );
|
||||||
@ -250,6 +250,7 @@ sub ncUpload {
|
|||||||
timeout => AttrVal( $name, 'btS_UploadTimeout', 30 ),
|
timeout => AttrVal( $name, 'btS_UploadTimeout', 30 ),
|
||||||
method => 'PUT',
|
method => 'PUT',
|
||||||
data => $cont,
|
data => $cont,
|
||||||
|
hash => $hash,
|
||||||
user => $ncUser,
|
user => $ncUser,
|
||||||
pwd => $ncPass,
|
pwd => $ncPass,
|
||||||
callback => \&FHEM::backup::ncUploadCb,
|
callback => \&FHEM::backup::ncUploadCb,
|
||||||
@ -262,9 +263,12 @@ sub ncUpload {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub ncUploadCb {
|
sub ncUploadCb {
|
||||||
my $param = shift;
|
my $param = shift;
|
||||||
my $err = shift;
|
my $err = shift;
|
||||||
my $data = shift;
|
my $data = shift;
|
||||||
|
|
||||||
|
my $hash = $param->{hash};
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
Log( 1, 'backup URL: ' . $param->{url} );
|
Log( 1, 'backup URL: ' . $param->{url} );
|
||||||
Log( 1, 'backup User: ' . $param->{user} );
|
Log( 1, 'backup User: ' . $param->{user} );
|
||||||
|
Loading…
x
Reference in New Issue
Block a user