FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

New Module to support iTach Relay boxes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1006 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sachag 2011-09-19 12:38:06 +00:00
parent 41995d4de4
commit 60529c90cb
1 changed files with 117 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
fhem/FHEM/88_Itach_Relay.pm Normal file
View File

@ -0,0 +1,117 @@
################################################################
#
# Copyright notice
#
# (c) 2011 Sacha Gloor (sacha@imp.ch)
#
# This script 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.
#
# This copyright notice MUST APPEAR in all copies of the script!
#
################################################################
##############################################
package main;
use strict;
use warnings;
use Data::Dumper;
use Net::Telnet;
sub
ITACH_RELAY_Initialize($)
{
my ($hash) = @_;
$hash->{SetFn} = "ITACH_RELAY_Set";
$hash->{DefFn} = "ITACH_RELAY_Define";
$hash->{AttrList} = "loglevel:0,1,2,3,4,5,6";
}
###################################
sub
ITACH_RELAY_Set($@)
{
my ($hash, @a) = @_;
return "no set value specified" if(int(@a) != 2);
return "Unknown argument $a[1], choose one of on off" if($a[1] eq "?");
my $v = $a[1];
ITACH_RELAY_execute($hash->{DEF},$v);
Log GetLogLevel($a[0],2), "ITACH_RELAY set @a";
$hash->{CHANGED}[0] = $v;
$hash->{STATE} = $v;
$hash->{READINGS}{state}{TIME} = TimeNow();
$hash->{READINGS}{state}{VAL} = $v;
DoTrigger($hash->{NAME}, undef);
return undef;
}
###################################
sub
ITACH_RELAY_execute($@)
{
my ($target,$cmd) = @_;
my $URL='';
my $v='';
my $err_log='';
if($cmd eq "on") { $v=1; }
else { $v=0; }
my @a = split("[ \t][ \t]*", $target);
my $tel=new Net::Telnet(Host => $a[0], Port => 4998,Timeout => 3, Binmode => 0, Telnetmode => 0, Errmode => "return");
if(!defined($tel))
{
Log 4,"Error connecting to ".$a[0].":4998";
}
else
{
my $cmd="setstate,1:".$a[1].",".$v."\n";
$tel->print($cmd);
sleep(1);
}
return undef;
}
sub
ITACH_RELAY_Define($$)
{
my ($hash, $def) = @_;
my $name=$hash->{NAME};
my @a = split("[ \t][ \t]*", $def);
my $host = $a[2];
my $host_port = $a[3];
return "Wrong syntax: use define <name> ITACH_RELAY <ip-address> <port-nr>" if(int(@a) != 4);
$hash->{Host} = $host;
$hash->{Host_Port} = $host_port;
return undef;
}
1;