FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-24 02:59:22 +00:00
Code Issues Releases Wiki Activity

Added undocumented listen call

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2842 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-03-02 16:57:40 +00:00
parent 125f0ce481
commit 516c04fbda
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/00_FBAHA.pm
View File

@ -36,8 +36,6 @@ FBAHA_Initialize($)
$hash->{AttrList}= "dummy:1,0 loglevel:0,1,2,3,4,5,6 "; $hash->{AttrList}= "dummy:1,0 loglevel:0,1,2,3,4,5,6 ";
} }
my %gets = ("devList"=>1);
my %sets = ("createDevs"=>1);
##################################### #####################################
sub sub
@ -71,6 +69,7 @@ FBAHA_Set($@)
{ {
my ($hash, @a) = @_; my ($hash, @a) = @_;
my $name = shift @a; my $name = shift @a;
my %sets = ("createDevs"=>1, "listen"=>1 );
return "set $name needs at least one parameter" if(@a < 1); return "set $name needs at least one parameter" if(@a < 1);
my $type = shift @a; my $type = shift @a;
@ -87,6 +86,9 @@ FBAHA_Set($@)
} }
} }
} }
if($type eq "listen") {
FBAHA_Write($hash, "03", "0000028200000000"); # LISTEN
}
return undef; return undef;
} }
@ -97,6 +99,7 @@ FBAHA_Get($@)
{ {
my ($hash, @a) = @_; my ($hash, @a) = @_;
my $name = shift @a; my $name = shift @a;
my %gets = ("devList"=>1);
return "get $name needs at least one parameter" if(@a < 1); return "get $name needs at least one parameter" if(@a < 1);
my $type = shift @a; my $type = shift @a;