Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

MAXLAN: implement new Send() interface

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2291 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgehre 2012-12-09 14:59:45 +00:00
parent 1822f91683
commit c39bd123c5
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/00_MAXLAN.pm
View File

@ -18,6 +18,7 @@ sub MAXLAN_Write(@);
sub MAXLAN_ReadSingleResponse($$); sub MAXLAN_ReadSingleResponse($$);
sub MAXLAN_SimpleWrite(@); sub MAXLAN_SimpleWrite(@);
sub MAXLAN_Poll($); sub MAXLAN_Poll($);
sub MAXLAN_Send(@);
sub MAXLAN_SendDeviceCmd($$); sub MAXLAN_SendDeviceCmd($$);
sub MAXLAN_RequestConfiguration($$); sub MAXLAN_RequestConfiguration($$);
sub MAXLAN_RemoveDevice($$); sub MAXLAN_RemoveDevice($$);
@ -102,6 +103,7 @@ MAXLAN_Define($$)
$hash->{DeviceName} = $dev; $hash->{DeviceName} = $dev;
#This interface is shared with 14_CUL_MAX.pm #This interface is shared with 14_CUL_MAX.pm
$hash->{SendDeviceCmd} = \&MAXLAN_SendDeviceCmd; $hash->{SendDeviceCmd} = \&MAXLAN_SendDeviceCmd;
$hash->{Send} = \&MAXLAN_Send;
$hash->{RemoveDevice} = \&MAXLAN_RemoveDevice; $hash->{RemoveDevice} = \&MAXLAN_RemoveDevice;
#Wait until all device definitions have been loaded #Wait until all device definitions have been loaded
@ -648,6 +650,20 @@ MAXLAN_RequestConfiguration($$)
return MAXLAN_Write($hash,"c:$addr", "C:"); return MAXLAN_Write($hash,"c:$addr", "C:");
} }
sub
MAXLAN_Send(@)
{
my ($hash, $cmd, $dst, $payload, $flags, $groupId, $msgcnt) = @_;
$flags = "0"x8 if(!$flags);
$groupId = "00" if(!defined($groupId));
if(defined($msgcnt)) {
Log 2, "MAXLAN_Send: MAXLAN does not support msgcnt";
}
return MAXLAN_SendDeviceCmd($hash, pack("H2B8H*","00",$flags,$msgCmd2Id{$cmd}."000000".$dst.$groupId.$payload));
}
#Sends command to a device and waits for acknowledgment #Sends command to a device and waits for acknowledgment
sub sub
MAXLAN_SendDeviceCmd($$) MAXLAN_SendDeviceCmd($$)