From 8dc87041f77d6016ec43ad671be7a4d06df424db Mon Sep 17 00:00:00 2001 From: herrmannj Date: Tue, 24 Mar 2020 21:21:00 +0000 Subject: [PATCH] 98_JsonMod.pm: #109413: cosmetic api result msg fix git-svn-id: https://svn.fhem.de/fhem/trunk@21503 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_JsonMod.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/98_JsonMod.pm b/fhem/FHEM/98_JsonMod.pm index 011167e6a..a44e76b79 100644 --- a/fhem/FHEM/98_JsonMod.pm +++ b/fhem/FHEM/98_JsonMod.pm @@ -525,13 +525,15 @@ sub JsonMod_ApiResponse { next if (ref($_) ne 'SCALAR'); $url =~ s/(\Q${$_}\E)/'X' x length($1)/e; }; + $hash->{'SOURCE'} = sprintf('%s (%s)', $url, $param->{'code'} //= ''); + $hash->{'API__LAST_MSG'} = $param->{'code'} //= 'failed'; my sub doError { my ($msg) = @_; $hash->{'API__LAST_MSG'} = $msg; my $next = Time::HiRes::time() + 600; - $hash->{'API__NEXT_REQ'} = $next; + #$hash->{'API__NEXT_REQ'} = $next; return InternalTimer($next, \&JsonMod_ApiRequest, $hash); };