mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-01 20:20:10 +00:00
73bf3b6b30
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1062 2b470e98-0d58-463d-a4d8-8e2adae1ed80
320 lines
8.7 KiB
Perl
Executable File
320 lines
8.7 KiB
Perl
Executable File
##############################################
|
|
# CUL HomeMatic handler
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub EnOcean_Define($$);
|
|
sub EnOcean_Initialize($);
|
|
sub EnOcean_Parse($$);
|
|
sub EnOcean_Set($@);
|
|
|
|
# TODO
|
|
# Send120
|
|
# Send310
|
|
# Test windowHandle
|
|
|
|
sub
|
|
EnOcean_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{Match} = "^EnOcean:";
|
|
$hash->{DefFn} = "EnOcean_Define";
|
|
$hash->{ParseFn} = "EnOcean_Parse";
|
|
$hash->{SetFn} = "EnOcean_Set";
|
|
$hash->{AttrList} = "IODev do_not_notify:1,0 ignore:0,1 " .
|
|
"showtime:1,0 loglevel:0,1,2,3,4,5,6 model " .
|
|
"subType:switch,contact,sensor,windowHandle,SR04,MD15";
|
|
}
|
|
|
|
my %rorgname = ("F6"=>"switch", # RPS
|
|
"D5"=>"contact", # 1BS
|
|
"A5"=>"sensor", # 4BS
|
|
);
|
|
my @ptm200btn = ("AI", "A0", "BI", "B0", "CI", "C0", "DI", "D0");
|
|
my %ptm200btn;
|
|
my %manuf = (
|
|
"001" => "Peha",
|
|
"002" => "Thermokon",
|
|
"003" => "Servodan",
|
|
"004" => "EchoFlex Solutions",
|
|
"005" => "Omnio AG",
|
|
"006" => "Hardmeier electronics",
|
|
"007" => "Regulvar Inc",
|
|
"008" => "Ad Hoc Electronics",
|
|
"009" => "Distech Controls",
|
|
"00A" => "Kieback + Peter",
|
|
"00B" => "EnOcean GmbH",
|
|
"00C" => "Probare",
|
|
"00D" => "Eltako",
|
|
"00E" => "Leviton",
|
|
"00F" => "Honeywell",
|
|
"010" => "Spartan Peripheral Devices",
|
|
"011" => "Siemens",
|
|
"012" => "T-Mac",
|
|
"013" => "Reliable Controls Corporation",
|
|
"014" => "Elsner Elektronik GmbH",
|
|
"015" => "Diehl Controls",
|
|
"016" => "BSC Computer",
|
|
"017" => "S+S Regeltechnik GmbH",
|
|
"018" => "Masco Corporation",
|
|
"019" => "Intesis Software SL",
|
|
"01A" => "Res.",
|
|
"01B" => "Lutuo Technology",
|
|
"01C" => "CAN2GO",
|
|
);
|
|
|
|
my %subTypes = (
|
|
"A5.20.01" => "MD15",
|
|
);
|
|
|
|
#############################
|
|
sub
|
|
EnOcean_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
my $name = $hash->{NAME};
|
|
|
|
return "wrong syntax: define <name> EnOcean 8-digit-hex-code"
|
|
if(int(@a)!=3 || $a[2] !~ m/^[A-F0-9]{8}$/i);
|
|
|
|
$modules{EnOcean}{defptr}{uc($a[2])} = $hash;
|
|
AssignIoPort($hash);
|
|
# Help FHEMWEB split up devices
|
|
$attr{$name}{subType} = $1 if($name =~ m/EnO_(.*)_$a[2]/);
|
|
|
|
for(my $i=0; $i<@ptm200btn;$i++) {
|
|
$ptm200btn{$ptm200btn[$i]} = "$i:30";
|
|
}
|
|
$ptm200btn{released} = "0:20";
|
|
return undef;
|
|
}
|
|
|
|
|
|
#############################
|
|
sub
|
|
EnOcean_Set($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
return "no set value specified" if(@a < 2);
|
|
|
|
my $name = $hash->{NAME};
|
|
my $st = AttrVal($name, "subType", "");
|
|
my $ll2 = GetLogLevel($name, 2);
|
|
|
|
shift @a;
|
|
for(my $i = 0; $i < @a; $i++) {
|
|
my $cmd = $a[$i];
|
|
|
|
if($st eq "MD15") {
|
|
|
|
} else { # Simulate a PTM
|
|
my ($c1,$c2) = split(",", $cmd, 2);
|
|
return "Unknown argument $cmd, choose one of " .
|
|
join(" ", sort keys %ptm200btn)
|
|
if(!defined($ptm200btn{$c1}) || ($c2 && !defined($ptm200btn{$c2})));
|
|
Log $ll2, "EnOcean: set $name $cmd";
|
|
|
|
my ($db_3, $status) = split(":", $ptm200btn{$c1}, 2);
|
|
$db_3 <<= 5;
|
|
$db_3 |= 0x10 if($c1 ne "released"); # set the pressed flag
|
|
if($c2) {
|
|
my ($d2, undef) = split(":", $ptm200btn{$c2}, 2);
|
|
$db_3 |= ($d2<<1) | 0x01;
|
|
}
|
|
IOWrite($hash, "",
|
|
sprintf("6B05%02X000000%s%s", $db_3, $hash->{DEF}, $status));
|
|
|
|
}
|
|
|
|
|
|
select(undef, undef, undef, 0.1) if($i < int(@a)-1);
|
|
}
|
|
|
|
my $tn = TimeNow();
|
|
my $cmd = join(" ", @a);
|
|
$hash->{CHANGED}[0] = $cmd;
|
|
$hash->{STATE} = $cmd;
|
|
$hash->{READINGS}{state}{TIME} = $tn;
|
|
$hash->{READINGS}{state}{VAL} = $cmd;
|
|
return undef;
|
|
}
|
|
|
|
#############################
|
|
sub
|
|
EnOcean_Parse($$)
|
|
{
|
|
my ($iohash, $msg) = @_;
|
|
my (undef,$rorg,$data,$id,$status,$odata) = split(":", $msg);
|
|
|
|
my $rorgname = $rorgname{$rorg};
|
|
if(!$rorgname) {
|
|
Log 2, "Unknown EnOcean RORG ($rorg) received from $id";
|
|
return "";
|
|
}
|
|
|
|
my $hash = $modules{EnOcean}{defptr}{$id};
|
|
if(!$hash) {
|
|
Log 3, "EnOcean Unknown device with ID $id, please define it";
|
|
return "UNDEFINED EnO_${rorgname}_$id EnOcean $id";
|
|
}
|
|
|
|
my $name = $hash->{NAME};
|
|
my $ll4 = GetLogLevel($name, 4);
|
|
Log $ll4, "$name: ORG:$rorg DATA:$data ID:$id STATUS:$status";
|
|
|
|
my @event;
|
|
#push @event, "1:rp_counter:".(hex($status)&0xf);
|
|
|
|
my $dl = length($data);
|
|
my $db_3 = hex substr($data,0,2);
|
|
my $db_2 = hex substr($data,2,2) if($dl > 2);
|
|
my $db_1 = hex substr($data,4,2) if($dl > 4);
|
|
my $db_0 = hex substr($data,6,2) if($dl > 6);
|
|
my $st = AttrVal($name, "subType", "");
|
|
|
|
#################################
|
|
# RPS: PTM200 based switch/remote or a windowHandle
|
|
if($rorg eq "F6") {
|
|
my $nu = ((hex($status)&0x10)>>4);
|
|
|
|
#push @event, "1:T21:".((hex($status)&0x20)>>5);
|
|
#push @event, "1:NU:$nu";
|
|
|
|
if($nu) {
|
|
|
|
# Theoretically there can be a released event with some of the A0,BI
|
|
# pins set, but with the plastic cover on this wont happen.
|
|
$msg = $ptm200btn[($db_3&0xe0)>>5];
|
|
$msg .= ",".$ptm200btn[($db_3&0x0e)>>1] if($db_3 & 1);
|
|
$msg .= " released" if(!($db_3 & 0x10));
|
|
|
|
} else {
|
|
|
|
# Couldnt test
|
|
if($db_3 == 112) { # KeyCard
|
|
$msg = "keycard inserted";
|
|
|
|
# Only the windowHandle is setting these bits when nu=0
|
|
} elsif($db_3 & 0xC0) {
|
|
$msg = "closed" if($db_3 == 0xF0);
|
|
$msg = "open" if($db_3 == 0xE0);
|
|
$msg = "tilted" if($db_3 == 0xD0);
|
|
$msg = "open from tilted" if($db_3 == 0xC0);
|
|
|
|
} else {
|
|
if($st eq "keycard") {
|
|
$msg = "keycard removed";
|
|
|
|
} else {
|
|
$msg = "buttons ". (($db_3&0x10) ? "pressed" : "released");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
push @event, "3:state:$msg";
|
|
|
|
#################################
|
|
# 1BS. Only contact is defined in the EEP2.1 for 1BS
|
|
} elsif($rorg eq "D5") {
|
|
push @event, "3:state:" . ($db_3&1 ? "closed" : "open");
|
|
push @event, "3:learnBtn:on" if(!($db_3&0x8));
|
|
|
|
#################################
|
|
} elsif($rorg eq "A5") {
|
|
|
|
if(($db_0 & 0x08) == 0) {
|
|
if($db_0 & 0x80) {
|
|
my $fn = sprintf "%02x", ($db_3>>2);
|
|
my $tp = sprintf "%02X", ((($db_3&3) << 5) | ($db_2 >> 3));
|
|
my $mf = sprintf "%03X", ((($db_2&7) << 8) | $db_1);
|
|
$mf = $manuf{$mf} if($manuf{$mf});
|
|
my $m = "teach-in:class A5.$fn.$tp (manufacturer: $mf)";
|
|
Log 1, $m;
|
|
push @event, "3:$m";
|
|
my $st = "A5.$fn.$tp";
|
|
$st = $subTypes{$st} if($subTypes{$st});
|
|
$attr{$name}{subType} = $st;
|
|
|
|
} else {
|
|
push @event, "3:teach-in:no type/manuf. data transmitted";
|
|
|
|
}
|
|
|
|
} elsif($st eq "SR04") {
|
|
my ($fspeed, $temp, $present);
|
|
$fspeed = 3;
|
|
$fspeed = 2 if($db_3 >= 145);
|
|
$fspeed = 1 if($db_3 >= 165);
|
|
$fspeed = 0 if($db_3 >= 190);
|
|
$fspeed = "Auto" if($db_3 >= 210);
|
|
$temp = sprintf("%0.1f", $db_1/6.375); # 40..0
|
|
$present= $db_0&0x1 ? "no" : "yes";
|
|
|
|
push @event, "3:state:temperature $temp";
|
|
push @event, "3:set_point:$db_3";
|
|
push @event, "3:fan:$fspeed";
|
|
push @event, "3:present:$present" if($present eq "yes");
|
|
push @event, "3:learnBtn:on" if(!($db_0&0x8));
|
|
push @event, "3:T:$temp SP: $db_3 F: $fspeed P: $present";
|
|
|
|
} elsif($st eq "MD15") {
|
|
push @event, "3:state:$db_3 %";
|
|
push @event, "3:currentValue:$db_3";
|
|
push @event, "3:serviceOn:" . (($db_2 & 0x80) ? "yes" : "no");
|
|
push @event, "3:energyInput:" . (($db_2 & 0x40) ? "enabled":"disabled");
|
|
push @event, "3:energyStorage:". (($db_2 & 0x20) ? "charged":"empty");
|
|
push @event, "3:battery:" . (($db_2 & 0x10) ? "ok" : "empty");
|
|
push @event, "3:cover:" . (($db_2 & 0x08) ? "open" : "closed");
|
|
push @event, "3:tempSensor:" . (($db_2 & 0x04) ? "failed" : "ok");
|
|
push @event, "3:window:" . (($db_2 & 0x02) ? "open" : "closed");
|
|
push @event, "3:actuator:" . (($db_2 & 0x01) ? "ok" : "obstructed");
|
|
push @event, "3:temperature:" . sprintf "%.1f", ($db_1*40/255);
|
|
|
|
} else {
|
|
push @event, "3:state:$db_3";
|
|
push @event, "3:sensor1:$db_3";
|
|
push @event, "3:sensor2:$db_2";
|
|
push @event, "3:sensor3:$db_1";
|
|
push @event, "3:D3:".(($db_0&0x8)?1:0);
|
|
push @event, "3:D2:".(($db_0&0x4)?1:0);
|
|
push @event, "3:D1:".(($db_0&0x2)?1:0);
|
|
push @event, "3:D0:".(($db_0&0x1)?1:0);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
my $tn = TimeNow();
|
|
my @changed;
|
|
for(my $i = 0; $i < int(@event); $i++) {
|
|
my ($flag, $vn, $vv) = split(":", $event[$i], 3);
|
|
|
|
if($flag & 2) {
|
|
if($vn eq "state") {
|
|
$hash->{STATE} = $vv;
|
|
push @changed, $vv;
|
|
|
|
} else {
|
|
push @changed, "$vn: $vv";
|
|
|
|
}
|
|
}
|
|
|
|
if($flag & 1) {
|
|
$hash->{READINGS}{$vn}{TIME} = TimeNow();
|
|
$hash->{READINGS}{$vn}{VAL} = $vv;
|
|
}
|
|
}
|
|
$hash->{CHANGED} = \@changed;
|
|
|
|
return $name;
|
|
}
|
|
|
|
1;
|