FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

32_TechemHKV.pm: improved logging

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9566 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
herrmannj 2015-10-20 23:34:40 +00:00
parent 37083e07ce
commit dce0fef298
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/32_TechemHKV.pm
View File

@ -109,24 +109,32 @@ TechemHKV_Receive(@) {
readingsBeginUpdate($hash);
readingsBulkUpdate($hash, "temp1", $msg->{temp1});
readingsBulkUpdate($hash, "temp2", $msg->{temp2});
readingsEndUpdate($hash, 1);
# day period changed
$ats = ReadingsTimestamp($hash->{NAME},"current_period", "0");
$ts = "".($t[5]+1900)."-".$msg->{actual}->{month}."-".$msg->{actual}->{day}." 00:00:00";
$ts = "20".($msg->{last}->{year} + $msg->{actual}->{year})."-".$msg->{actual}->{month}."-".$msg->{actual}->{day}." 00:00:00";
if ($ats ne $ts) {
readingsBeginUpdate($hash);
$hash->{".updateTimestamp"} = $ts;
readingsBulkUpdate($hash, "current_period", $msg->{actualVal});
$hash->{CHANGETIME}[0] = $ts;
readingsEndUpdate($hash, 1);
delete $hash->{CHANGETIME};
}
# billing period changed
$ats = ReadingsTimestamp($hash->{NAME},"previous_period", "0");
$ts = "20".$msg->{last}->{year}."-".$msg->{last}->{month}."-".$msg->{last}->{day}." 00:00:00";
if ($ats ne $ts) {
readingsBeginUpdate($hash);
$hash->{".updateTimestamp"} = $ts;
readingsBulkUpdate($hash, "previous_period", $msg->{lastVal});
$hash->{CHANGETIME}[0] = $ts;
readingsEndUpdate($hash, 1);
delete $hash->{CHANGETIME};
}
readingsEndUpdate($hash, 1);
return undef;
}
@ -168,7 +176,7 @@ TechemHKV_Parse(@) {
$message->{actualVal} = TechemHKV_ParseActualPeriod(@m);
$message->{temp1} = TechemHKV_ParseT1(@m);
$message->{temp2} = TechemHKV_ParseT2(@m);
($message->{actual}->{month}, $message->{actual}->{day}) = TechemHKV_ParseActualDate(@m);
($message->{actual}->{year}, $message->{actual}->{month}, $message->{actual}->{day}) = TechemHKV_ParseActualDate(@m);
($message->{last}->{year}, $message->{last}->{month}, $message->{last}->{day}) = TechemHKV_ParseLastDate(@m);
# dispatch
@ -179,7 +187,7 @@ TechemHKV_Parse(@) {
}
# broadcast
return ($iohash->{NAME});
return (undef);
}
sub
@ -218,7 +226,8 @@ TechemHKV_ParseActualDate(@) {
my $b = hex("$m[19]$m[18]");
my $d = ($b >> 4) & 0x1F;
my $m = ($b >> 9) & 0x0F;
return ($m, $d);
my $y = ($b >> 13) & 0x07;
return ($y, $m, $d);
}
sub