mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
6ae1f76fc9
of the EQ-3 software (CCU or LAN "Konfigurationsadapter") git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1063 2b470e98-0d58-463d-a4d8-8e2adae1ed80
106 lines
2.3 KiB
Perl
106 lines
2.3 KiB
Perl
##############################################
|
|
# HMRPC Device Handler
|
|
# Written by Oliver Wagner <owagner@vapor.com>
|
|
#
|
|
# V0.2
|
|
#
|
|
##############################################
|
|
#
|
|
# This module handles individual devices via the
|
|
# HMRPC provider.
|
|
#
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub
|
|
HMDEV_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{Match} = "^HMDEV .* .* .*";
|
|
$hash->{DefFn} = "HMDEV_Define";
|
|
$hash->{ParseFn} = "HMDEV_Parse";
|
|
$hash->{SetFn} = "HMDEV_Set";
|
|
$hash->{AttrList} = "IODev do_not_notify:0,1";
|
|
}
|
|
|
|
#############################
|
|
sub
|
|
HMDEV_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
my $name = $hash->{NAME};
|
|
|
|
return "wrong syntax: define <name> HMDEV deviceaddress" if int(@a)!=3;
|
|
|
|
my $addr=uc($a[2]);
|
|
|
|
$hash->{hmaddr}=$addr;
|
|
$modules{HMDEV}{defptr}{$addr} = $hash;
|
|
AssignIoPort($hash);
|
|
|
|
Log 5,"Assigned $name to $hash->{IODev}->{NAME}";
|
|
|
|
return undef;
|
|
}
|
|
|
|
|
|
|
|
#############################
|
|
sub
|
|
HMDEV_Parse($$)
|
|
{
|
|
my ($hash, $msg) = @_;
|
|
|
|
my @mp=split(" ",$msg);
|
|
my $addr=$mp[1];
|
|
|
|
$hash=$modules{HMDEV}{defptr}{$addr};
|
|
if(!$hash)
|
|
{
|
|
Log(2,"Received callback for unknown device $msg");
|
|
return "UNDEFINED HMDEV_$addr HMDEV $addr";
|
|
}
|
|
|
|
#
|
|
# Ok update the relevant reading
|
|
#
|
|
my @changed;
|
|
my $currentval=$hash->{READINGS}{$mp[2]}{VAL};
|
|
$hash->{READINGS}{$mp[2]}{TIME}=TimeNow();
|
|
# Note that we always trigger a change on PRESS_LONG/PRESS_SHORT events
|
|
# (they are sent whenever a button is presed, and there is no change back)
|
|
if(!$currentval || ($currentval ne $mp[3]) || ($currentval =~ m/^PRESS_/))
|
|
{
|
|
push @changed, "$mp[2]: $mp[3]";
|
|
$hash->{READINGS}{$mp[2]}{VAL}=$mp[3];
|
|
}
|
|
$hash->{CHANGED}=\@changed;
|
|
|
|
return $hash->{NAME};
|
|
}
|
|
|
|
################################
|
|
sub
|
|
HMDEV_Set($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
|
|
return "invalid set call @a" if(@a != 3 && @a != 4);
|
|
# We delegate this call to the IODev, after having added the device address
|
|
if(@a==4)
|
|
{
|
|
return HMRPC_Set($hash->{IODev},$hash->{IODev}->{NAME},$hash->{hmaddr},$a[1],$a[2],$a[3]);
|
|
}
|
|
else
|
|
{
|
|
return HMRPC_Set($hash->{IODev},$hash->{IODev}->{NAME},$hash->{hmaddr},$a[1],$a[2]);
|
|
}
|
|
}
|
|
|
|
|
|
1;
|