mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 12:49:34 +00:00
0e42aec5e8
- bei Boolean-Werten wurde bei false bei jedem event-Empfang
faelschlicherweise eine Notification ausgeloest
git-svn-id: https://svn.fhem.de/fhem/trunk@1064 2b470e98-0d58-463d-a4d8-8e2adae1ed80
116 lines
2.6 KiB
Perl
116 lines
2.6 KiB
Perl
##############################################
|
|
# HMRPC Device Handler
|
|
# Written by Oliver Wagner <owagner@vapor.com>
|
|
#
|
|
# V0.3
|
|
#
|
|
##############################################
|
|
#
|
|
# 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->{GetFn} = "HMDEV_Get";
|
|
$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(!defined $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 HMRPC 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]);
|
|
}
|
|
}
|
|
|
|
################################
|
|
sub
|
|
HMDEV_Get($@)
|
|
{
|
|
my ($hash, @a) = @_;
|
|
return "argument missing, usage is <attribute> @a" if(@a!=2);
|
|
# Like set, we simply delegate to the HMPRC IODev here
|
|
return HMRPC_Get($hash->{IODev},$hash->{IODev}->{NAME},$hash->{hmaddr},$a[1]);
|
|
}
|
|
|
|
1;
|