FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-06 12:46:57 +00:00
Code Issues Releases Wiki Activity

10_EnOcean: EnOcean_define() extensions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9236 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klaus-schauer 2015-09-12 13:57:29 +00:00
parent 14b51fa3a4
commit 95942bca0a
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fhem/FHEM/10_EnOcean.pm
View File

@ -1,5 +1,6 @@
############################################## ##############################################
# $Id$ # $Id$
# 2015-09-12
# EnOcean Security in Perl, teach-in, VAES, MAC and message handling # EnOcean Security in Perl, teach-in, VAES, MAC and message handling
# Copyright: Jan Schneider (timberwolf at tec-observer dot de) # Copyright: Jan Schneider (timberwolf at tec-observer dot de)
@ -516,6 +517,7 @@ EnOcean_Define($$)
$modules{EnOcean}{defptr}{$def} = $hash; $modules{EnOcean}{defptr}{$def} = $hash;
$attr{$name}{manufID} = "7FF"; $attr{$name}{manufID} = "7FF";
$attr{$name}{room} = "EnOcean"; $attr{$name}{room} = "EnOcean";
$attr{$name}{subType} = "raw";
} elsif ($a[2] =~ m/^[A-Fa-f0-9]{8}$/i) { } elsif ($a[2] =~ m/^[A-Fa-f0-9]{8}$/i) {
$def = uc($a[2]); $def = uc($a[2]);
$hash->{DEF} = $def; $hash->{DEF} = $def;
@ -523,6 +525,24 @@ EnOcean_Define($$)
AssignIoPort($hash); AssignIoPort($hash);
$attr{$name}{manufID} = "7FF"; $attr{$name}{manufID} = "7FF";
$attr{$name}{room} = "EnOcean"; $attr{$name}{room} = "EnOcean";
if (defined($a[3]) && $a[3] =~ m/^([A-Fa-f0-9]{2})-([A-Fa-f0-9]{2})-([A-Fa-f0-9]{2})$/i) {
my ($rorg, $func, $type) = (uc($1), uc($2), uc($3));
$rorg = "F6" if ($rorg eq "05");
$rorg = "D5" if ($rorg eq "06");
$rorg = "A5" if ($rorg eq "07");
my $eep = "$rorg.$func.$type";
if (exists $EnO_eepConfig{$eep}) {
foreach my $attrCntr (keys %{$EnO_eepConfig{$eep}{attr}}) {
if ($attrCntr ne "subDef") {
$attr{$name}{$attrCntr} = $EnO_eepConfig{$eep}{attr}{$attrCntr};
}
}
$attr{$name}{eep} = "$rorg-$func-$type";
return undef;
} else {
return "EEP $rorg-$func-$type not supported";
}
}
} elsif ($a[2] =~ m/^([A-Fa-f0-9]{2})-([A-Fa-f0-9]{2})-([A-Fa-f0-9]{2})$/i) { } elsif ($a[2] =~ m/^([A-Fa-f0-9]{2})-([A-Fa-f0-9]{2})-([A-Fa-f0-9]{2})$/i) {
AssignIoPort($hash); AssignIoPort($hash);
$defs{$name}{DEF} = $def; $defs{$name}{DEF} = $def;
@ -11155,6 +11175,10 @@ EnOcean_Undef($$)
<code>define switch1 EnOcean getNextID</code><br> <code>define switch1 EnOcean getNextID</code><br>
</ul><br> </ul><br>
If the EEP is known, the appropriate device can be created with the basic parameters, for example If the EEP is known, the appropriate device can be created with the basic parameters, for example
<ul><br>
<code>define sensor1 EnOcean FFC54500 A5-02-05</code><br>
</ul><br>
or
<ul><br> <ul><br>
<code>define sensor1 EnOcean A5-02-05</code><br> <code>define sensor1 EnOcean A5-02-05</code><br>
</ul><br> </ul><br>