mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 12:49:34 +00:00
121 lines
3.0 KiB
Perl
121 lines
3.0 KiB
Perl
################################################################
|
|
#
|
|
# $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 <name> InfratecOut <InfratecPM device> <Out #></code>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
|