FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

TODO added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1773 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-07-30 09:50:15 +00:00
parent 2b1278c088
commit 579ecfd632
2 changed files with 26 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/contrib/00_ZWDongle.pm
View File

@ -1,8 +1,10 @@
############################################## ##############################################
# $Id: 00_ZWDongle.pm 1721 2012-07-11 14:48:24Z rudolfkoenig $ # $Id: 00_ZWDongle.pm 1721 2012-07-11 14:48:24Z rudolfkoenig $
# Handling a ZWave (USB) Dongle # TODO:
# TODO: # - one command to create a fhem device for all nodeList entries
# - get list of command classes for a device. # - inclusion mode active only for a given time (pairForSec)
# - use central readings functions
# - add usbscan
package main; package main;
use strict; use strict;
@ -154,7 +156,7 @@ ZWDongle_Initialize($)
$hash->{SetFn} = "ZWDongle_Set"; $hash->{SetFn} = "ZWDongle_Set";
$hash->{GetFn} = "ZWDongle_Get"; $hash->{GetFn} = "ZWDongle_Get";
$hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " . $hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " .
"showtime:1,0 model:ZWDongle loglevel:0,1,2,3,4,5,6 "; "model:ZWDongle loglevel:0,1,2,3,4,5,6 ";
} }
##################################### #####################################

26
fhem/contrib/10_ZWave.pm
View File

@ -1,5 +1,12 @@
############################################## ##############################################
# See ZWDongle.pm for inspiration # See ZWDongle.pm for inspiration
# TODO
# - use central readings functions
# - Generate MISSING ACK
# - implement (global?) on-for-timer
# - better autocreate integration
# - get support in FHEMWEB
# - class meter: get
package main; package main;
use strict; use strict;
@ -372,7 +379,8 @@ ZWave_Parse($$@)
if($evt eq "slave" && if($evt eq "slave" &&
$arg =~ m/(..)....(..)..(.*)$/) { $arg =~ m/(..)....(..)..(.*)$/) {
my ($id,$type6,$classes) = ($1, $2, $3); my ($id,$type6,$classes) = ($1, $2, $3);
return ZWave_SetClasses($homeId, $id, $type6, $classes); return ZWave_SetClasses($homeId, $id, $type6, $classes)
if($cmd eq 'ZW_ADD_NODE_TO_NETWORK');
} }
} elsif($cmd eq "ZW_APPLICATION_UPDATE" && $arg =~ m/....(..)..(.*)$/) { } elsif($cmd eq "ZW_APPLICATION_UPDATE" && $arg =~ m/....(..)..(.*)$/) {
@ -413,14 +421,11 @@ ZWave_Parse($$@)
} }
my @event; my @event;
my $wakeup;
foreach my $k (keys %{$ptr}) { foreach my $k (keys %{$ptr}) {
if($arg =~ m/$k/) { if($arg =~ m/$k/) {
my $val = $ptr->{$k}; my $val = $ptr->{$k};
$val = eval $val if(index($val, '$') >= 0); $val = eval $val if(index($val, '$') >= 0);
push @event, $val; push @event, $val;
Log 1, ">$val<";
# $wakeup = 1 if($val eq "wakeup:notification" && !$wakeup);
} }
} }
@ -428,7 +433,6 @@ Log 1, ">$val<";
return join(" ", @event) if($local); return join(" ", @event) if($local);
if($hash->{WakeUp} && @{$hash->{WakeUp}}) { if($hash->{WakeUp} && @{$hash->{WakeUp}}) {
Log 1, "WU...";
IOWrite($hash, "00", shift @{$hash->{WakeUp}}); IOWrite($hash, "00", shift @{$hash->{WakeUp}});
} }
@ -443,7 +447,7 @@ Log 1, "WU...";
$hash->{STATE} = $vv; $hash->{STATE} = $vv;
push @changed, $vv; push @changed, $vv;
} }
push @changed, "deviceState:$vv"; push @changed, "reportedState:$vv";
} else { } else {
push @changed, "$vn: $vv"; push @changed, "$vn: $vv";
@ -468,3 +472,13 @@ ZWave_Undef($$)
} }
1; 1;
=begin html
<a name="CUL"></a>
<h3>CUL</h3>
<ul>
text
</ul>
=end html