24_Iluminize: Initial checkin

git-svn-id: https://svn.fhem.de/fhem/trunk@17514 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/24_Iluminize.pm

@@ -0,0 +1,194 @@
+################################################################################################
+#
+# $Id$
+#
+#  Copyright notice
+#
+#  Release 2018-10 First version
+#
+#  (c) 2018 Copyright: Volker Kettenbach
+#  e-mail: volker at kettenbach minus it dot de
+#
+#  Description:
+#  This is an FHEM-Module for the Iluinize LED Stripes,
+#
+#  Requirements:
+#  This module requires:
+#  	Perl Module: IO::Socket::INET
+#  	Perl Module: IO::Socket::Timeout
+#  On a Debian (based) system, these requirements can be fullfilled by:
+#   apt-get install install libio-socket-inet6-perl libio-socket-timeout-perl
+#
+#  Origin:
+#  https://gitlab.com/volkerkettenbach/FHEM-Iluminize
+#
+#  Support: https://forum.fhem.de/index.php/topic,92007.0.html
+#
+#
+#################################################################################################
+
+package main;
+
+use strict;
+use warnings;
+
+use IO::Socket::INET;
+use IO::Socket::Timeout;
+
+use SetExtensions;
+
+
+my $on =   chr(hex("55")) .
+    chr(hex("99")) .
+    chr(hex("5e")) .
+    chr(hex("bb")) .
+    chr(hex("01")) .
+    chr(hex("02")) .
+    chr(hex("02")) .
+    chr(hex("12")) .
+    chr(hex("ab")) .
+    chr(hex("c2")) .
+    chr(hex("aa")) .
+    chr(hex("aa"));
+
+my $off=   chr(hex("55")) .
+    chr(hex("99")) .
+    chr(hex("5e")) .
+    chr(hex("bb")) .
+    chr(hex("01")) .
+    chr(hex("02")) .
+    chr(hex("02")) .
+    chr(hex("12")) .
+    chr(hex("a9")) .
+    chr(hex("c0")) .
+    chr(hex("aa")) .
+    chr(hex("aa"));
+
+
+sub Iluminize_Initialize($)
+{
+    my ($hash) = @_;
+
+    $hash->{DefFn}      = "Iluminize_Define";
+    $hash->{ReadFn}     = "Iluminize_Get";
+    $hash->{SetFn}      = "Iluminize_Set";
+    $hash->{UndefFn}    = "Iluminize_Undefine";
+    $hash->{DeleteFn}   = "Iluminize_Delete";
+    $hash->{AttrFn}     = "Iluminize_Attr";
+    $hash->{AttrList}   = "$readingFnAttributes";
+}
+
+sub Iluminize_Define($$)
+{
+    my ($hash, $def) = @_;
+    my $name= $hash->{NAME};
+
+    my @a = split( "[ \t][ \t]*", $def );
+    return "Wrong syntax: use define <name> Iluminize <hostname/ip> " if (int(@a) != 3);
+
+    $hash->{HOST}=$a[2];
+
+    Log3 $hash, 0, "Iluminize: $name defined.";
+
+    return undef;
+}
+
+# No get so far
+sub Iluminize_Get($$) {}
+
+
+sub Iluminize_Set($$)
+{
+    my ($hash, $name, $cmd, @args) = @_;
+    my $cmdList = "on off";
+
+    my $remote_host = $hash->{HOST};
+    my $remote_port = 8899;
+
+    Log3 $hash, 3, "Iluminize: $name Set <". $cmd ."> called" if ($cmd !~ /\?/);
+
+    return "\"set $name\" needs at least one argument" unless(defined($cmd));
+
+
+    my $command;
+    if ($cmd eq "on") {
+        $command = $on;
+        $hash->{STATE} = "on";
+    } elsif($cmd eq "off") {
+        $command = $off;
+        $hash->{STATE} = "off";
+    } else {
+        return SetExtensions($hash, $cmdList, $name, $cmd, @args);
+    }
+
+    my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
+        PeerPort => $remote_port,
+        Proto    => 'tcp',
+        Type     => SOCK_STREAM,
+        Timeout  => 2 )
+        or return "Couldn't connect to $remote_host:$remote_port: $@\n";
+
+    $socket->write($command);
+
+    return undef;
+}
+
+
+sub Iluminize_Undefine($$)
+{
+    my ($hash, $arg) = @_;
+    my $name= $hash->{NAME};
+    Log3 $hash, 4, "Iluminize: $name undefined.";
+    return;
+}
+
+
+
+sub Iluminize_Delete($$) {
+    my ($hash, $arg) = @_;
+    my $name= $hash->{NAME};
+    Log3 $hash, 0, "Ilumnize: $name deleted.";
+    return undef;
+}
+
+
+
+sub Iluminize_Attr($$$$) {
+    my ($cmd, $name, $aName, $aVal) = @_;
+    my $hash = $defs{$name};
+
+    return undef;
+}
+
+1;
+
+
+=pod
+=begin html
+
+<a name="Iluminize"></a>
+<h3>Iluminize</h3>
+  <br>
+    <a name="Iluminize"></a>
+    <b>Define</b>
+    <code>define &lt;name&gt; Iluminize &lt;ip/hostname&gt;</code><br>
+    	<br>
+    	Defines a wifi controlled Iluminize LED light
+
+=end html
+
+=begin html_DE
+
+<a name="Iluminize"></a>
+<h3>Iluminize</h3>
+  <br>
+    <a name="Iluminize"></a>
+    <b>Define</b>
+    <code>define &lt;name&gt; Iluminize &lt;ip/hostname&gt;</code><br>
+    	<br>
+    	Definiert ein Iluminize LED Wifi-Licht
+=end html_DE
+
+=item summary Support for Iluminize wifi controlled led stripe
+
+=item summary_DE Support für die Iluminize wlan LED-Produkte

fhem/MAINTAINER.txt

@@ -145,6 +145,7 @@ FHEM/23_LUXTRONIK2.pm        tupol                Heizungssteuerung/Raumklima (l
 FHEM/23_WEBIO.pm             sachag               Sonstiges
 FHEM/23_WEBIO_12DIGITAL.pm   sachag               Sonstiges
 FHEM/24_NetIO230B.pm         rudolfkoenig/orphan  Sonstiges
+FHEM/24_Iluminize.pm	     VolkerKettenbach     Sonstige Systeme
 FHEM/24_TPLinkHS110.pm	     VolkerKettenbach     Sonstige Systeme
 FHEM/26_tahoma.pm            mike3436             Sonstige Systeme
 FHEM/30_DUOFERN              telekatz             Sonstige Systeme