Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

24_TPLinkHS110: Release 2018-11-01 SetExtension

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@15848 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
vk 2018-01-11 17:25:49 +00:00
parent 80b1186ebf
commit 2500f422a5
1 changed files with 27 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
FHEM/24_TPLinkHS110.pm
View File

@ -1,6 +1,8 @@
################################################################
# $Id$
#
# Release 2018-11-01 SetExtension
#
# Copyright notice
#
# (c) 2016 Copyright: Volker Kettenbach
@ -34,6 +36,7 @@ use warnings;
use IO::Socket::INET;
use IO::Socket::Timeout;
use JSON;
use SetExtensions;
#####################################
sub TPLinkHS110_Initialize($)
@ -199,19 +202,26 @@ sub TPLinkHS110_Get($$)
#####################################
sub TPLinkHS110_Set($$)
{
my ( $hash, @a ) = @_;
my $name= $hash->{NAME};
my ( $hash, $name, $cmd, @args ) = @_;
my $cmdList = "on off";
return "\"set $name\" needs at least one argument" unless(defined($cmd));
return "Device disabled in config" if ($attr{$name}{"disable"} eq "1");
Log3 $hash, 3, "TPLinkHS110: $name Set <". $a[1] ."> called";
return "Unknown argument $a[1], choose one of on off " if($a[1] ne "on" & $a[1] ne "off");
Log3 $hash, 3, "TPLinkHS110: $name Set <". $cmd ."> called";
my $command;
if($a[1] eq "on") {
my $command="";
if($cmd eq "on")
{
$command = '{"system":{"set_relay_state":{"state":1}}}';
}
if($a[1] eq "off") {
elsif($cmd eq "off")
{
$command = '{"system":{"set_relay_state":{"state":0}}}';
}
else # wenn der übergebene Befehl nicht durch X_Set() verarbeitet werden kann, Weitergabe an SetExtensions
{
return SetExtensions($hash, $cmdList, $name, $cmd, @args);
}
my $remote_host = $hash->{HOST};
my $remote_port = 9999;
my $c = encrypt($command);