From 52db808637b5e434f64e45b7537d92759cf51fb2 Mon Sep 17 00:00:00 2001
From: hotbso <>
Date: Wed, 13 Feb 2019 17:03:56 +0000
Subject: [PATCH] 98_dewpoint.pm: Fix several typos
git-svn-id: https://svn.fhem.de/fhem/trunk@18585 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
fhem/FHEM/98_dewpoint.pm | 41 ++++++++++++++++++++--------------------
1 file changed, 20 insertions(+), 21 deletions(-)
diff --git a/fhem/FHEM/98_dewpoint.pm b/fhem/FHEM/98_dewpoint.pm
index 42f61e3ec..83560c68f 100644
--- a/fhem/FHEM/98_dewpoint.pm
+++ b/fhem/FHEM/98_dewpoint.pm
@@ -189,7 +189,7 @@ dewpoint_Notify($$)
} elsif ($cmd_type eq "alarm") {
if (!defined($hash->{DEVNAME_REF}) || !defined($hash->{DIFF_TEMP})) {
# should never happen!
- Log3($hashName, 1, "Error dewpoint: DEVNAME_REF || DIFF_TEMP undefined");
+ Log3($hashName, 1, "dewpoint_notify: error: DEVNAME_REF || DIFF_TEMP undefined");
return "";
}
$devname_ref = $hash->{DEVNAME_REF};
@@ -198,7 +198,7 @@ dewpoint_Notify($$)
. "dev_regex=$re, devname_ref=$devname_ref, diff_temp=$diff_temp");
} else {
# should never happen:
- Log3($hashName, 1, "Error notify_dewpoint: <1> unknown cmd_type ".$cmd_type);
+ Log3($hashName, 1, "dewpoint_notify: error: unknown cmd_type ".$cmd_type);
return "";
}
@@ -231,13 +231,13 @@ dewpoint_Notify($$)
if ($s =~ /H: [-+]?([0-9]*\.[0-9]+|[0-9]+)/) {
$humidity = $1;
}
- Log3($hashName, 5, "dewpoint_notify T: H:, temp=$temperature hum=$humidity");
+ Log3($hashName, 5, "dewpoint_notify: T: H:, temp=$temperature hum=$humidity");
} elsif ($evName eq $temp_name.":") {
$temperature = $val;
- Log3($hashName, 5, "dewpoint_notify temperature! dev=$devName, temp_name=$temp_name, temp=$temperature");
+ Log3($hashName, 5, "dewpoint_notify: temperature! dev=$devName, temp_name=$temp_name, temp=$temperature");
} elsif ($evName eq $hum_name.":") {
$humidity = $val;
- Log3($hashName, 5, "dewpoint_notify humidity! dev=$devName, hum_name=$hum_name, hum=$humidity");
+ Log3($hashName, 5, "dewpoint_notify: humidity! dev=$devName, hum_name=$hum_name, hum=$humidity");
}
}
@@ -246,7 +246,7 @@ dewpoint_Notify($$)
# Check if Attribute timeout is set
my $timeout = AttrVal($hash->{NAME}, "max_timediff", $dewpoint_time_diff_default);
- Log3($hashName, 5,"dewpoint max_timediff=$timeout");
+ Log3($hashName, 5,"dewpoint_notify: max_timediff=$timeout");
if (($humidity eq "") && (($temperature eq ""))) {
return undef; # no way to calculate dewpoint!
@@ -276,7 +276,7 @@ dewpoint_Notify($$)
# We found temperature and humidity. so we can calculate dewpoint first
# Prüfen, ob humidity im erlaubten Bereich ist
if (($humidity <= 0) || ($humidity >= 110)){
- Log3($hashName, 1, "Error dewpoint: humidity invalid: $humidity");
+ Log3($hashName, 1, "dewpoint_notify: humidity invalid: $humidity");
return undef;
}
@@ -300,27 +300,27 @@ dewpoint_Notify($$)
readingsBeginUpdate($dev);
my $rval;
my $rname;
- my $abs_hunidity = dewpoint_absFeuchte($temperature, $humidity);
+ my $abs_humidity = dewpoint_absFeuchte($temperature, $humidity);
my $aFeuchte = AttrVal($hashName, "absFeuchte", undef);
if (defined($aFeuchte)) {
$rname = "absFeuchte";
- readingsBulkUpdate($dev, $rname, $abs_hunidity);
- Log3($hashName, 5, "dewpoint absFeuchte= $abs_hunidity");
- $aFeuchte = "A: " . $abs_hunidity;
+ readingsBulkUpdate($dev, $rname, $abs_humidity);
+ Log3($hashName, 5, "dewpoint_notify: absFeuchte= $abs_humidity");
+ $aFeuchte = "A: " . $abs_humidity;
}
my $ah_rname = AttrVal($hashName, "absoluteHumidity", undef);
if (defined($ah_rname)) {
- readingsBulkUpdate($dev, $ah_rname, $abs_hunidity);
- Log3($hashName, 5, "dewpoint $ah_rname= $abs_hunidity");
- $aFeuchte = "A: " . $abs_hunidity if !defined($aFeuchte);
+ readingsBulkUpdate($dev, $ah_rname, $abs_humidity);
+ Log3($hashName, 5, "dewpoint_notify: $ah_rname= $abs_humidity");
+ $aFeuchte = "A: " . $abs_humidity if !defined($aFeuchte);
}
my $vp_rname = AttrVal($hashName, "vapourPressure", undef);
if (defined($vp_rname)) {
my $vp = round(10 * dewpoint_vp($temperature, $humidity), 1);
readingsBulkUpdate($dev, $vp_rname, $vp);
- Log3($hashName, 5, "dewpoint $vp_rname= $vp");
+ Log3($hashName, 5, "dewpoint_notify: $vp_rname= $vp");
}
$rname = $new_name;
@@ -444,7 +444,7 @@ dewpoint_Notify($$)
} else {
# should never happen:
- Log3($hashName, 1, "Error notify_dewpoint: <2> unknown cmd_type ".$cmd_type);
+ Log3($hashName, 1, "dewpoint_notify: unknown cmd_type ".$cmd_type);
return "";
}
@@ -544,11 +544,11 @@ dewpoint_absFeuchte ($$)
Dewpoint calculations. Offers three different ways to use dewpoint:
- dewpoint
- Compute additional event dewpoint from a sensor offering temperature and humidity.
+ Compute additional reading dewpoint from a sensor offering temperature and humidity.
- fan
Generate a event to turn a fan on if the outside air has less water than the inside.
- alarm
- Generate a mold alarm if a reference temperature is lower that the current dewpoint.
+ Generate a mold alarm if a reference temperature is lower than the current dewpoint.
@@ -566,8 +566,7 @@ dewpoint_absFeuchte ($$)
Obsolete, avoid for new definitions
If <temp_name> is T then use temperature from state T: H:, add <new_name> to the STATE.
The addition to STATE only occurs if the target device does not define attribute "stateFormat".
- If the obsolete behaviour of STATE is mandatory set attribute legacyStateHandling
- should be set.
+ If the obsolete behaviour of STATE is mandatory set attribute legacyStateHandling.
@@ -630,7 +629,7 @@ dewpoint_absFeuchte ($$)
define <name> dewpoint alarm <devicename-regex> <devicename-reference> <diff-temp>
- Generate a mold alarm if a reference temperature is lower that the current dewpoint.
+ Generate a mold alarm if a reference temperature is lower than the current dewpoint.
-
Generate reading/event "alarm: on" if temperature of <devicename-reference> - <diff-temp> is lower