From 988b3f19f33af1c1f5c6c4709c5d8535d049e5b1 Mon Sep 17 00:00:00 2001 From: betateilchen <> Date: Sat, 12 Apr 2014 23:13:41 +0000 Subject: [PATCH] 55_weco.pm - added some improvements: - only contact server if any valid attributes defined - if no attributes found, check every 60 seconds again git-svn-id: https://svn.fhem.de/fhem/trunk@5516 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/55_weco.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/fhem/FHEM/55_weco.pm b/fhem/FHEM/55_weco.pm index 2b442492c..05352c5f9 100644 --- a/fhem/FHEM/55_weco.pm +++ b/fhem/FHEM/55_weco.pm @@ -105,15 +105,21 @@ sub weco_send($) { $data .= "&$key=$value"; } - Log3 ($name, 4, "weco $name data sent: $data"); - $url .= $data; - my $response = GetFileFromURL($url); - Log3 ($name, 4, "weco $name server response: $response"); - readingsBeginUpdate($hash); + if(defined($data)) { readingsBulkUpdate($hash, "data", $data); + Log3 ($name, 4, "weco $name data sent: $data"); + $url .= $data; + my $response = GetFileFromURL($url); readingsBulkUpdate($hash, "response", $response); + Log3 ($name, 4, "weco $name server response: $response"); readingsBulkUpdate($hash, "state", "active"); + } else { + Log3 ($name, 4, "weco $name no data"); + readingsBulkUpdate($hash, "state", "defined"); + $attr{$name}{wecoInterval} = 60; + } + readingsEndUpdate($hash, 1); InternalTimer(gettimeofday()+$attr{$name}{wecoInterval}, "weco_send", $hash, 0) unless($local == 1);