mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-04-09 13:45:33 +00:00
Added pilight module
git-svn-id: https://svn.fhem.de/fhem/trunk@4676 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
andreas-fey
parent
6c239041aa
commit
2166d7b524
151
fhem/FHEM/98_pilight.pm
Normal file
151
fhem/FHEM/98_pilight.pm
Normal file
@ -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 <name> pilight <protocol> <housecode> <number></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 <name> protocol <string></code></a>
|
||||
<br />Protocol used in pilight, e.g. "kaku_switch"</li>
|
||||
<li><a name="user"><code>attr <name> housecode <string></code></a>
|
||||
<br />Housecode used in pilight</li>
|
||||
<li><a name="user"><code>attr <name> housecode <string></code></a>
|
||||
<br />Housecode used in pilight</li>
|
||||
<li><a name="number"><code>attr <name> number <string></code></a>
|
||||
<br />Device number of your switch</li>
|
||||
<li><a name="numer"><code>attr <name> remote_ip <string></code></a>
|
||||
<br />Remote IP of you pilight server (127.0.0.1 is default)</li>
|
||||
<li><a name="numer"><code>attr <name> remote_port <string></code></a>
|
||||
<br />Remote port of you pilight server (5000 is default)</li>
|
||||
</ul>
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
=cut
|
||||
@ -539,4 +539,7 @@
|
||||
|
||||
- Mon Jan 13 2014 (A. Schulz alias hexenmeister)
|
||||
- Added new module "SYSMON"
|
||||
|
||||
|
||||
- Fri Jan 16 2014 (andreas-fey)
|
||||
- Added new module "pilight"
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user