mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed: log level from 3 to 4 where useful

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@4920 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2014-02-14 08:48:47 +00:00
parent 1ff5938b01
commit 5c47d9f70f
1 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/FHEM/98_openweathermap.pm
View File

@@ -58,6 +58,9 @@
# #
# 2013-12-08 fixed: first try to remove duplicate processing # 2013-12-08 fixed: first try to remove duplicate processing
# #
# 2014-02-04 added: shutdownFn
#
# 2014-02-14 modi: changed Loglevel from 3 to 4 where possible
package main; package main;
@@ -286,7 +289,7 @@ sub OWO_GetStatus($;$){
$o = 0 if(!defined($o)); $o = 0 if(!defined($o));
$v = ReadingsVal($s, $v, "?") + $o; $v = ReadingsVal($s, $v, "?") + $o;
$dataString = $dataString."&$p=$v"; $dataString = $dataString."&$p=$v";
Log3($name, 3, "owo $name: reading: $paraName $p $s $v"); Log3($name, 4, "owo $name: reading: $paraName $p $s $v");
readingsSingleUpdate($hash, "my_".$p, $v, 1); readingsSingleUpdate($hash, "my_".$p, $v, 1);
} }
} }
@@ -295,7 +298,7 @@ sub OWO_GetStatus($;$){
my $sendString = $urlString."?".$dataString; my $sendString = $urlString."?".$dataString;
if(AttrVal($name, "owoDebug",1) == 0){ if(AttrVal($name, "owoDebug",1) == 0){
Log3($name, 3, "owo $name: sending: $dataString"); Log3($name, 4, "owo $name: sending: $dataString");
$htmlDummy = $ua->post($sendString); $htmlDummy = $ua->post($sendString);
Log3($name, 3, "owo $name: htmlResponse: ".$htmlDummy->status_line); Log3($name, 3, "owo $name: htmlResponse: ".$htmlDummy->status_line);
} else { } else {
@@ -327,7 +330,7 @@ sub OWO_GetStatus($;$){
my $cId = ReadingsVal($name,"c_stationId", undef); my $cId = ReadingsVal($name,"c_stationId", undef);
if(defined($cId)){ if(defined($cId)){
my $cName = ReadingsVal($name,"stationName", ""); my $cName = ReadingsVal($name,"stationName", "");
Log3($name, 3, "owo $name: retrievingStationData: Id: $cId Name: $cName"); Log3($name, 4, "owo $name: retrievingStationData: Id: $cId Name: $cName");
fhem("set $name stationById $cId"); fhem("set $name stationById $cId");
} }
@@ -361,7 +364,7 @@ sub OWO_Define($$){
# readingsSingleUpdate($hash, "state","defined",1); # readingsSingleUpdate($hash, "state","defined",1);
# InternalTimer(gettimeofday()+$hash->{helper}{INTERVAL}, "OWO_GetStatus", $hash, 0); # InternalTimer(gettimeofday()+$hash->{helper}{INTERVAL}, "OWO_GetStatus", $hash, 0);
Log3($name, 3, "owo $name: created"); Log3($name, 4, "owo $name: created");
return; return;
} }
@@ -393,10 +396,10 @@ sub UpdateReadings($$$){
if(defined($response)){ if(defined($response)){
if(AttrVal($name, "owoDebug", 1) == 1){ if(AttrVal($name, "owoDebug", 1) == 1){
Log3($name, 3, "owo $name: response:\n".$response->decoded_content); Log3($name, 4, "owo $name: response:\n".$response->decoded_content);
} }
} else { } else {
Log3($name, 3, "owo $name: error: no response from server"); Log3($name, 4, "owo $name: error: no response from server");
return; return;
} }
@@ -404,7 +407,7 @@ sub UpdateReadings($$$){
readingsSingleUpdate($hash, "_httpResponse_".substr($prefix,0,1), $response->status_line, 1); readingsSingleUpdate($hash, "_httpResponse_".substr($prefix,0,1), $response->status_line, 1);
if($xmlMode eq "1" && $response->is_success){ if($xmlMode eq "1" && $response->is_success){
Log3($name, 3, "owo $name: decoding XML"); Log3($name, 4, "owo $name: decoding XML");
my $xml = new XML::Simple; my $xml = new XML::Simple;
$jsonWeather = undef; $jsonWeather = undef;
$jsonWeather = $xml->XMLin($response->decoded_content, KeyAttr => 'current' ); $jsonWeather = $xml->XMLin($response->decoded_content, KeyAttr => 'current' );
@@ -438,12 +441,12 @@ sub UpdateReadings($$$){
readingsBulkUpdate($hash, "state", "active"); readingsBulkUpdate($hash, "state", "active");
readingsEndUpdate($hash, 1); readingsEndUpdate($hash, 1);
} else { } else {
Log3($name, 3, "owo $name error: update not possible!"); Log3($name, 2, "owo $name error: update not possible!");
} }
} }
if($xmlMode ne "1" && $response->is_success){ if($xmlMode ne "1" && $response->is_success){
Log3($name, 3, "owo $name: decoding JSON"); Log3($name, 4, "owo $name: decoding JSON");
my $json = JSON->new->allow_nonref; my $json = JSON->new->allow_nonref;
eval {$jsonWeather = $json->decode($response->decoded_content)}; warn $@ if $@; eval {$jsonWeather = $json->decode($response->decoded_content)}; warn $@ if $@;
@@ -482,7 +485,7 @@ sub UpdateReadings($$$){
readingsBulkUpdate($hash, "state", "active"); readingsBulkUpdate($hash, "state", "active");
readingsEndUpdate($hash, 1); readingsEndUpdate($hash, 1);
} else { } else {
Log3($name, 3, "owo $name error: update not possible!"); Log3($name, 2, "owo $name error: update not possible!");
} }
} }
return; return;