Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-06-17 05:40:11 +00:00
Code Issues Packages Projects Releases Wiki Activity
cc77516708
fhem-mirror/FHEM/21_N4HMODULE.pm

1451 lines
45 KiB
Perl
Raw Blame History

#############################################################################
#
# 21_N4HMODULE.pm
#
# net4home Busconnector Device
#
# (c) 2014-2018 Oliver Koerber <koerber@net4home.de>
#
# $Id$
#
##############################################################################
package main;
use strict;
use warnings;
use POSIX;
use SetExtensions;
sub N4HMODULE_Set($@);
sub N4HMODULE_Get ($$@);
sub N4HMODULE_Update($@);
sub N4HMODULE_DbLog_splitFn($$);
my $n4hmodule_Version = "1.0.2.0 - 30.12.2017";
my %OT_devices = (
"1" => {"name" => "leer", "OTcanSet" => "false", "OTcanReq" => "false", "fields" => [] },
"2" => {"name" => "Eingang, Binär, Sx", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"3" => {"name" => "Ausgang, Binär, Relais", "OTcanSet" => "true", "OTcanReq" => "true", "fields" => [
{ "cmd" => "350000", "ID" => "0", "text" => "UM", "Type" => "Button" , "set" => "toggle:noArg" },
{ "cmd" => "326400", "ID" => "1", "text" => "EIN", "Type" => "Button" , "set" => "on:noArg" },
{ "cmd" => "320000", "ID" => "2", "text" => "AUS", "Type" => "Button" , "set" => "off:noArg" },
{ "cmd" => "428100", "ID" => "3", "text" => "Zwangsgeführt EIN", "Type" => "Button" , "set" => "lockon:noArg" },
{ "cmd" => "428000", "ID" => "4", "text" => "Zwangsgeführt AUS", "Type" => "Button" , "set" => "lockoff:noArg" },
{ "cmd" => "420000", "ID" => "5", "text" => "Zwangsführung deaktiv", "Type" => "Button" , "set" => "unlock:noArg" },
]},
"4" => {"name" => "Ausgang, Binär, Timer, Relais", "OTcanSet" => "true", "OTcanReq" => "true", "fields" => [
{ "cmd" => "350000", "ID" => "0", "text" => "EIN für Dauer: Zeit 1", "Type" => "Button" , "set" => "toggle:noArg" },
{ "cmd" => "320000", "ID" => "2", "text" => "AUS", "Type" => "Button" , "set" => "off:noArg" },
{ "cmd" => "428100", "ID" => "3", "text" => "Zwangsgeführt EIN", "Type" => "Button" , "set" => "lockon:noArg" },
{ "cmd" => "428000", "ID" => "4", "text" => "Zwangsgeführt AUS", "Type" => "Button" , "set" => "lockoff:noArg" },
{ "cmd" => "420000", "ID" => "5", "text" => "Zwangsführung deaktiv", "Type" => "Button" , "set" => "unlock:noArg" },
]},
"5" => {"name" => "Ausgang, Dimmer", "OTcanSet" => "true", "OTcanReq" => "true", "fields" => [
{ "cmd" => "320000", "ID" => "3", "text" => "AUS", "Type" => "Button" , "set" => "off:noArg" },
{ "cmd" => "326500", "ID" => "4", "text" => "EIN mit letztem Wert", "Type" => "Button" , "set" => "on:noArg" },
{ "cmd" => "350000", "ID" => "5", "text" => "UM", "Type" => "Button" , "set" => "toggle:noArg" },
{ "cmd" => "330000", "ID" => "7", "text" => "Heller", "Type" => "Button" , "set" => "dimup:noArg" },
{ "cmd" => "340000", "ID" => "8", "text" => "Dunkler", "Type" => "Button" , "set" => "dimdown:noArg" },
{ "cmd" => "428100", "ID" => "9", "text" => "Zwangsgeführt EIN", "Type" => "Button" , "set" => "lockon:noArg" },
{ "cmd" => "428000", "ID" => "10","text" => "Zwangsgeführt AUS", "Type" => "Button" , "set" => "lockoff:noArg" },
{ "cmd" => "32" , "ID" => "10","text" => "Wert setzen auf", "Type" => "Button" , "set" => "pct:slider,0,1,100" },
{ "cmd" => "420000", "ID" => "11", "Text" => "Zwangsführung deaktiv", "Type" => "Button" , "set" => "unlock:noArg" },
]},
"24" => {"name" => "Messwert,Temperatur", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"25" => {"name" => "Messwert,Helligkeit", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"26" => {"name" => "Messwert,Feuchte", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"34" => {"name" => "TLH-Regler H,Sollwert,Temperatur", "OTcanSet" => "true", "OTcanReq" => "true", "fields" => [
{ "cmd" => "3B0000", "ID" => "0", "Text" => "AUS", "Type" => "Button" , "set" => "off:noArg" },
{ "cmd" => "3B0100", "ID" => "1", "Text" => "Heizen", "Type" => "Button" , "set" => "heat:noArg" },
{ "cmd" => "3B0200", "ID" => "2", "Text" => "Kühlen", "Type" => "Button" , "set" => "cool:noArg" },
{ "cmd" => "3B0300", "ID" => "3", "Text" => "Auto", "Type" => "Button" , "set" => "auto:noArg" },
{ "cmd" => "3200", "ID" => "4", "Text" => "Sollwert", "Type" => "Button" , "set" => "desired-temperature:slider,4,0.5,30,1" },
{ "cmd" => "3B1400", "ID" => "5", "Text" => "Tagwert aktivieren", "Type" => "Button" , "set" => "comfort:noArg" },
{ "cmd" => "3B1E00", "ID" => "6", "Text" => "Nachtwert aktivieren", "Type" => "Button" , "set" => "eco:noArg" },
{ "cmd" => "3B1500", "ID" => "7", "Text" => "Sollwert -&gt; Tagwert", "Type" => "Button" , "set" => "setdesired2comfort:noArg" },
{ "cmd" => "3B1F00", "ID" => "8", "Text" => "Sollwert -&gt; Nachtwert","Type" => "Button" , "set" => "setdesired2eco:noArg" },
]},
"95" => {"name" => "Ausgang, Jal, Motor AJ3", "OTcanSet" => "true", "OTcanReq" => "true", "fields" => [
{ "cmd" => "350000", "ID" => "0", "text" => "Weiterschalten", "Type" => "Button" , "set" => "toggle:noArg" },
{ "cmd" => "320000", "ID" => "1", "text" => "STOP", "Type" => "Button" , "set" => "stop:noArg" },
{ "cmd" => "320300", "ID" => "2", "text" => "AUF", "Type" => "Button" , "set" => "up:noArg" },
{ "cmd" => "320100", "ID" => "3", "text" => "AB", "Type" => "Button" , "set" => "down:noArg" },
{ "cmd" => "428300", "ID" => "4", "text" => "Sperre OFFEN", "Type" => "Button" , "set" => "lockup:noArg" },
{ "cmd" => "428100", "ID" => "5", "text" => "Sperre GESCHLOSSEN", "Type" => "Button" , "set" => "lockdown:noArg" },
{ "cmd" => "420000", "ID" => "6", "text" => "Sperre freigeben", "Type" => "Button" , "set" => "unlock:noArg" },
]},
"100" => {"name" => "Safety Basis", "OTcanSet" => "true", "OTcanReq" => "true", "fields" => [
{ "cmd" => "320000", "ID" => "0", "text" => "AUS", "Type" => "Button" , "set" => "off:noArg" },
{ "cmd" => "320100", "ID" => "1", "text" => "Intern scharf 1", "Type" => "Button" , "set" => "intern1:noArg" },
{ "cmd" => "320200", "ID" => "2", "text" => "Intern scharf 1", "Type" => "Button" , "set" => "intern2:noArg" },
{ "cmd" => "320300", "ID" => "3", "text" => "Extern scharf", "Type" => "Button" , "set" => "extern:noArg" },
]},
"210" => {"name" => "UP-RF Absender", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"240" => {"name" => "Messwert,Wind", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"242" => {"name" => "Messwert,Luftdruck", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"245" => {"name" => "Messwert,Regenmenge", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
"310" => {"name" => "Stromzähler", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [
{ "cmd" => "330000", "ID" => "0", "Text" => "Inc", "Type" => "Button" , "set" => "inc" },
]},
"348" => {"name" => "Zähler", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [
{ "cmd" => "330000", "ID" => "0", "Text" => "+1", "Type" => "Button" , "set" => "inc"},
{ "cmd" => "340000", "ID" => "1", "Text" => "-1", "Type" => "Button" , "set" => "dec" },
{ "cmd" => "320000", "ID" => "3", "Text" => "Zählerwert reset", "Type" => "Button" , "set" => "reset" },
{ "cmd" => "360000", "ID" => "4", "Text" => "Zählerwert lesen (nur LCD)", "Type" => "Button" },
] },
"999" => {"name" => "Messwert,N56", "OTcanSet" => "false", "OTcanReq" => "true", "fields" => [] },
);
##################################################################################
sub N4HMODULE_Initialize($) {
##################################################################################
my ($hash) = @_;
my @otlist;
foreach my $model (keys %OT_devices){
push @otlist,$OT_devices{$model}->{name};
}
$hash->{DefFn} = "N4HMODULE_Define";
$hash->{UndefFn} = "N4HMODULE_Undefine";
$hash->{ParseFn} = "N4HMODULE_Parse";
$hash->{SetFn} = "N4HMODULE_Set";
$hash->{GetFn} = "N4HMODULE_Get";
$hash->{AttrFn} = "N4HMODULE_Attr";
$hash->{AttrList} = "IoDev dummy:1,0 Interval sendack:on,off setList ".
"$readingFnAttributes ";
# "OT:" .join(",", sort @otlist);
$hash->{DbLog_splitFn} = "N4HMODULE_DbLog_splitFn";
}
##################################################################################
sub N4HMODULE_Define($$) {
##################################################################################
my ($hash, $def) = @_;
my @args = split("[ \t]+", $def);
my ($name, $type, $n4hbus, $ot, $objadr) = @args;
my ($readings) = "";
if(@args < 4) {
my $msg = "Usage: define <name> N4HMODULE <N4HBUS> <OBJECTTYPE> <OBJADDR>";
Log3 $hash, 2, $msg;
return $msg;
}
$hash->{VERSION} = $n4hmodule_Version;
$hash->{Hardware} = "undefined";
$hash->{Software} = "undefined";
$hash->{STATE} = "Initializing";
$hash->{NOTIFYDEV} = "global";
$hash->{IODev} = $n4hbus;
$hash->{OBJADR} = $objadr;
$hash->{OT} = $ot;
$hash->{DESC} = $OT_devices{$ot}{name};
$hash->{OTcanSet} = $OT_devices{$ot}{OTcanSet};
$hash->{OTcanReq} = $OT_devices{$ot}{OTcanReq};
$hash->{Interval} = 0;
$modules{N4HMODULE}{defptr}{$objadr} = $hash;
AssignIoPort($hash, $n4hbus);
Log3 $hash, 3, "N4HMODULE_Define -> $name ($ot) at device $n4hbus with objectadr $objadr";
$hash->{helper}{from} = '';
$hash->{helper}{value} = '';
$hash->{helper}{cmd} = '';
$hash->{helper}{ddata} = '';
$hash->{helper}{pct} = 0;
if ($hash->{OTcanSet}eq"true") {
$hash->{helper}{state} = 'undefined';
}
$attr{$name}{room} = "net4home" if( !defined($attr{$name}{room}) );
# Timer zum regelmäßigem aktualisieren auf dem Bus starten
if (($ot == 24) or #Temperatur
($ot == 25) or #Licht
($ot == 26) or #Luftfeuchte
($ot == 240) or #Wind
($ot == 241) or #Sonne
($ot == 242) or #Luftdruck
($ot == 246) or #Luftdruck-Tendenz
($ot == 245)) { #Regenmenge l/h
my $state_format;
if( $ot == 24 ) {
$state_format .= " " if( $state_format );
$state_format .= "T: temperature";
} elsif( $ot == 25 ) {
$state_format .= " " if( $state_format );
$state_format .= "L: brightness";
} elsif( $ot == 26 ) {
$state_format .= " " if( $state_format );
$state_format .= "H: humidity";
} elsif( $ot == 240 ) {
$state_format .= " " if( $state_format );
$state_format .= "W: wind";
} elsif( $ot == 241 ) {
$state_format .= " " if( $state_format );
$state_format .= "L: brightness";
} elsif( $ot == 242 ) {
$state_format .= " " if( $state_format );
$state_format .= "P: pressure";
} elsif( $ot == 245 ) {
$state_format .= " " if( $state_format );
$state_format .= "R: rain";
}
$attr{$name}{stateFormat} = $state_format if( !defined($attr{$name}{stateFormat}) && defined($state_format) );
RemoveInternalTimer($hash);
$hash->{Interval} = 30;
# Timer Zeitversetzt starten, damit nicht alles auf den Bus gleichzeit kommt 30 Sekunden + x
Log3 $hash, 3, "N4HMODULE_Define (set timer) -> $name ($ot)";
InternalTimer( gettimeofday() + 30 + int(rand(15)) , "N4HMODULE_Start", $hash, 0 );
} elsif (( $ot == 34 ) or # TLH
( $ot == 3 ) or # Aktor, Relais
( $ot == 5)) { # Aktor, Dimmer
# get initial value from bus after first start
Log3 $hash, 3, "N4HMODULE_Define (get) -> $name ($ot)";
InternalTimer( gettimeofday() + int(rand(10)) , "N4HMODULE_Start", $hash, 0 );
}
return undef;
}
##################################################################################
sub N4HMODULE_Start($)
##################################################################################
{
my ($hash) = @_;
my $name = $hash->{NAME};
my $interval = $hash->{Interval};
my $ot = $hash->{OT};
my $webCmd;
$webCmd = AttrVal($name,"webCmd",undef);
$interval = $attr{$name}{Interval} if( defined($attr{$name}{Interval}) );
Log3 $hash, 5, "N4HMODULE (start): ($name)-> ".$interval." Sekunden";
# reset timer if interval is defined
if (($interval >= 30) and ($interval <= 86400)) {
Log3 $hash, 5, "N4HMODULE (restart timer): ($name)-> ".$interval." Sekunden";
RemoveInternalTimer( $hash );
InternalTimer(gettimeofday() + $interval, "N4HMODULE_Start", $hash, 1 );
N4HMODULE_Update( $hash );
} else {
# get initial values/state after start
if ( $ot == 3 ) {
# ot 3 = "Ausgang, Binär, Relais"
if(!defined $webCmd){ $webCmd="toggle:on:off";}
Log3 $hash, 5, "N4HMODULE (first timer): ($name)-> status";
N4HMODULE_Get($hash, $hash->{NAME}, "status");
} elsif ( $ot == 5 ) {
# ot 5 = "Ausgang, Dimmer"
if(!defined $webCmd){ $webCmd="pct:toggle:on:off";}
Log3 $hash, 5, "N4HMODULE (first timer): ($name)-> status";
N4HMODULE_Get($hash, $hash->{NAME}, "status");
} elsif ( $ot == 34 ) {
# ot 34 = "TLH-Regler H,Sollwert,Temperatur"
if(!defined $webCmd){ $webCmd="off:heat:cool:auto";}
Log3 $hash, 5, "N4HMODULE (first timer): ($name)-> desired-temperature";
N4HMODULE_Get($hash, $hash->{NAME}, "desired-temperature");
}
}
}
##################################################################################
sub N4HMODULE_Undefine($$) {
##################################################################################
my ($hash,$arg) = @_;
my $name = $hash->{NAME};
Log3 $hash, 3, "N4HMODULE_Undefine -> $name";
RemoveInternalTimer( $hash );
delete($modules{N4HMODULE}{defptr}{$hash->{OBJADR}});
return undef;
}
##################################################################################
sub N4HMODULE_DbLog_splitFn($$) {
##################################################################################
my ($event, $device) = @_;
my ($reading, $value, $unit) = "";
my $hash = $defs{$device};
my @parts = split(/ /,$event);
$value = $parts[1];
if ($event =~ m/temperature/) {
$reading = 'temperature';
$unit = '°C';
} elsif ($event =~ m/humidity/) {
$reading = 'humidity';
$unit = '%';
} elsif ($event =~ m/pressure/) {
$reading = 'pressure';
$unit = 'hPas';
} elsif ($event =~ m/co2/) {
$reading = 'co2';
$unit = 'ppm';
} elsif ($event =~ m/rain/) {
$reading = 'rain';
$unit = 'l/h';
} elsif ($event =~ m/brightness/) {
$reading = 'brightness';
$unit = '';
}
return ($reading, $value, $unit);
}
##################################################################################
sub N4HMODULE_Parse($$) {
##################################################################################
my ($iodev, $msg, $local) = @_;
my $ioName = $iodev->{NAME};
my $object = "";
# Modul suchen
my $type8 = hex(substr($msg,0,2));
my $ipsrc = substr($msg,4,2).substr($msg,2,2);
my $ipdst = hex(substr($msg,8,2).substr($msg,6,2));
my $objsrc = hex(substr($msg,12,2).substr($msg,10,2));
my $datalen = int(hex(substr($msg,14,2)));
my $ddata = substr($msg,16, ($datalen*2));
my $pos = $datalen*2+16;
# Log3 "xx", 1, "(DECOMP2): T8($type8) - MI$ipsrc DST-> $ipdst SRC<-$objsrc";
if ( length($msg) <= $pos ) {
return undef;
}
my $csRX = substr($msg,$pos,2);
my $csCalc = substr($msg,$pos+2,2);
my $len = substr($msg,$pos+4,2);
my $posb = substr($msg,$pos+6,2);
if ($ipdst == 32767) {
$object = $objsrc;
} else {
$object = $ipdst;
}
my $hash = $modules{N4HMODULE}{defptr}{$object};
Log3 $hash, 5, "N4HMODULE (parse): $msg";
if (!$hash) {
$object = $objsrc;
$hash = $modules{N4HMODULE}{defptr}{$objsrc};
}
if(!$hash) {
my $ret = "Undefined ObjectAddress ($object)";
return "";
}
my $devtype = $hash->{OT};
N4HMODULE_ParsePayload($hash, $devtype, $ipsrc, $objsrc, $ddata);
return $hash->{NAME};
}
##################################################################################
sub N4HMODULE_ParsePayload($@) {
##################################################################################
my ($hash, $devtype, $ipsrc, $objsrc, $ddata) = @_;
my $name = $hash->{NAME};
my $ot = $hash->{OT};
my $dev_funcion = hex(substr($ddata,0,2));
my $newState = "";
my $myval = "";
my $objadr = $hash->{OBJADR};
readingsBeginUpdate($hash);
# +++++++ D0_GET_TYP
if ($dev_funcion == hex("03")) {
if (hex(substr($ddata,2,2)) == "1F") {
$hash->{Hardware} = "UP-S4";
} elsif (hex(substr($ddata,2,2)) == "29") {
$hash->{Hardware} = "HS-AD3";
}
}
# +++++++ D0_SET
if ($dev_funcion == hex("32")) {
Log3 $hash, 5, "N4HMODULE -> D0_SET ($name) (".$hash->{OT}." OBJ->$objsrc - IP->$ipsrc - ".$hash->{OBJADR}.")";
if ( $ot == 34 && $objsrc != $objadr) {
# ot 34 = "TLH-Regler H,Sollwert,Temperatur"
my ($lastval) = sprintf "%.1f", hex(substr($ddata,4,2))/10;
readingsBulkUpdate($hash, "desired-temperature", $lastval);
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
} elsif ( $ot == 5 ) {
# ot 5 = "Ausgang, Dimmer"
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_SET");
my ($lastval) = sprintf "%.0f", hex(substr($ddata,2,2));
if ( $lastval == 0 ) {
readingsBulkUpdate($hash, "state", "off");
$hash->{helper}{pct} = $hash->{READINGS}{pct}{VAL};
readingsBulkUpdate($hash, "pct", 0);
} elsif ( $lastval == 101 ) {
readingsBulkUpdate($hash, "state", "on");
readingsBulkUpdate($hash, "pct", $hash->{helper}{pct});
} else {
readingsBulkUpdate($hash, "state", "on");
$hash->{helper}{pct} = $lastval;
readingsBulkUpdate($hash, "pct", $lastval);
}
} elsif ( $ot == 34 ) {
# do nothing - cmd only for ATe
} elsif ( $ot == 95 ) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_SET");
if (hex(substr($ddata,2,2))== hex("00")) {
readingsBulkUpdate($hash,"state", "stop");
$hash->{STATE} = "stop";
readingsBulkUpdate($hash, "position", 50);
} elsif (hex(substr($ddata,2,2))== hex("01")) {
readingsBulkUpdate($hash,"state", "down");
readingsBulkUpdate($hash, "position", 0);
$hash->{STATE} = "down";
} elsif (hex(substr($ddata,2,2))== hex("03")) {
readingsBulkUpdate($hash,"state", "up");
readingsBulkUpdate($hash, "position", 100);
$hash->{STATE} = "up";
}
} else {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_SET");
if (hex(substr($ddata,2,2))== hex("00")) {
readingsBulkUpdate($hash,"state", "off");
$hash->{STATE} = "off";
} else {
readingsBulkUpdate($hash,"state", "on");
$hash->{STATE} = "on";
}
}
}
# +++++++ D0_INC
if ($dev_funcion == hex("33")) {
if ( $ot == 5 ) {
# ot 5 = "Ausgang, Dimmer"
readingsBulkUpdate($hash, "state", "on");
$hash->{helper}{pct} = $hash->{helper}{pct}+2;
readingsBulkUpdate($hash, "pct", $hash->{helper}{pct});
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_INC");
} else {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_INC");
}
}
# +++++++ D0_DEC
if ($dev_funcion == hex("34")) {
if ( $ot == 5 ) {
# ot 5 = "Ausgang, Dimmer"
readingsBulkUpdate($hash, "state", "on");
$hash->{helper}{pct} = $hash->{helper}{pct}-2;
readingsBulkUpdate($hash, "pct", $hash->{helper}{pct});
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_DEC");
} else {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_DEC");
}
}
# +++++++ D0_TOGGLE
if ($dev_funcion == hex("35")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_TOGGLE");
if ( $ot == 5 ) {
# ot 5 = "Ausgang, Dimmer"
if (ReadingsVal($name, "state", "") eq "on") {
readingsBulkUpdate($hash,"state", "off");
$hash->{helper}{pct} = $hash->{READINGS}{pct}{VAL};
readingsBulkUpdate($hash, "pct", 0);
$hash->{STATE} = "off";
} elsif (ReadingsVal($name, "state", "") eq "off") {
readingsBulkUpdate($hash,"state", "on");
readingsBulkUpdate($hash, "pct", $hash->{helper}{pct});
$hash->{STATE} = "on";
}
} else {
if (ReadingsVal($name, "state", "") eq "on") {
readingsBulkUpdate($hash,"state", "off");
$hash->{STATE} = "off";
} elsif (ReadingsVal($name, "state", "") eq "off") {
readingsBulkUpdate($hash,"state", "on");
$hash->{STATE} = "on";
}
}
}
# +++++++ D0_REQ
if ($dev_funcion == hex("36")) {
if ( $ot == 3 ) {
# ot 3 = "Ausgang, Binär, Relais"
} elsif ( $ot == 34 ) {
# ot 34 = "TLH-Regler H,Sollwert,Temperatur"
} else {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_REQ");
Log3 $hash, 5, "N4HMODULE -> D0_REQ ($name) (".$hash->{OT}.")";
N4HMODULE_Update( $hash );
}
}
# +++++++ D0_ACTOR_ACK
if ($dev_funcion == hex("37")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_ACTOR_ACK");
Log3 $hash, 5, "N4HMODULE -> D0_ACTOR_ACK ($name) (".$hash->{OT}.")";
if ( $ot == 3 ) {
# ot 3 = "Ausgang, Binär, Relais"
if ( (hex(substr($ddata,4,2))) == 0) {
readingsBulkUpdate($hash, "state", "off");
$hash->{STATE} = "off";
} elsif ( (hex(substr($ddata,4,2))) == 1) {
readingsBulkUpdate($hash, "state", "on");
$hash->{STATE} = "on";
}
} elsif ( $ot == 5 ) {
# ot 5 = "Ausgang, Dimmer"
if ( hex(substr($ddata,4,2)) > 128) {
my ($lastval) = sprintf "%.0f", hex(substr($ddata,4,2));
readingsBulkUpdate($hash, "pct", $lastval-128);
$hash->{helper}{pct} = $lastval-128;
readingsBulkUpdate($hash, "state", "on");
$hash->{STATE} = "on";
} else {
my ($lastval) = sprintf "%.0f", hex(substr($ddata,4,2));
$hash->{helper}{pct} = $lastval;
readingsBulkUpdate($hash, "state", "off");
$hash->{STATE} = "off";
}
} elsif ( $ot == 34 ) {
# ot 34 = "TLH-Regler H,Sollwert,Temperatur"
my ($lastval) = sprintf "%.1f", hex(substr($ddata,4,2))/10;
readingsBulkUpdate($hash, "desired-temperature", $lastval);
if ( (hex(substr($ddata,6,2))) == 0) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "0");
readingsBulkUpdate($hash, "state", "off");
$hash->{STATE} = "off";
} elsif ( (hex(substr($ddata,6,2))) == 1) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "1");
readingsBulkUpdate($hash, "state", "heat");
$hash->{STATE} = "heat";
} elsif ( (hex(substr($ddata,6,2))) == 2) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "2");
readingsBulkUpdate($hash, "state", "cool");
$hash->{STATE} = "cool";
} elsif ( (hex(substr($ddata,6,2))) == 3) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "3");
readingsBulkUpdate($hash, "state", "auto");
$hash->{STATE} = "auto";
};
};
}
# +++++++ D0_SENSOR_ACK
if ($dev_funcion == hex("41")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_SENSOR_ACK");
Log3 $hash, 5, "N4HMODULE -> D0_SENSOR_ACK ($name) (".$hash->{OT}.")";
N4HMODULE_Update( $hash );
}
# +++++++ D0_LOCK_STATE_ACK
if ($dev_funcion == hex("44")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_LOCK_STATE_ACK");
Log3 $hash, 5, "N4HMODULE -> D0_LOCK_STATE_ACK ($name) (".$hash->{OT}.")";
}
# +++++++ D0_VALUE_ACK (101)
if ($dev_funcion == hex("65")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_VALUE_ACK");
if ( (hex(substr($ddata,4,2))) == 0) {
readingsBulkUpdate($hash, "state", "off");
$hash->{STATE} = "off";
} elsif ( (hex(substr($ddata,4,2))) == 1) {
readingsBulkUpdate($hash, "state", "on");
$hash->{STATE} = "on";
}
my ($valtype, $lastval) = N4HMODULE_paramToText($hash, $ddata);
readingsBulkUpdate($hash, $valtype, $lastval);
readingsBulkUpdate($hash, "state", $lastval);
}
# +++++++ D0_VALUE_REQ
if ($dev_funcion == hex("66")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
readingsBulkUpdate($hash,"cmd", "D0_VALUE_REQ");
Log3 $hash, 5, "N4HMODULE -> D0_VALUE_REQ ($name) (".$hash->{OT}.")";
N4HMODULE_Update( $hash );
}
# +++++++ SetN
if ($dev_funcion == hex("3b")) {
if( defined($objsrc)) {readingsBulkUpdate($hash,"from", $objsrc);}
readingsBulkUpdate($hash,"ddata", $ddata);
# ot 34 = "TLH-Regler H,Sollwert,Temperatur"
if ($ot == 34) {
readingsBulkUpdate($hash,"cmd", "SetN");
Log3 $hash, 5, "N4HMODULE -> SetN ($name) (".$hash->{OT}.")";
if ( (hex(substr($ddata,2,2))) == 0) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "0");
readingsBulkUpdate($hash, "state", "off");
$hash->{STATE} = "off";
} elsif ( (hex(substr($ddata,2,2))) == 1) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "1");
readingsBulkUpdate($hash, "state", "heat");
$hash->{STATE} = "heat";
} elsif ( (hex(substr($ddata,2,2))) == 2) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "2");
readingsBulkUpdate($hash, "state", "cool");
$hash->{STATE} = "cool";
} elsif ( (hex(substr($ddata,2,2))) == 3) {
readingsBulkUpdate($hash, "CurrentHeatingCoolingState", "3");
readingsBulkUpdate($hash, "state", "auto");
$hash->{STATE} = "auto";
};
} else {
readingsBulkUpdate($hash,"cmd", "SetN");
}
}
readingsEndUpdate( $hash , 1);
return undef;
}
##################################################################################
sub N4HMODULE_paramToText($@) {
##################################################################################
my ($hash, $ddata) = @_;
my $name = $hash->{NAME};
my $rettype = "unbekannte Formel / Parameter";
my $w = hex(substr($ddata,6,2))*256+hex(substr($ddata,8,2));
my $ret = $w;
my $t;
# +++++++++++++++++++ Licht analog - IN_HW_NR_IS_LICHT_ANALOG
if (hex(substr($ddata,2,2)) == 5 ){
$rettype = "Brightness";
}
# +++++++++++++++++++ Uhrzeit - IN_HW_NR_IS_CLOCK
elsif (hex(substr($ddata,2,2)) == 6 ){
$rettype = "Uhrzeit";
}
# +++++++++++++++++++ RF-Tag Reader - IN_HW_NR_IS_RF_TAG_READER
elsif (hex(substr($ddata,2,2)) == 7 ){
$ret = uc substr($ddata,6,10);
if ( (hex(substr($ddata,18,2)) & 6) == 0) {
$ret = $ret." vorgehalten";
} elsif ( (hex(substr($ddata,18,2)) & 6) == 2) {
$ret = $ret." lang vorgehalten";
} elsif ( (hex(substr($ddata,18,2)) & 6) == 4) {
$ret = $ret." weggezogen nach kurz";
}
else { $ret = $ret." ".hex(substr($ddata,18,2)) }
$rettype = "RF-Tag";
}
# +++++++++++++++++++ Temperatur - IN_HW_NR_IS_TEMP
elsif (hex(substr($ddata,2,2)) == 9 ){
if (hex(substr($ddata,4,2)) == 5 ){ # USE_FROMEL_TEMP_UI16
if (hex(substr($ddata,6,2)) == 0xff ) {
$t = (hex(substr($ddata,8,2))-0xff)/16;
}
else {
$t = $w/16;
}
$ret = sprintf "%.1f °C", $t;
$rettype = "temperature";
}
}
# +++++++++++++++++++ Feuchte - IN_HW_NR_IS_HUMIDITY
elsif (hex(substr($ddata,2,2)) == 11 ){
$ret = $w." %";
$rettype = "humidity";
}
# +++++++++++++++++++ Wind - IN_HW_NR_IS_KMH
elsif (hex(substr($ddata,2,2)) == 41 ){
if (hex(substr($ddata,4,2)) == 6 ){ # USE_FROMEL_RAW_16BIT
$ret = $w." km/h";
}
elsif (hex(substr($ddata,4,2)) == 7 ){ # USE_FROMEL_16BIT_X8
$t = $w/8;
$ret = $t." km/h";
}
$rettype = "wind";
}
# +++++++++++++++++++ Luftdruck - IN_HW_NR_IS_PRESS_MBAR
elsif (hex(substr($ddata,2,2)) == 48 ){
$t = $w/10;
$ret = $t." hPas";
$rettype = "pressure";
}
# +++++++++++++++++++ pressure Tendenz - IN_HW_NR_IS_PRESS_TENDENZ
elsif (hex(substr($ddata,2,2)) == 49 ){
$rettype = "pressure (Tendenz)";
}
# +++++++++++++++++++ Uhrzeit - Sonnenaufgang heute
elsif (hex(substr($ddata,2,2)) == 50 ){
$rettype = "Sonnenaufgang";
}
# +++++++++++++++++++ Uhrzeit - Sonnenuntergang heute
elsif (hex(substr($ddata,2,2)) == 51 ){
$rettype = "Sonnenuntergang";
}
# +++++++++++++++++++ Regenmenge (Liter/Stunde) - VAL_IS_MENGE_LITER
elsif (hex(substr($ddata,2,2)) == 53 ){
if (hex(substr($ddata,4,2)) == 8 ){ # USE_FROMEL_16BIT_X10
$t = $w/10;
$ret = $t." l/h";
}
else {
$ret = $w." l/h";
}
$rettype = "rain";
}
return ($rettype, $ret);
}
##################################################################################
sub N4HMODULE_Set($@) {
##################################################################################
my ($hash, @a) = @_;
return "\"set $a[0]\" needs at least two parameters" if(@a < 2);
my $name = shift(@a);
my $cmd = shift(@a);
my $ext = shift(@a);
# Log3 $hash, 5, "N4HMODULE (set): (Name: $name) (CMD: $cmd) (ext: $ext)";
my $ot = $hash->{OT};
my $ipdst = $hash->{OBJADR};
my $ddata = "";
my @sets;
my $fieldcmd = "";
my $fieldname;
my $fieldset;
my $setfield;
my $devtype = $OT_devices{$ot};
if ($ot == 3 || $ot == 4 || $ot == 5 || $ot == 95 || $ot == 100) {
for my $field (@{$devtype->{fields}}) {
$setfield = $field->{set};
if (defined($setfield)) {
push(@sets,$field->{set});
$setfield = ( split /:/, $setfield, 2 )[0];
if ($setfield eq $cmd) {
$fieldname = $field->{text};
$fieldcmd = $field->{cmd};
$fieldset = $field->{set};
}
}
}
if ($fieldcmd ne "" && $cmd ne "?") {
if (defined($ext)) {
if ($cmd eq "pct") {
$fieldcmd = "$fieldcmd".sprintf ("%02x", ($ext))."00";
$ddata = sprintf ("%02x%s", ((length($fieldcmd))/2), $fieldcmd);
readingsSingleUpdate($hash, "pct", "$ext", 1);
Log3 $hash, 5, "N4HMODULE (set): $name to $cmd ($ext%) ($ddata)";
} else {
$ddata = sprintf ("%02x%s", (length($fieldcmd)/2), $fieldcmd);
Log3 $hash, 5, "N4HMODULE (set): $name to $cmd/$ext (".join(" ", @sets).") - $devtype - $fieldcmd - $ot)";
}
} else {
if ($cmd eq "toggle") {
$ddata = sprintf ("%02x%s", (length($fieldcmd)/2), $fieldcmd);
Log3 $hash, 5, "N4HMODULE (set): $name $cmd ($ddata)";
} else {
Log3 $hash, 5, "N4HMODULE (set): $name to $cmd (".join(" ", @sets).") - $devtype - $fieldcmd - $ot)";
$ddata = sprintf ("%02x%s", (length($fieldcmd)/2), $fieldcmd);
readingsSingleUpdate($hash, "state", "$cmd", 1);
}
}
IOWrite($hash, $ipdst, $ddata, 0);
return undef;
}
else {
return SetExtensions($hash, join(" ", @sets), $name, $cmd, @a);
}
} elsif ($ot == 34) {
for my $field (@{$devtype->{fields}}) {
$setfield = $field->{set};
if (defined($setfield)) {
push(@sets,$field->{set});
$setfield = ( split /:/, $setfield, 2 )[0];
if ($setfield eq $cmd) {
$fieldname = $field->{text};
$fieldcmd = $field->{cmd};
$fieldset = $field->{set};
}
}
}
if ($fieldcmd ne "" && $cmd ne "?") {
Log3 $hash, 5, "N4HMODULE (set): $name to $cmd (".join(" ", @sets).") - $devtype - $fieldcmd - $ot)";
if ($cmd eq "desired-temperature") {
$fieldcmd = "$fieldcmd".sprintf ("%02x", ($ext*10))."00";
$ddata = sprintf ("%02x%s", ((length($fieldcmd))/2), $fieldcmd);
readingsSingleUpdate($hash, "desired-temperature", "$ext", 1);
} else {
$ddata = sprintf ("%02x%s", ((length($fieldcmd))/2), $fieldcmd);
}
IOWrite($hash, $ipdst, $ddata, 0);
return undef;
}
else {
return SetExtensions($hash, join(" ", @sets), $name, $cmd, @a);
}
}
elsif ($ot == 24 || $ot == 25 || $ot == 26 || $ot == 240 || $ot == 242 || $ot == 245) {
if ($cmd ne "?") {
Log3 $hash, 5, "N4HMODULE (set): $name to $cmd";
N4HMODULE_Update($hash, $cmd);
}
return undef;
}
elsif ($ot == 999) {
if ($cmd ne "?") {
Log3 $hash, 5, "N4HMODULE (set n56): $name to $cmd";
N4HMODULE_Update($hash, $cmd);
}
return undef;
}
return undef;
}
##################################################################################
sub N4HMODULE_Get($$@) {
##################################################################################
my ( $hash, $name, $opt, @args ) = @_;
my $ot = $hash->{OT};
my $ipdst = $hash->{OBJADR};
my $ddata = "";
my $fieldcmd = "";
my $list = "";
my $list = "desired-temperature:noArg";
return "\"get $name\" needs at least one argument" unless(defined($opt));
if (( $ot == 3 ) or
( $ot == 5)) {
if ($opt eq "status") {
$fieldcmd = "360000";
$ddata = sprintf ("%02x%s", ((length($fieldcmd))/2), $fieldcmd);
Log3 $hash, 5, "N4HMODULE (get): $opt from $name ($ddata)";
IOWrite($hash, $ipdst, $ddata, 0);
} else {
return "unknown argument $opt, choose one of gettype:noArg status:noArg";
}
} elsif ( $ot == 34 ) {
if ($opt eq "desired-temperature") {
$fieldcmd = "360000";
$ddata = sprintf ("%02x%s", ((length($fieldcmd))/2), $fieldcmd);
Log3 $hash, 5, "N4HMODULE (get): $opt from $name ($ddata)";
IOWrite($hash, $ipdst, $ddata, 0);
} else {
return "unknown argument $opt, choose one of gettype:noArg desired-temperature:noArg";
}
} else {
return "unknown argument, choose one of gettype:noArg";
}
return undef;
}
##################################################################################
sub N4HMODULE_Update($@) {
##################################################################################
my ($hash, @a) = @_;
my $value = shift(@a);
my $name = $hash->{NAME};
return unless (defined($hash->{NAME}) );
if (defined $value) {
Log3 $hash, 5, "N4HMODULE (update): ($name) ($value)";
} else {
Log3 $hash, 5, "N4HMODULE (update): ($name)";
}
my $ot = $hash->{OT};
my $ipdst = $hash->{OBJADR};
my $ddata = "";
my $cs = "";
my $cmd = "";
if ($ot == 3) {
# +++++++ 69 D0_STATUS_INFO (105)
if ( (hex(substr($ddata,6,2))) == 0) {
readingsBulkUpdate($hash, "state", "off");
$hash->{STATE} = "off";
} elsif ( (hex(substr($ddata,6,2))) == 1) {
readingsBulkUpdate($hash, "state", "on");
$hash->{STATE} = "on";
}
} elsif ($ot == 24) {
# +++++++ 65 D0_VALUE_ACK (101)
# +++++++ 09 Temperatur
# +++++++ 05 USE_FROMEL_TEMP_UI16
my $ddata1 = "650905";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "temperature", "$cmd °C", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "temperature", "")); }
if (defined $cmd) {
if ($cmd >= 0) {
$cs = $cmd*16;
$ddata1 = $ddata1.sprintf ("%02X", ($cs>>8) );
}
elsif ($cmd < 0) {
$cs = 0xff+($cmd*16);
$ddata1 = $ddata1.sprintf ("%02X", 0xff );
}
$ddata1 = $ddata1.sprintf ("%02X", ( ($cs>>0) & 255 ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set temperature): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 25) { # Licht
# +++++++ 65 D0_VALUE_ACK
# +++++++ 05 Licht
# +++++++ 01 USE_FROMEL
my $ddata1 = "650506";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "Brightness", "$cmd", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "Brightness","")); }
if (defined $cmd) {
my $cs = $cmd;
$ddata1 = $ddata1.sprintf ("%02X", (0x00) );
$ddata1 = $ddata1.sprintf ("%02X", ( ($cs) ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set brightness): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 26) { # Luftfeuchte
# +++++++ 65 D0_VALUE_ACK
# +++++++ 0B Luftfeuchte
# +++++++ 01 USE_FROMEL
my $ddata1 = "650B01";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "humidity", "$cmd %", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "humidity","")); }
if (defined $cmd) {
my $cs = $cmd;
$ddata1 = $ddata1.sprintf ("%02X", (0x00) );
$ddata1 = $ddata1.sprintf ("%02X", ( ($cs) ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set humidity): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 34) { # TLH-Regler H,Sollwert,Temperatur
# +++++++ 37 D0_ACTOR_ACK (101)
Log3 $hash, 5, "N4HMODULE (xxx): $name to $cmd - $ddata, $ipdst";
my $ddata1 = "3700";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "desired-temp", "$cmd", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "desired-temp", "")); }
if (defined $cmd) {
if ($cmd >= 0) {
$cs = $cmd*16;
$ddata1 = $ddata1.sprintf ("%02X", ($cs>>8) );
}
elsif ($cmd < 0) {
$cs = 0xff+($cmd*16);
$ddata1 = $ddata1.sprintf ("%02X", 0xff );
}
$ddata1 = $ddata1.sprintf ("%02X", ( ($cs>>0) & 255 ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set desired-temp): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 240) { # Wind
# +++++++ 65 D0_VALUE_ACK
# +++++++ 29 Windgeschwindigkeit
# +++++++ 01 USE_FROMEL
my $ddata1 = "652907";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "wind", "$cmd km/h", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "wind","")); }
if (defined $cmd) {
my $cs = $cmd*8;
$ddata1 = $ddata1.sprintf ("%02X", ($cs>>8) );
$ddata1 = $ddata1.sprintf ("%02X", ( $cs & 0xff ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set wind): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 242) { # Luftdruck
# +++++++ 65 D0_VALUE_ACK
# +++++++ 30 Luftdruck
# +++++++ 01 USE_FROMEL
my $ddata1 = "653001";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "pressure", "$cmd hPas", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "pressure","")); }
if (defined $cmd) {
my $cs = $cmd*10;
$ddata1 = $ddata1.sprintf ("%02X", ($cs>>8) );
$ddata1 = $ddata1.sprintf ("%02X", ( $cs & 0xff ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set pressure): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 245) { # Regenmenge
# +++++++ 65 D0_VALUE_ACK
# +++++++ 35 Regenmenge
# +++++++ 01 USE_FROMEL
my $ddata1 = "653508";
if (defined $value) {
$cmd = $value;
readingsSingleUpdate($hash, "rain", "$cmd l/h", 1);
}
else {
($cmd, undef) = split(/ /, ReadingsVal($name , "rain","")); }
if (defined $cmd) {
my $cs = $cmd*10;
$ddata1 = $ddata1.sprintf ("%02X", ($cs>>8) );
$ddata1 = $ddata1.sprintf ("%02X", ( $cs & 0xff ) );
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
Log3 $hash, 5, "N4HMODULE (set rain): $name to $cmd - $ddata, $ddata1, $ipdst";
IOWrite($hash, 32767, $ddata, $ipdst);
}
return undef;
}
elsif ($ot == 999) { # N56
# +++++++ 65 D0_SENSOR_ACK (41)
my $ddata1 = "41";
if (defined $value) {
$cmd = $value;
# $cmd = N4HMODULE_ParseN56(substr($hash->{READINGS}{ddata},2,18));
readingsSingleUpdate($hash, "value", "$cmd", 1);
} else{
return undef;
}
my $n56 = N4HMODULE_CreateN56($value,0,0,0,2);
$ddata1 = $ddata1.$n56;
$ddata = sprintf ("%02x%s", (length($ddata1)/2), $ddata1);
$ipdst = 1;
Log3 $hash, 5, "N4HMODULE (set N56): $name to $cmd - $ddata, $ddata1, $ipdst, $n56";
IOWrite($hash, 1, $ddata, $ipdst);
return undef;
}
return undef;
}
##################################################################################
sub N4HMODULE_Attr(@) {
##################################################################################
my ($cmd,$name,$attr_name,$attr_value) = @_;
if($cmd eq "set") {
if($attr_name eq "Interval") {
if (($attr_value < 30) or ($attr_value > 86400)) {
my $err = "Invalid time $attr_value to $attr_name. Must be > 30 and < 86400.";
return $err;
}
}
}
return undef;
}
##################################################################################
sub N4HMODULE_CreateN56(@) {
##################################################################################
my ($val32,$exp8,$expb,$findex,$decimal) = @_;
my $ddata = "";
my $myformel = "";
# print "\n".$val32*($expb**$exp8)."\n";
my $unsigned = $val32 < 0 ? 2 ** 32 + $val32 : $val32;
my $myddata = sprintf("%08X", $unsigned);
my $ps = $exp8 < 0 ? 2 ** 8 + $exp8 : $exp8;
$myformel = sprintf("%04X",$findex);
$ddata = substr($myddata,6,2).substr($myddata,4,2).substr($myddata,2,2).substr($myddata,0,2).sprintf("%02X",$ps).substr($myformel,2,2).substr($myformel,0,2).sprintf("%02X",$decimal).sprintf("%02X",$expb);
return ($ddata);
}
##################################################################################
sub N4HMODULE_ParseN56($) {
##################################################################################
my ($n56) = @_;
my $exp8 = hex(substr($n56,8,2));
my $val32 = hex(substr($n56,6,2).substr($n56,4,2).substr($n56,2,2).substr($n56,0,2));
my $expb = hex(substr($n56,16,2));
my $formel = hex(substr($n56,10,2)).hex(substr($n56,12,2));;
my $deci = hex(substr($n56,14,2));
$exp8 = $exp8 >> 7 ? $exp8 - 2 ** 8 : $exp8;
$val32 = $val32 >> 31 ? $val32 - 2 ** 32 : $val32;
if ($expb eq 0) {
$expb = 10;
} elsif ($expb eq 1) {
$expb = 2;
}
my $ddata = sprintf("Wert: %.".$deci."f", ($val32*($expb**$exp8)))." (Formel: $formel)";
return ($ddata);
}
##################################################################################
##################################################################################
1;
=pod
=item device
=item summary Module to emulate net4home Actors and Sensors via N4HBUS
=item summary_DE Modul zum emulieren von net4home Aktoren und Sensoren ueber N4HBUS
=begin html
<a name="N4HMODULE"></a>
<h3>N4HMODULE</h3>
fhem-Module to communicate with net4home modules via IP
<br /><br />
<ul>
<br />
<a name="N4HMODULE_Define"></a>
<b>Define</b>
<ul>
<code>define &lt;name&gt; N4HMODULE &lt;device&gt; &lt;type&gt; &lt;objectaddress&gt;</code><br />
<br />
Defines a net4home device connected to a <a href="#N4HBUS">N4HBUS</a> device <br /><br />
Examples:
<ul>
<code>define n4h_28204 N4HMODULE n4h 24 28204</code><br />
</ul>
Currently the following values are supported:<br />
<b>Measurement</b><br />
<ul>
<li> 24 - Measurement,Temperature</li>
<li> 25 - Measurement,Brightness</li>
<li> 26 - Measurement,Humidity</li>
<li> 34 - TLH-Regler H,Sollwert,Temperatur</li>
<li> 95 - Ausgang, Jal, Motor AJ3</li>
<li>210 - RF Reader</li>
<li>240 - Measurement,Wind</li>
<li>242 - Measurement,Pressure</li>
<li>245 - Measurement,Rain</li>
</ul>
</ul><br />
<a name="N4HMODULE_Readings"></a>
<b>Readings</b>
<ul>
<li>The readings are dependent of the object of the net4home bus module.<br /></li>
</ul><br />
<a name="N4HMODULE_Attr"></a>
<b>Attributes</b>
<ul>
<li>interval<br>
the interval in seconds used to send values to bus.</li>
</ul>
</ul>
=end html
=begin html_DE
<a name="N4HMODULE"></a>
<h3>N4HMODULE</h3>
fhem-Modul zur Kommunikation mit dem net4home Bus über IP
<br /><br />
<ul>
<br />
<a name="N4HMODULE_Define"></a>
<b>Define</b>
<ul>
<code>define &lt;name&gt; N4HMODULE &lt;device&gt; &lt;type&gt; &lt;objectaddress&gt;</code><br />
<br />
Erstellt ein net4home Modul-Device welches mit dem <a href="#N4HBUS">N4HBUS</a> Device kommuniziert.
Beispiel:
<ul>
<code>define MyN4HMODULEice N4HMODULE 24 26004</code><br />
</ul>
Derzeit werden folgende Typen unterst&uuml;tzt:<br />
<b>Messwerte</b><br />
<ul>
<li> 24 - Messwert,Temperatur</li>
<li> 25 - Messwert,Helligkeit</li>
<li> 26 - Messwert,Feuchte</li>
<li> 34 - TLH-Regler H,Sollwert,Temperatur</li>
<li> 95 - Ausgang, Jal, Motor AJ3</li>
<li>210 - RF Reader</li>
<li>240 - Messwert,Wind</li>
<li>242 - Messwert,Luftdruck</li>
<li>245 - Messwert,Regenmenge</li>
</ul>
</ul><br />
<a name="N4HMODULE_Readings"></a>
<b>Readings</b>
<ul>
<li>Die Readings werden Abhängig vom Modultyp angegeben.<br /></li>
</ul><br />
<a name="N4HMODULE_Attr"></a>
<b>Attributes</b>
<ul>
<li>Interval<br>
Das Interval bestimmt bei Messwerten die Zeit zwischen dem Senden der Daten auf den Bus. Ist kein Attribut definiert, so wird der Standardwert genutzt.</li>
</ul>
</ul>
=end html_DE
=cut
Reference in New Issue View Git Blame Copy Permalink