fix: readingSingleUpdate

This commit is contained in:
Marko Oldenburg 2023-01-16 14:46:28 +01:00
parent 8e761ed85b
commit dcfebc667b
2 changed files with 10 additions and 10 deletions

View File

@ -1,2 +1,2 @@
UPD 2023-01-05_20:47:20 7708 FHEM/98_backupToStorage.pm 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

View File

@ -217,7 +217,7 @@ sub Notify {
&& $init_done && $init_done
); );
readingsSingleUpdate( ::readingsSingleUpdate(
$hash, 'state', $hash, 'state',
( (
( (
@ -271,13 +271,13 @@ sub Set {
return qq{usage: $cmd} return qq{usage: $cmd}
if ( scalar( @{$aArg} ) != 0 ); if ( scalar( @{$aArg} ) != 0 );
readingsSingleUpdate( $hash, 'state', 'ready', 1 ); ::readingsSingleUpdate( $hash, 'state', 'ready', 1 );
} }
elsif ( lc $cmd eq 'inactive' ) { elsif ( lc $cmd eq 'inactive' ) {
return qq{usage: $cmd} return qq{usage: $cmd}
if ( scalar( @{$aArg} ) != 0 ); if ( scalar( @{$aArg} ) != 0 );
readingsSingleUpdate( $hash, 'state', $cmd, 1 ); ::readingsSingleUpdate( $hash, 'state', $cmd, 1 );
} }
else { else {
my $list = 'active:noArg inactive:noArg'; my $list = 'active:noArg inactive:noArg';
@ -352,7 +352,7 @@ sub _CheckIsDisabledAfterSetAttr {
::Log3( $name, 3, ::Log3( $name, 3,
qq{backupToStorage ($name) - _CheckIsDisabledAfterSetAttr} ); qq{backupToStorage ($name) - _CheckIsDisabledAfterSetAttr} );
readingsSingleUpdate( $hash, 'state', $state, 1 ) ::readingsSingleUpdate( $hash, 'state', $state, 1 )
if ( ::ReadingsVal( $name, 'state', 'ready' ) ne $state ); if ( ::ReadingsVal( $name, 'state', 'ready' ) ne $state );
return; return;
@ -412,7 +412,7 @@ sub PushToStorage {
my $pid = $subprocess->run(); my $pid = $subprocess->run();
readingsSingleUpdate( $hash, 'state', ' file upload in progress', 1 ); ::readingsSingleUpdate( $hash, 'state', ' file upload in progress', 1 );
if ( !defined($pid) ) { if ( !defined($pid) ) {
::Log3( $name, 1, ::Log3( $name, 1,
@ -420,7 +420,7 @@ qq{backupToStorage ($name) - Cannot execute command asynchronously}
); );
CleanSubprocess($hash); CleanSubprocess($hash);
readingsSingleUpdate( $hash, 'state', ::readingsSingleUpdate( $hash, 'state',
'Cannot execute command asynchronously', 1 ); 'Cannot execute command asynchronously', 1 );
return; return;
} }
@ -476,7 +476,7 @@ sub KeepLastN {
my $pid = $subprocess->run(); my $pid = $subprocess->run();
readingsSingleUpdate( $hash, 'state', ::readingsSingleUpdate( $hash, 'state',
' clean up pass last N in progress', 1 ); ' clean up pass last N in progress', 1 );
if ( !defined($pid) ) { if ( !defined($pid) ) {
@ -485,7 +485,7 @@ qq{backupToStorage ($name) - Cannot execute command asynchronously}
); );
CleanSubprocess($hash); CleanSubprocess($hash);
readingsSingleUpdate( $hash, 'state', ::readingsSingleUpdate( $hash, 'state',
'Cannot execute command asynchronously', 1 ); 'Cannot execute command asynchronously', 1 );
return; return;
} }
@ -808,7 +808,7 @@ sub CheckAttributsForCredentials {
: $status : $status
); );
return readingsSingleUpdate( $hash, 'state', $status, 1 ); return ::readingsSingleUpdate( $hash, 'state', $status, 1 );
} }
sub WriteReadings { sub WriteReadings {