mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fht interface syntax changed with culfw 1.27

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@423 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2009-08-12 08:01:22 +00:00
parent 199a0e1de4
commit 8accc9e19e
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/FHEM/00_CUL.pm
View File

@@ -595,18 +595,16 @@ CUL_Write($$$)
################### ###################
# Rewrite message from FHZ -> CUL # Rewrite message from FHZ -> CUL
if(length($fn) <= 1) { # CUL Native if(length($fn) <= 1) { # CUL Native
;
} elsif($fn eq "04" && substr($msg,0,6) eq "010101") { # FS20 } elsif($fn eq "04" && substr($msg,0,6) eq "010101") { # FS20
$fn = "F"; $fn = "F";
$msg = substr($msg,6); $msg = substr($msg,6);
} elsif($fn eq "04" && substr($msg,0,6) eq "020183") { # FHT
my $moff = 10; } elsif($fn eq "04" && substr($msg,0,6) eq "020183") { # FHT
while(length($msg) > $moff) { $fn = "T";
my $snd = substr($msg,6,4) . $msg = substr($msg,6,4) . substr($msg,10);
substr($msg,$moff,2) . "79" . substr($msg,$moff+2,2); CUL_SimpleWrite($hash, $fn . $msg);
CUL_SimpleWrite($hash, "T$snd");
$moff += 4;
}
return; return;
} else { } else {