Added pilight module

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

fhem/FHEM/98_pilight.pm

@@ -0,0 +1,151 @@
+##############################################
+package main;
+
+use strict;
+use warnings;
+use IO::Socket::INET;
+
+sub
+pilight_Initialize($)
+{
+  my ($hash) = @_;
+
+  $hash->{SetFn}     = "pilight_Set";
+  $hash->{DefFn}     = "pilight_Define";
+  $hash->{AttrList}  = "protocol housecode number remote_ip remote_port";
+}
+
+###################################
+sub
+pilight_Set($@)
+{
+  my ($hash, @a) = @_;
+  my $rc = undef;
+  
+  return "no set value specified" if(int(@a) < 2);
+  return "on off" if($a[1] eq "?");
+  
+  shift @a;
+  my $command = shift @a;
+  
+  Log 3, "pilight command: $command";
+
+  if($command eq "on") 
+  {
+    $rc = switch($hash, 1);
+  } 
+  else
+  {
+    $rc = switch($hash, 0);
+  }
+  
+  if ($rc) {
+     $hash->{CHANGED}[0] = $command;
+     $hash->{STATE} = $command;
+     $hash->{READINGS}{state}{TIME} = TimeNow();
+     $hash->{READINGS}{state}{VAL} = $command;
+  };
+  
+  return undef;
+}
+
+sub
+pilight_Define($$)
+{
+  my ($hash, $def) = @_;
+  my @a = split("[ \t][ \t]*", $def);
+
+  my $u = "wrong syntax: define <name> <protocol> <housecode> <number>";
+  return $u if(int(@a) < 4);
+  
+  $hash->{protocol} = $a[2];
+  $hash->{housecode} = $a[3];
+  $hash->{number} = $a[4];
+  
+  return undef;
+}
+
+
+sub switch
+{
+  my ($hash, $on) = @_;
+  my $name   = $hash->{NAME};
+  my $protocol = $hash->{protocol};
+  my $housecode = $hash->{housecode};
+  my $number = $hash->{number};
+  my $param = $on ? "on" : "off";
+  my $remote_ip = AttrVal($name, "remote_ip", '127.0.0.1');
+  my $remote_port = AttrVal($name, "remote_port", '5000');
+  my ($socket,$client_socket);
+  
+  # flush after every write
+  $| = 1;
+  
+  $socket = new IO::Socket::INET (
+  PeerHost => $remote_ip,
+  PeerPort => $remote_port,
+  Proto => 'tcp',
+  ); 
+  
+  if (!$socket) { Log 3, "pilight: ERROR. Can't open socket to pilight-daemon: $!\n";
+                  return undef};
+
+  my $data = '{ "message": "client sender" }';
+  $socket->send($data);
+  $socket->recv($data,1024);
+  
+  $data =~ s/\n/ /g;
+  if ( $data !~ /accept client/ ) { Log 3, "pilight: ERROR. No handshake with pilight-daemon. Received: >>>$data<<<\n";
+                  return undef};
+				  
+  my $data = "{ \"message\": \"send\", \"code\": {\"protocol\":[ \"$protocol\" ],\"id\":\"$housecode\", \"unit\":\"$number\",\"$param\":\"1\"}}";
+  $socket->send($data);
+  $socket->close();
+  
+  return 1;
+}
+
+1;
+
+=pod
+=begin html
+
+<a name="pilight"></a>
+<h3>pilight</h3>
+<ul>
+  <a name="pilight_define"></a>
+  <h4>Define</h4>
+  <ul>
+    <code>define &lt;name&gt; pilight &lt;protocol&gt; &lt;housecode&gt; &lt;number&gt;</code>
+    <br/>
+    <br/>
+    Defines a module for setting pilight compartible switches on or off. See <a href="http://www.sweetpi.de/blog/258/funksteckdosen-mit-dem-raspberry-pi-und-pilight-schalten">Sweetpi</a>.<br><br>
+    Example:
+    <ul>
+      <code>define Weihnachtsbaum pilight kaku_switch 12323578 0</code><br>
+    </ul>
+    <br/>
+	If your pilight server does not run on localhost, please set both the attributes <b>remote_ip</b> and <b>remote_port</b>.
+    <br/>
+  </ul>
+
+  <a name="pilight_Attr"></a>
+  <h4>Attributes</h4> 
+  <ul>
+    <li><a name="protocol"><code>attr &lt;name&gt; protocol &lt;string&gt;</code></a>
+                <br />Protocol used in pilight, e.g. "kaku_switch"</li>
+    <li><a name="user"><code>attr &lt;name&gt; housecode &lt;string&gt;</code></a>
+                <br />Housecode used in pilight</li>
+    <li><a name="user"><code>attr &lt;name&gt; housecode &lt;string&gt;</code></a>
+                <br />Housecode used in pilight</li>
+    <li><a name="number"><code>attr &lt;name&gt; number &lt;string&gt;</code></a>
+                <br />Device number of your switch</li>
+    <li><a name="numer"><code>attr &lt;name&gt; remote_ip &lt;string&gt;</code></a>
+                <br />Remote IP of you pilight server (127.0.0.1 is default)</li>
+    <li><a name="numer"><code>attr &lt;name&gt; remote_port &lt;string&gt;</code></a>
+                <br />Remote port of you pilight server (5000 is default)</li>
+  </ul>
+</ul>
+
+=end html
+=cut

fhem/HISTORY

@@ -540,3 +540,6 @@
 - Mon Jan 13 2014 (A. Schulz alias hexenmeister)
   - Added new module "SYSMON"
 
+- Fri Jan 16 2014 (andreas-fey)
+  - Added new module "pilight"
+  

fhem/MAINTAINER.txt

@@ -195,6 +195,7 @@ FHEM/98_dummy.pm             rudolfkoenig         http://forum.fhem.de Automatis
 FHEM/98_fheminfo.pm          mfr69bs              http://forum.fhem.de Sonstiges
 FHEM/98_notice.pm            mfr69bs              http://forum.fhem.de Sonstiges
 FHEM/98_openweathermap.pm    betateilchen         http://forum.fhem.de Unterstuetzende Dienste
+FHEM/98_pilight.pm           andreas-fey          http://forum.fhem.de Unterstuetzende Dienste
 FHEM/98_rain.pm              baumrasen            http://forum.fhem.de Sonstiges
 FHEM/98_structure.pm         rudolfkoenig         http://forum.fhem.de Automatisierung
 FHEM/98_telnet.pm            rudolfkoenig         http://forum.fhem.de Automatisierung