diff --git a/controls_backupToStorage.txt b/controls_backupToStorage.txt index 281bf55..24ea8f1 100644 --- a/controls_backupToStorage.txt +++ b/controls_backupToStorage.txt @@ -1,2 +1,2 @@ UPD 2023-01-05_20:47:20 7708 FHEM/98_backupToStorage.pm -UPD 2023-01-16_14:39:09 23372 lib/FHEM/Services/backupToStorage.pm +UPD 2023-01-16_14:46:22 23390 lib/FHEM/Services/backupToStorage.pm diff --git a/lib/FHEM/Services/backupToStorage.pm b/lib/FHEM/Services/backupToStorage.pm index 61ea404..7c1d263 100644 --- a/lib/FHEM/Services/backupToStorage.pm +++ b/lib/FHEM/Services/backupToStorage.pm @@ -217,7 +217,7 @@ sub Notify { && $init_done ); - readingsSingleUpdate( + ::readingsSingleUpdate( $hash, 'state', ( ( @@ -271,13 +271,13 @@ sub Set { return qq{usage: $cmd} if ( scalar( @{$aArg} ) != 0 ); - readingsSingleUpdate( $hash, 'state', 'ready', 1 ); + ::readingsSingleUpdate( $hash, 'state', 'ready', 1 ); } elsif ( lc $cmd eq 'inactive' ) { return qq{usage: $cmd} if ( scalar( @{$aArg} ) != 0 ); - readingsSingleUpdate( $hash, 'state', $cmd, 1 ); + ::readingsSingleUpdate( $hash, 'state', $cmd, 1 ); } else { my $list = 'active:noArg inactive:noArg'; @@ -352,7 +352,7 @@ sub _CheckIsDisabledAfterSetAttr { ::Log3( $name, 3, qq{backupToStorage ($name) - _CheckIsDisabledAfterSetAttr} ); - readingsSingleUpdate( $hash, 'state', $state, 1 ) + ::readingsSingleUpdate( $hash, 'state', $state, 1 ) if ( ::ReadingsVal( $name, 'state', 'ready' ) ne $state ); return; @@ -412,7 +412,7 @@ sub PushToStorage { my $pid = $subprocess->run(); - readingsSingleUpdate( $hash, 'state', ' file upload in progress', 1 ); + ::readingsSingleUpdate( $hash, 'state', ' file upload in progress', 1 ); if ( !defined($pid) ) { ::Log3( $name, 1, @@ -420,7 +420,7 @@ qq{backupToStorage ($name) - Cannot execute command asynchronously} ); CleanSubprocess($hash); - readingsSingleUpdate( $hash, 'state', + ::readingsSingleUpdate( $hash, 'state', 'Cannot execute command asynchronously', 1 ); return; } @@ -476,7 +476,7 @@ sub KeepLastN { my $pid = $subprocess->run(); - readingsSingleUpdate( $hash, 'state', + ::readingsSingleUpdate( $hash, 'state', ' clean up pass last N in progress', 1 ); if ( !defined($pid) ) { @@ -485,7 +485,7 @@ qq{backupToStorage ($name) - Cannot execute command asynchronously} ); CleanSubprocess($hash); - readingsSingleUpdate( $hash, 'state', + ::readingsSingleUpdate( $hash, 'state', 'Cannot execute command asynchronously', 1 ); return; } @@ -808,7 +808,7 @@ sub CheckAttributsForCredentials { : $status ); - return readingsSingleUpdate( $hash, 'state', $status, 1 ); + return ::readingsSingleUpdate( $hash, 'state', $status, 1 ); } sub WriteReadings {