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

FHT8V: making it compatible with FHEM2FHEM

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3575 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-08-02 06:10:33 +00:00
parent c0bd57cdaa
commit e67873747d
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/11_FHT8V.pm
View File

@ -25,20 +25,27 @@ FHT8V_Define($$)
my @a = split("[ \t][ \t]*", $def);
my $n = $a[0];
return "wrong syntax: define <name> FHT8V housecode [IODev]" if(@a < 3);
return "wrong syntax: define <name> FHT8V housecode [IODev|FHTID]" if(@a < 3);
return "wrong housecode format: specify a 4 digit hex value "
if(($a[2] !~ m/^[a-f0-9]{4}$/i));
if(@a > 3) {
my $fhtid;
if(@a > 3 && $defs{$a[3]}) {
$hash->{IODev} = $defs{$a[3]};
} else {
AssignIoPort($hash);
$fhtid = $a[3] if($a[3]);
}
return "$n: No IODev found" if(!$hash->{IODev});
return "$n: Wrong IODev, has no FHTID" if(!$hash->{IODev}->{FHTID});
$fhtid = $hash->{IODev}->{FHTID} if(!$fhtid);
return "$n: Wrong IODev $hash->{IODev}{NAME}, has no FHTID" if(!$fhtid);
#####################
# Check if the address corresponds to the CUL
my $ioaddr = hex($hash->{IODev}->{FHTID});
my $ioaddr = hex($fhtid);
my $myaddr = hex($a[2]);
my ($io1, $io0) = (int($ioaddr/255), $ioaddr % 256);
my ($my1, $my0) = (int($myaddr/255), $myaddr % 256);