diff --git a/fhem/contrib/DS_Starter/76_SMAPortal.pm b/fhem/contrib/DS_Starter/76_SMAPortal.pm index a59185298..b73cea783 100644 --- a/fhem/contrib/DS_Starter/76_SMAPortal.pm +++ b/fhem/contrib/DS_Starter/76_SMAPortal.pm @@ -843,22 +843,22 @@ sub CallInfo { ## no critic 'complexity' } if ($hash->{HELPER}{RUNNING_PID}) { - if($hash->{HELPER}{RUNNING_PID}{pid} =~ m/DEAD/) { # tote PID's löschen - delete $hash->{HELPER}{RUNNING_PID}; - } - else { + if($hash->{HELPER}{RUNNING_PID}{pid} =~ m/DEAD/) { # tote PID's löschen + delete $hash->{HELPER}{RUNNING_PID}; + } + else { Log3 ($name, 3, "$name - An old data cycle is still running, the new data cycle start is postponed."); return; - } + } } my $getp = $hash->{HELPER}{GETTER}; my $setp = $hash->{HELPER}{SETTER}; if(!$nc && !$nr) { - Log3 ($name, 3, "$name - ################################################################"); - Log3 ($name, 3, "$name - ### start new set/get data from SMA Sunny Portal ###"); - Log3 ($name, 3, "$name - ################################################################"); + Log3 ($name, 4, "$name - ################################################################"); + Log3 ($name, 4, "$name - ### start new set/get data from SMA Sunny Portal ###"); + Log3 ($name, 4, "$name - ################################################################"); Log3 ($name, 5, "$name - SMAPortal version: $hash->{HELPER}{VERSION}"); Log3 ($name, 4, "$name - calculated maximum cycles: $maxcycles"); Log3 ($name, 4, "$name - calculated timeout: $timeout"); @@ -1112,7 +1112,7 @@ sub GetSetData { ## no critic 'complexity' if(@da) { $lc = join "###", @da; $lc = encode_base64 ($lc, ""); - Log3 ($name, 3, "$name - data retrieved successfully."); + Log3 ($name, 3, "$name - data retrieval done."); } return "$name|$exceed|$newcycle|$errstate|$getp|$setp|$st|$lc"; @@ -2128,7 +2128,7 @@ sub __dispatchPost { if ($data_cont && $data_cont !~ m/undefined/ix) { my @func = @$fnref; - + my $params = { hash => $hash, daref => $daref, @@ -2137,7 +2137,7 @@ sub __dispatchPost { fnaddon => $fnaddon, tag => $tag }; - + no strict "refs"; ## no critic 'NoStrict' for my $fn (@func) { $state = &{$fn} ($params) // $state; @@ -2324,18 +2324,18 @@ sub ___analyzeData { ## no critic 'complexity' Log3 ($name, 5, "$name - decoded Content received: ". jboolmap($data)); } else { - my $njdat = encode("utf8", $ad->as_string); + my $njdat = encode("utf8", $ad->as_string); if($njdat =~ /401\s-\sUnauthorized/x) { Log3 ($name, 2, "$name - ERROR - User logged in but unauthorized"); my($p1,$p2) = $njdat =~ /