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

45_Plugwise:corrected commandref

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10375 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
icinger 2016-01-06 04:48:53 +00:00
parent 3b5a12c32a
commit ffb100fdd2
1 changed files with 6 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/FHEM/45_Plugwise.pm
View File

@ -160,7 +160,7 @@ sub PW_GetUpdate($)
$n=$_; $n=$_;
if (defined $hash->{helper}->{circles}->{$n}->{lastContact}) { if (defined $hash->{helper}->{circles}->{$n}->{lastContact}) {
if (time>$hash->{helper}->{circles}->{$n}->{lastContact} +960) { if (time>$hash->{helper}->{circles}->{$n}->{lastContact} +960) {
Log 3,"Set Circle $n offline"; Log3 $hash,3,"Set Circle $n offline";
my %xplmsg = ( schema => 'plugwise.basic', ); my %xplmsg = ( schema => 'plugwise.basic', );
my $saddr=$hash->{helper}->{circles}->{$n}->{name}; my $saddr=$hash->{helper}->{circles}->{$n}->{name};
$xplmsg{dest}=$self->{_plugwise}->{circles}->{$saddr}->{type}; $xplmsg{dest}=$self->{_plugwise}->{circles}->{$saddr}->{type};
@ -178,12 +178,9 @@ sub PW_GetUpdate($)
foreach ( keys %{ $self->{_plugwise}->{circles} } ) { foreach ( keys %{ $self->{_plugwise}->{circles} } ) {
$n=$_; $n=$_;
if (!defined $self->{_plugwise}->{circles}->{$n}->{type}) {$self->{_plugwise}->{circles}->{$n}->{type}=""}; if (!defined $self->{_plugwise}->{circles}->{$n}->{type}) {$self->{_plugwise}->{circles}->{$n}->{type}=""};
# if ($self->{_plugwise}->{circles}->{$n}->{type} eq "PW_Circle" ||
# $self->{_plugwise}->{circles}->{$n}->{type} eq "" ||
if ($self->{_plugwise}->{circles}->{$n}->{type} eq "" || if ($self->{_plugwise}->{circles}->{$n}->{type} eq "" ||
!defined $self->{_plugwise}->{circles}->{$n}->{type}) { !defined $self->{_plugwise}->{circles}->{$n}->{type}) {
command($hash,'status',$n); command($hash,'status',$n);
# command($hash,'livepower',$n) if($self->{_plugwise}->{circles}->{$n}->{type} eq "PW_Circle");
} }
if (defined $attr{$name}{autosync}) { if (defined $attr{$name}{autosync}) {
if ($attr{$name}{autosync}>0 && time > $lastSync+$attr{$name}{autosync}) { if ($attr{$name}{autosync}>0 && time > $lastSync+$attr{$name}{autosync}) {
@ -281,6 +278,10 @@ sub PW_Set($@)
return undef; return undef;
} }
elsif ($reading eq "pwPairForSec") { elsif ($reading eq "pwPairForSec") {
# RemoveInternalTimer("pairTimer");
# InternalTimer(gettimeofday()+$value, "PW_Circle_OnOffTimer", 'pairTimer'), 1);
Mywrite( $hash, "000701" . _addr_s2l( $self->{_plugwise}->{coordinator_MAC} ) ,1 ); Mywrite( $hash, "000701" . _addr_s2l( $self->{_plugwise}->{coordinator_MAC} ) ,1 );
} }
} }
@ -335,13 +336,9 @@ sub PW_Read($)
$buf2=~s/\r\n/\|/g; $buf2=~s/\r\n/\|/g;
return "" if ( !defined($buf) ); return "" if ( !defined($buf) );
$hash->{helper}{buffer} .= $buf; $hash->{helper}{buffer} .= $buf;
# $hash->{helper}{buffer} =~ s/\x83*//g;
# did we already get a full frame?
#Log 3,$hash->{helper}{buffer};
return unless ( $hash->{helper}{buffer} =~ s/(.+)\r\n// ); return unless ( $hash->{helper}{buffer} =~ s/(.+)\r\n// );
do { do {
my $v=$1; my $v=$1;
# if ($v=~/\x05\x05\x03\x03(\w+)/ || $v=~/\x83\x05\x05\x03\x03(\w+)/) {
if ($v=~/\x83?\x05\x05\x03\x03(\w+)/) { if ($v=~/\x83?\x05\x05\x03\x03(\w+)/) {
$body = process_response($hash,$1); $body = process_response($hash,$1);
if($body ne undef) { if($body ne undef) {
@ -360,11 +357,6 @@ sub PW_Read($)
if ($body->{type} =~ /output|power|sense|humtemp|energy|ping/) { if ($body->{type} =~ /output|power|sense|humtemp|energy|ping/) {
if ($body->{dest} eq "PW_Switch" && $Make2Channels==1) { if ($body->{dest} eq "PW_Switch" && $Make2Channels==1) {
my $dest=$body->{short}; my $dest=$body->{short};
# $body->{short}=$dest . "_Ch1";
# MyRead($hash,$body);
# $body->{short}=$dest . "_Ch2";
# $body->{val1}=$body->{val3};
# MyRead($hash,$body);
$body->{short}=$dest . "_Ch".$body->{val3}; $body->{short}=$dest . "_Ch".$body->{val3};
MyRead($hash,$body); MyRead($hash,$body);
} else { } else {
@ -402,10 +394,6 @@ sub PW_Read($)
{ {
Log3 $hash,3,"Not processed: $v"; Log3 $hash,3,"Not processed: $v";
} }
# Log 3,"Try to read new Data.....";
# my $buf3 = DevIo_SimpleRead($hash);
# $hash->{helper}{buffer} .= $buf3 if ( defined($buf3) );
# last unless ( $hash->{helper}{buffer} =~ /(.+)\r\n/ );
} while ( $hash->{helper}{buffer} =~ s/(.+)\r\n// ); } while ( $hash->{helper}{buffer} =~ s/(.+)\r\n// );
$self->{_awaiting_stick_response} = 0; $self->{_awaiting_stick_response} = 0;
@ -1369,8 +1357,6 @@ sub _pulsecorrection {
<a name="Plugwise"></a> <a name="Plugwise"></a>
<h3>Plugwise</h3> <h3>Plugwise</h3>
<ul> <ul>
<table>
<tr><td>
This module is for the Plugwise-System. This module is for the Plugwise-System.
<br> <br>
Note: this module requires the Device::SerialPort or Win32::SerialPort module Note: this module requires the Device::SerialPort or Win32::SerialPort module
@ -1392,7 +1378,6 @@ sub _pulsecorrection {
<br> <br>
</ul> </ul>
<br> <br>
</table>
<a name="PLUGWISEset"></a> <a name="PLUGWISEset"></a>
<b>Set</b> <b>Set</b>