mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-01 07:19:24 +00:00
46_PW_Sense::subtype of 45_Plugwise
git-svn-id: https://svn.fhem.de/fhem/trunk@9855 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
icinger
parent
ea0b93de82
commit
4393b33fd1
177
fhem/FHEM/46_PW_Sense.pm
Executable file
177
fhem/FHEM/46_PW_Sense.pm
Executable file
@ -0,0 +1,177 @@
|
||||
#################################################################################
|
||||
# 46_PW_Sense.pm
|
||||
#
|
||||
# FHEM module Plugwise motion scanners
|
||||
#
|
||||
# Copyright (C) 2015 Stefan Guttmann
|
||||
#
|
||||
# This program 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.
|
||||
#
|
||||
# This program 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.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License
|
||||
# along with this program; if not, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||||
#
|
||||
# The GNU General Public License may also be found at http://www.gnu.org/licenses/gpl-2.0.html .
|
||||
###################################
|
||||
#
|
||||
# $Id: 46_PW_Sense.pm 0037 2015-11-09 19:18:38Z sguttmann $
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Data::Dumper;
|
||||
|
||||
my $time_old = 0;
|
||||
|
||||
my $DOT = q{_};
|
||||
|
||||
sub PW_Sense_Initialize($)
|
||||
{
|
||||
my ($hash) = @_;
|
||||
|
||||
$hash->{Match} = "PW_Sense";
|
||||
$hash->{DefFn} = "PW_Sense_Define";
|
||||
$hash->{UndefFn} = "PW_Sense_Undef";
|
||||
$hash->{ParseFn} = "PW_Sense_Parse";
|
||||
$hash->{SetFn} = "PW_Sense_Set";
|
||||
$hash->{AttrList} = "IODev do_not_notify:1,0 ".
|
||||
$readingFnAttributes;
|
||||
|
||||
Log3 $hash, 5, "PW_Sense_Initialize() Initialize";
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub PW_Sense_Define($$)
|
||||
{
|
||||
my ($hash, $def) = @_;
|
||||
my @a = split("[ \t][ \t]*", $def);
|
||||
my $a = int(@a);
|
||||
|
||||
Log3 $hash,5,"PW_Sense: Define called --> $def";
|
||||
|
||||
return "wrong syntax: define <name> PW_Sense address" if(int(@a) != 3);
|
||||
|
||||
my $name = $a[0];
|
||||
my $code = $a[2];
|
||||
my $device_name = "PW_Sense".$DOT.$code;
|
||||
|
||||
$hash->{CODE} = $code;
|
||||
$modules{PW_Sense}{defptr}{$device_name} = $hash;
|
||||
AssignIoPort($hash);
|
||||
if( $init_done ) {
|
||||
$attr{$name}{room}='Plugwise';
|
||||
}
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
#####################################
|
||||
sub PW_Sense_Undef($$)
|
||||
{
|
||||
my ($hash, $name) = @_;
|
||||
delete($modules{PW_Sense}{defptr}{$name});
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub PW_Sense_Set($@)
|
||||
{
|
||||
my ( $hash, @a ) = @_;
|
||||
return "\"set X\" needs at least an argument" if ( @a < 2 );
|
||||
my $name = shift @a;
|
||||
my $opt = shift @a;
|
||||
my $value = join("", @a);
|
||||
|
||||
Log3 $hash,5,"$hash->{NAME} - PW_Sense-Set: N:$name O:$opt V:$value";
|
||||
|
||||
if ($opt eq "removeNode") {
|
||||
IOWrite($hash,$hash->{CODE},$opt);
|
||||
} elsif ($opt eq "ping") {
|
||||
IOWrite($hash,$hash->{CODE},$opt);
|
||||
}
|
||||
else
|
||||
{
|
||||
return "Unknown argument $opt, choose one removeNode ping";
|
||||
}
|
||||
}
|
||||
|
||||
sub PW_Sense_Parse($$)
|
||||
{
|
||||
my ($hash, $msg2) = @_;
|
||||
my $msg=$hash->{RAWMSG};
|
||||
#Log 3,"PW_Sense: got a msg";
|
||||
|
||||
my $time = time();
|
||||
if ($msg->{type} eq "err") {return undef};
|
||||
|
||||
Log3 $hash,5,"PW_Sense: Parse called ".$msg->{short};
|
||||
|
||||
$time_old = $time;
|
||||
Log3 $hash,5, Dumper($msg);
|
||||
my $device_name = "PW_Sense".$DOT.$msg->{short};
|
||||
Log3 $hash,5,"New Devicename: $device_name";
|
||||
my $def = $modules{PW_Sense}{defptr}{"$device_name"};
|
||||
if(!$def) {
|
||||
Log3 $hash, 3, "PW_Sense: Unknown device $device_name, please define it";
|
||||
return "UNDEFINED $device_name PW_Sense $msg->{short}";
|
||||
}
|
||||
# Use $def->{NAME}, because the device may be renamed:
|
||||
my $name = $def->{NAME};
|
||||
|
||||
my $type = $msg->{type};
|
||||
Log3 $hash,5,"PW_Sense: Type is '$type'";
|
||||
Log3 $hash,5,Dumper($msg);
|
||||
|
||||
readingsBeginUpdate($def);
|
||||
|
||||
if($type eq "humtemp") {
|
||||
readingsBulkUpdate($def, "temperature", $msg->{val2});
|
||||
readingsBulkUpdate($def, "humidity", $msg->{val1});
|
||||
}
|
||||
if($type eq "PW_Sense") {
|
||||
readingsBulkUpdate($def, "Sense", ($msg->{val1}) eq 0 ? 'off' : 'on');
|
||||
}
|
||||
readingsEndUpdate($def, 1);
|
||||
|
||||
return $name;
|
||||
}
|
||||
|
||||
"Cogito, ergo sum.";
|
||||
|
||||
=pod
|
||||
=begin html
|
||||
|
||||
<a name="PW_Sense"></a>
|
||||
<h3>PW_Sense</h3>
|
||||
<ul>
|
||||
The PW_Sense module is invoked by Plugwise. You need to define a Plugwise-Stick first.
|
||||
See <a href="#PW_Sense">PW_Sense</a>.
|
||||
<br>
|
||||
<a name="PW_Sense define"></a>
|
||||
<br>
|
||||
<b>Define</b>
|
||||
<ul>
|
||||
<code>define <name> PW_Sense <ShortAddress></code> <br>
|
||||
<br>
|
||||
<code><ShortAddress></code>
|
||||
<ul>
|
||||
specifies the short (last 4 Bytes) of the PW_Sense received by the Plugwise-Stick. <br>
|
||||
</ul>
|
||||
<br>
|
||||
Example: <br>
|
||||
<code>define PW_Sense_2907CC9 PW_Sense 2907CC9</code>
|
||||
<br>
|
||||
</ul>
|
||||
<br>
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
=cut
|
||||
|
||||
Loading…
Reference in New Issue
Block a user