mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-01 07:19:24 +00:00
370 lines
10 KiB
Perl
370 lines
10 KiB
Perl
###############################################################################
|
|
# $Id$
|
|
#
|
|
# this module is part of fhem under the same license
|
|
# copyright 2015, joerg herrmann
|
|
#
|
|
# history
|
|
# initial checkin
|
|
#
|
|
###############################################################################
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub
|
|
TechemHKV_Initialize(@) {
|
|
my ($hash) = @_;
|
|
|
|
# require "Broker.pm";
|
|
|
|
# TECHEM HKV
|
|
$hash->{Match} = "^b..446850[\\d]{8}6980....A0.*";
|
|
|
|
$hash->{DefFn} = "TechemHKV_Define";
|
|
$hash->{UndefFn} = "TechemHKV_Undef";
|
|
$hash->{SetFn} = "TechemHKV_Set";
|
|
$hash->{GetFn} = "TechemHKV_Get";
|
|
$hash->{NotifyFn} = "TechemHKV_Notify";
|
|
$hash->{ParseFn} = "TechemHKV_Parse";
|
|
|
|
$hash->{AttrList} = "".$readingFnAttributes;
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Define(@) {
|
|
my ($hash, $def) = @_;
|
|
my ($name, $t, $id);
|
|
($name, $t, $id, $def) = split(/ /, $def,4);
|
|
|
|
return "ID must have 4 or 8 digits" if ($id !~ /^\d{4}(?:\d{4})?$/);
|
|
|
|
my $lid = (length($id) == 8)?$id:undef;
|
|
$id = (length($id) == 8)?substr($id,-4):$id;
|
|
|
|
$modules{TechemHKV}{defptr}{$id} = $hash;
|
|
$hash->{friendly} = $def if (defined($def));
|
|
$hash->{lid} = $id if (length($id) == 8);
|
|
|
|
# subscribe broadcast channels
|
|
# TechemHKV_subscribe($hash, 'foo');
|
|
TechemHKV_Run($hash) if $init_done;
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Undef(@) {
|
|
my ($hash) = @_;
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Set(@) {
|
|
my ($hash, $name, $cmd, @args) = @_;
|
|
my $cnt = @args;
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Get(@) {
|
|
my ($hash) = @_;
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Notify (@) {
|
|
my ($hash, $ntfyDev) = @_;
|
|
return unless (($ntfyDev->{TYPE} eq 'CUL') || ($ntfyDev->{TYPE} eq 'Global'));
|
|
foreach my $event (@{$ntfyDev->{CHANGED}}) {
|
|
my @e = split(' ', $event);
|
|
TechemHKV_Run($hash) if ($e[0] eq 'INITIALIZED');
|
|
# patch CUL.pm
|
|
TechemHKV_IOPatch($hash, $e[1]) if (($e[0] eq 'ATTR') && ($e[2] eq 'rfmode') && ($e[3] eq 'WMBus_T'));
|
|
# disable receiver
|
|
if (($e[0] eq 'ATTR') && ($e[2] eq 'rfmode') && ($e[3] ne 'WMBus_T')) {
|
|
readingsBeginUpdate($hash);
|
|
readingsBulkUpdate($hash, "state", "standby (IO missing)", 1);
|
|
readingsBulkUpdate($hash, "temp1", "--.--");
|
|
readingsBulkUpdate($hash, "temp2", "--.--");
|
|
readingsEndUpdate($hash, 1);
|
|
}
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Receive(@) {
|
|
my ($hash, $msg) = @_;
|
|
|
|
$hash->{longID} = $msg->{long} unless defined($hash->{longID});
|
|
# TODO log collision if any ...
|
|
|
|
my @t = localtime(time);
|
|
my ($ats, $ts);
|
|
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 = "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};
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Run(@) {
|
|
my ($hash) = @_;
|
|
# find a CUL
|
|
foreach my $d (keys %defs) {
|
|
# live patch CUL.pm
|
|
TechemHKV_IOPatch($hash, $d) if ($defs{$d}{TYPE} eq "CUL");
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
# live patch CUL.pm, aka THE HACK
|
|
sub
|
|
TechemHKV_IOPatch(@) {
|
|
my ($hash, $iodev) = @_;
|
|
return undef unless (AttrVal($iodev, "rfmode", undef) eq "WMBus_T");
|
|
# see if already patched
|
|
readingsSingleUpdate($hash, "state", "listening", 1);
|
|
return undef if ($defs{$iodev}{Clients} =~ /TechemHKV/ );
|
|
$defs{$iodev}{Clients} = ":TechemHKV".$defs{$iodev}{Clients};
|
|
$defs{$iodev}{'.clientArray'} = undef;
|
|
return undef;
|
|
}
|
|
|
|
sub
|
|
TechemHKV_Parse(@) {
|
|
|
|
my ($iohash, $msg) = @_;
|
|
my ($message, $rssi);
|
|
($msg, $rssi) = split (/::/, $msg);
|
|
my @m = ((substr $msg,1) =~ m/../g);
|
|
|
|
# parse
|
|
($message->{long}, $message->{short}) = TechemHKV_ParseID(@m);
|
|
$message->{lastVal} = TechemHKV_ParseLastPeriod(@m);
|
|
$message->{actualVal} = TechemHKV_ParseActualPeriod(@m);
|
|
$message->{temp1} = TechemHKV_ParseT1(@m);
|
|
$message->{temp2} = TechemHKV_ParseT2(@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
|
|
if (exists($modules{TechemHKV}{defptr}{$message->{short}})) {
|
|
my $deviceHash = $modules{TechemHKV}{defptr}{$message->{short}};
|
|
TechemHKV_Receive($deviceHash, $message);
|
|
return ($deviceHash->{NAME});
|
|
}
|
|
# broadcast
|
|
|
|
return ('');
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseID(@) {
|
|
my @m = @_;
|
|
return ("$m[7]$m[6]$m[5]$m[4]", "$m[5]$m[4]");
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseLastPeriod(@) {
|
|
my @m = @_;
|
|
return hex("$m[17]$m[16]");
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseActualPeriod(@) {
|
|
my @m = @_;
|
|
return hex("$m[21]$m[20]");
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseT1(@) {
|
|
my @m = @_;
|
|
return sprintf "%.2f", (hex("$m[23]$m[22]") / 100);
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseT2(@) {
|
|
my @m = @_;
|
|
return sprintf "%.2f", (hex("$m[25]$m[24]") / 100);
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseActualDate(@) {
|
|
my @m = @_;
|
|
my $b = hex("$m[19]$m[18]");
|
|
my $d = ($b >> 4) & 0x1F;
|
|
my $m = ($b >> 9) & 0x0F;
|
|
my $y = ($b >> 13) & 0x07;
|
|
return ($y, $m, $d);
|
|
}
|
|
|
|
sub
|
|
TechemHKV_ParseLastDate(@) {
|
|
my @m = @_;
|
|
my $b = hex("$m[15]$m[14]");
|
|
my $d = ($b >> 0) & 0x1F;
|
|
my $m = ($b >> 5) & 0x0F;
|
|
my $y = ($b >> 9) & 0x3F;
|
|
return ($y, $m, $d);
|
|
}
|
|
|
|
# message bus ahead
|
|
# sub
|
|
#TechemHKV_subscribe(@) {
|
|
# my ($hash, $topic) = @_;
|
|
# broker::subscribe ($topic, $hash->{NAME}, \&TechemHKV_rcvBCST);
|
|
# return undef;
|
|
#}
|
|
|
|
#sub
|
|
#TechemHKV_sendBCST(@) {
|
|
# my ($hash, $topic, $msg) = @_;
|
|
# broker::publish ($topic, $hash->{NAME}, $msg);
|
|
# return undef;
|
|
#}
|
|
|
|
#sub
|
|
#TechemHKV_rcvBCST(@) {
|
|
# my ($name, $topic, $sender, $msg) = @_;
|
|
# my $hash = $defs{$name};
|
|
# return undef;
|
|
#}
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="TechemHKV"></a>
|
|
<h3>TechemHKV</h3>
|
|
<ul>
|
|
This module reads the transmission of techem data meter for heating device.
|
|
<br><br>
|
|
It will display
|
|
<ul>
|
|
<li>meter data for current billing period</li>
|
|
<li>meter data for previous billing period including date of request</li>
|
|
<li>both temperature sensors</li>
|
|
</ul>
|
|
<br>
|
|
It will require a CUL in WMBUS_T mode, although the CUL may temporary set into that mode.
|
|
The module keeps track of the CUL rfmode.
|
|
<br>
|
|
<br>
|
|
<a name="TechemHKV_Define"></a>
|
|
<b>Define</b>
|
|
<br>
|
|
<code>define <name> TechemHKV <4|8 digit ID> [<speaking name>]</code>
|
|
<ul>
|
|
<li>ID: 4 digit ID displayed at techem or 8 digit as printed on bill</li>
|
|
<li>speaking name: (optional) human readable identification</li>
|
|
</ul>
|
|
<br>
|
|
<a name="TechemHKV_Readings"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li>current_period: meter data for current billing period
|
|
<br><i>unit-less data, cumulated since start of the current billing period. The reading will be updated once a day, after receiving the first update. Reading time will reflect the time of data (not the time where they were received)</i></br>
|
|
</li>
|
|
<li>previous_period: meter data for last billing period
|
|
<br><i>unit-less data, sum of the last billing period. The reading will be updated only if a new billing period starts. Reading time will reflect the last day of previous billing period (not the time where they were received)</i></br>
|
|
</li>
|
|
<li>temp1: ambient temperature</li>
|
|
<li>temp2: heater surface temperature</li>
|
|
<br>
|
|
</ul>
|
|
<a name="TechemHKV_Internals"></a>
|
|
<b>Internals</b>
|
|
<ul>
|
|
<li>friendly: human readable identification of meter as specified by define</li>
|
|
<li>longID: 8 digit id of meter</li>
|
|
<br>
|
|
</ul>
|
|
</ul>
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="TechemHKV"></a>
|
|
<h3>TechemHKV</h3>
|
|
<ul>
|
|
Das modul empfängt Daten eines Techem Heizkostenverteilers.
|
|
<br><br>
|
|
Empfangen werden
|
|
<ul>
|
|
<li>Wert des aktuellen Abrechnungszeitraumes</li>
|
|
<li>Wert des vorhergehenden Abrechnungszeitraumes einschließlich des Ablesedatums</li>
|
|
<li>Beide Temperatur Sensoren</li>
|
|
</ul>
|
|
<br>
|
|
Zum Empfang wird ein CUL im WMBUS_T mode benötigt. Dabei ist es ausreichend ihn vorrübergehend in diesen Modus zu schalten.
|
|
Das Modul überwacht den rfmode aller verfügbaren CUL
|
|
<br>
|
|
<br>
|
|
<a name="TechemHKV_Define"></a>
|
|
<b>Define</b>
|
|
<br>
|
|
<code>define <name> TechemHKV <4|8 digit ID> [<speaking name>]</code>
|
|
<ul>
|
|
<li>ID: 4 Ziffern wie auf dem Heizkostenverteiler angezeigt oder 8 Ziffern aus der Abrechnung</li>
|
|
<li>speaking name: (optional) Bezeichnung</li>
|
|
</ul>
|
|
<br>
|
|
<a name="TechemHKV_Readings"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li>current_period: Wert des aktuellen Abrechnungszeitraumes
|
|
<br><i>Der kumulierte (einheitenlose) Verbrauch seid dem Start des aktuellen Abrechnungszeitraumes. Das reading wird einmal am Tag aktualisiert. Die Zeit kennzeichnet den Stand der Daten. (und nicht den Empfangszeitpunkt der Daten)</i></br>
|
|
</li>
|
|
<li>previous_period: Summe des letzten Abrechnungszeitraum
|
|
<br><i>Die (einheitenlose) Summe der Verbauchs im gesamten letzten Abrechnungszeitraum. Das reading wird jeweils zu Beginn eines neuen Abrechnungszeitraumes aktualisiert. Die Zeit kennzeichnet das Ablesedatum also das Ende des vorherigen Abrechnugszeitraumes. (und nicht den Empfangszeitpunkt der Daten)</i></br>
|
|
</li>
|
|
<li>temp1: Umgebungstemperatur</li>
|
|
<li>temp2: Oberflächentemperatur des Heizkörpers</li>
|
|
<br>
|
|
</ul>
|
|
<a name="TechemHKV_Internals"></a>
|
|
<b>Internals</b>
|
|
<ul>
|
|
<li>friendly: die beim define übergebene, zusätzliche Bezeichnung</li>
|
|
<li>longID: 8 Ziffern ID des Heizkostenverteilers</li>
|
|
<br>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html_DE
|
|
=cut
|
|
|