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

26_tahoma.pm:2016-04-25 V 0205 commands taken from setup

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11683 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mike3436 2016-06-17 21:55:41 +00:00
parent f529526d35
commit f493e4a64d
1 changed files with 40 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
fhem/FHEM/26_tahoma.pm
View File

@ -33,6 +33,7 @@
# 2016-01-26 V 0202 bugs forcing some startup warning messages fixed
# 2016-02-20 V 0203 perl exception while parsing json string captured
# 2016-02-27 V 0204 commands open,close,my,stop and setClosure added
# 2016-04-25 V 0205 commands taken from setup
package main;
@ -83,7 +84,7 @@ sub tahoma_Define($$)
my @a = split("[ \t][ \t]*", $def);
my $ModuleVersion = "0201";
my $ModuleVersion = "0205";
my $subtype;
my $name = $a[0];
@ -694,6 +695,35 @@ sub tahoma_autocreate($)
print "tahoma_autocreate end, new=$autocreated\n";
}
sub tahoma_defineCommands($)
{
my($hash) = @_;
my $name = $hash->{NAME};
Log3 $name, 4, "$name: tahoma_defineCommands";
my $devices = $hash->{helper}{devices};
foreach my $device (@{$devices}) {
my ($id, $fid, $devname, $define);
if ($device->{deviceURL}) {
$id = $device->{deviceURL};
$fid = (split("/",$id))[-1];
$devname = "tahoma_". $fid;
$define = "$devname tahoma DEVICE $id";
if( defined $device->{definition}{commands}[0]{commandName} ) {
my $commandlist = "dim:slider,0,1,100";
foreach my $command (@{$device->{definition}{commands}}) {
$commandlist .= " " . $command->{commandName};
$commandlist .= ":noArg" if ($command->{nparams} == 0);
}
if( defined($modules{$hash->{TYPE}}{defptr}{"$fid"}) ) {
$modules{$hash->{TYPE}}{defptr}{"$fid"}{COMMANDS} = $commandlist;
Log3 $name, 4, "$name: tahoma_defineCommands fid=$fid commandlist=$commandlist";
}
}
}
}
}
sub tahoma_parseLogin($$)
{
my($hash, $json) = @_;
@ -785,6 +815,7 @@ sub tahoma_parseGetSetup($$)
}
tahoma_autocreate($hash);
tahoma_defineCommands($hash);
}
sub tahoma_parseGetSetupPlaces($$)
@ -823,6 +854,7 @@ sub tahoma_parseGetActionGroups($$)
push( @{$devices}, $action );
}
tahoma_autocreate($hash);
tahoma_defineCommands($hash);
}
sub tahoma_parseRefreshAllStates($$)
@ -934,10 +966,14 @@ sub tahoma_Set($$@)
$cmd = "setClosure" if( $cmd eq "dim" );
if( $cmd eq "setClosure" || $cmd eq "open" || $cmd eq "close" || $cmd eq "my" || $cmd eq "stop" )
my @commands = split(" ",$list);
foreach my $command (@commands)
{
tahoma_applyRequest($hash,1,$cmd,$val);
return undef;
if( $cmd eq (split(":",$command))[0])
{
tahoma_applyRequest($hash,1,$cmd,$val);
return undef;
}
}
}