diff --git a/FHEM/50_HP1000.pm b/FHEM/50_HP1000.pm index 6d3216595..b005fab67 100755 --- a/FHEM/50_HP1000.pm +++ b/FHEM/50_HP1000.pm @@ -367,8 +367,8 @@ sub HP1000_Get($$$) { # createWUforecast if ( lc( @$a[1] ) eq "createwuforecast" ) { - return -"Attribute wu_id does not contain a PWS ID to create a Wunderground device" + return "Attribute wu_id " + . "does not contain a PWS ID to create a Wunderground device" if ( $wu_id eq "" ); my @wudev = devspec2array("TYPE=Wunderground:FILTER=PWS_ID=$wu_id"); @@ -583,8 +583,10 @@ sub HP1000_CGI() { my $k = $HP1000_pwsMappingEquivalent_rev{$_}; next unless ( $webArgs->{$_} && $k && !defined( $webArgs->{$k} ) ); - Log3 $name, 5, "HP1000: Adding calculated value for $k from $_"; $webArgs->{$k} = UConv::f2c( $webArgs->{$_} ); + Log3 $name, 5, + "HP1000: " + . "Adding calculated value for $k=$webArgs->{$k} from $_=$webArgs->{$_}"; } # calculate hPa based values based on inHg @@ -592,8 +594,10 @@ sub HP1000_CGI() { my $k = $HP1000_pwsMappingEquivalent_rev{$_}; next unless ( $webArgs->{$_} && $k && !defined( $webArgs->{$k} ) ); - Log3 $name, 5, "HP1000: Adding calculated value for $k from $_"; $webArgs->{$k} = UConv::inhg2hpa( $webArgs->{$_} ); + Log3 $name, 5, + "HP1000: " + . "Adding calculated value for $k=$webArgs->{$k} from $_=$webArgs->{$_}"; } # calculate milimeter based values based on inch @@ -605,8 +609,10 @@ sub HP1000_CGI() { my $k = $HP1000_pwsMappingEquivalent_rev{$_}; next unless ( $webArgs->{$_} && $k && !defined( $webArgs->{$k} ) ); - Log3 $name, 5, "HP1000: Adding calculated value for $k from $_"; $webArgs->{$k} = UConv::in2mm( $webArgs->{$_} ); + Log3 $name, 5, + "HP1000: " + . "Adding calculated value for $k=$webArgs->{$k} from $_=$webArgs->{$_}"; } # calculate kph based values based on mph @@ -614,18 +620,21 @@ sub HP1000_CGI() { my $k = $HP1000_pwsMappingEquivalent_rev{$_}; next unless ( $webArgs->{$_} && $k && !defined( $webArgs->{$k} ) ); - Log3 $name, 5, "HP1000: Adding calculated value for $k from $_"; $webArgs->{$k} = UConv::mph2mps( $webArgs->{$_} ); + Log3 $name, 5, + "HP1000: " + . "Adding calculated value for $k=$webArgs->{$k} from $_=$webArgs->{$_}"; } # windgust in km/h (convert from windgustmps) if ( defined( $webArgs->{windgustmps} ) && !defined( $webArgs->{windgust} ) ) { - Log3 $name, 5, - "HP1000: Adding calculated value for windgust from windgustmps"; $webArgs->{windgust} = UConv::mps2kph( $webArgs->{windgustmps} ); + Log3 $name, 5, + "HP1000: " + . "Adding calculated value for windgust=$webArgs->{windgust} from windgustmps=$webArgs->{windgustmps}"; } # windspeed in km/h (convert from windspeedmps) @@ -1561,7 +1570,7 @@ sub HP1000_HistoryDb($$;$$$) {
define <WeatherStation> HP1000 [<ID> <PASSWORD>]
define <WeatherStation> HP1000 [<ID> <PASSWORD>]