FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-11-22 09:49:50 +00:00
Code Issues Releases Wiki Activity

http://forum.fhem.de/index.php/topic,34131.0.html

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8230 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wzut 2015-03-17 17:46:11 +00:00
parent 6508effcce
commit 66ade46a8b
2 changed files with 120 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
fhem/contrib/Infratec/.gitkeep
View File

120
fhem/contrib/Infratec/98_InfratecOut.pm Normal file
View File

@ -0,0 +1,120 @@
################################################################
#
# $Id:$
#
# (c) 2015 Copyright: Wzut
# forum : http://forum.fhem.de/index.php/topic,34131.0.html
# All rights reserved
#
# This code is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# The GNU General Public License can be found at
# http://www.gnu.org/copyleft/gpl.html.
# A copy is found in the textfile GPL.txt and important notices to the license
# from the author is found in LICENSE.txt distributed with these scripts.
# This script is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
################################################################
# Changelog:
package main;
use strict;
use warnings;
use SetExtensions;
sub InfratecOut_Initialize($)
{
my ($hash) = @_;
$hash->{SetFn} = "InfratecOut_Set";
$hash->{DefFn} = "InfratecOut_Define";
$hash->{UndefFn} = "InfratecOut_Undef";
$hash->{AttrList} = $readingFnAttributes;
}
###################################
sub InfratecOut_Define($$)
{
my ($hash, $def) = @_;
my $name = $hash->{NAME};
my @a = split("[ \t][ \t]*", $def);
return "wrong syntax: use define $name InfratecOut <Device> <Out#>" if(int(@a) < 4);
my $parent = $a[2];
my $socket = $a[3];
$hash->{IODEV} = $parent;
$hash->{SOCKETNR} = $socket;
$modules{InfratecOut}{defptr}{$parent.$socket} = $hash;
if (defined($attr{$parent}{room})) { $attr{$name}{room} = $attr{$parent}{room}; }
my $currentstate = ReadingsVal($parent, $name, "defined");
$hash->{STATE} = $currentstate ;
return undef;
}
###################################
sub InfratecOut_Undef($$)
{
my ($hash, undef) = @_;
my $parent = $hash->{IODEV};
my $socket = $hash->{SOCKETNR};
delete $modules{InfratecOut}{defptr}{$parent.$socket} ;
return undef;
}
###################################
sub InfratecOut_Set($@)
{
my ($hash, $name , @a) = @_;
my $cmd = $a[0];
my $cmdList = "off:noArg on:noArg toggle:noArg";
return "$name, no set value specified" if(int(@a) < 1);
return "$name, I/O device not found please define InfratecPM device first" if(!defined($hash->{IODEV}));
if($cmd =~ /^(on|off|toggle)$/) # nur diese drei Kommandos kennt es selbst
{
CommandSet(undef,$hash->{IODEV}." Out".$hash->{SOCKETNR}. " $cmd");
return undef;
}
return SetExtensions($hash,$cmdList,$name,@a);
}
#####################################
1;
=pod
=begin html
<a name="InfratecOut"></a>
<h3>InfratecOut</h3>
<ul>
<table><tr><td>
sub device for InfratecPM module
</td></tr></table>
<a name="InfratecOutdefine"></a>
<b>Define</b>
<ul>
<code>define &lt;name&gt; InfratecOut &lt;InfratecPM device&gt; &lt;Out #&gt;</code>
</ul>
</ul>
=end html