FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
pahenning 2014-08-20 09:26:58 +00:00
parent fd41667f06
commit 303053491c
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fhem/FHEM/21_OWID.pm
View File

@ -54,7 +54,7 @@ use Time::HiRes qw(gettimeofday);
use strict; use strict;
use warnings; use warnings;
#add FHEM/lib to @INC if it's not allready included. Should rather be in fhem.pl than here though... #add FHEM/lib to @INC if it is not already included. Should rather be in fhem.pl than here though...
BEGIN { BEGIN {
if (!grep(/FHEM\/lib$/,@INC)) { if (!grep(/FHEM\/lib$/,@INC)) {
foreach my $inc (grep(/FHEM$/,@INC)) { foreach my $inc (grep(/FHEM$/,@INC)) {
@ -68,7 +68,7 @@ use ProtoThreads;
no warnings 'deprecated'; no warnings 'deprecated';
sub Log($$); sub Log($$);
my $owx_version="5.14"; my $owx_version="5.15";
#-- declare variables #-- declare variables
my %gets = ( my %gets = (
"present" => "", "present" => "",
@ -222,6 +222,14 @@ sub OWID_Define ($$) {
return undef; return undef;
} }
#########################################################################################
#
# OWID_Notify - Implements NotifyFn function
#
# Parameter hash = hash of device addressed, dev = device name
#
#########################################################################################
sub OWID_Notify ($$) { sub OWID_Notify ($$) {
my ($hash,$dev) = @_; my ($hash,$dev) = @_;
if( grep(m/^(INITIALIZED|REREADCFG)$/, @{$dev->{CHANGED}}) ) { if( grep(m/^(INITIALIZED|REREADCFG)$/, @{$dev->{CHANGED}}) ) {
@ -230,6 +238,14 @@ sub OWID_Notify ($$) {
} }
} }
#########################################################################################
#
# OWID_Define - Implements InitFn function
#
# Parameter hash = hash of device addressed
#
#########################################################################################
sub OWID_Init ($) { sub OWID_Init ($) {
my ($hash)=@_; my ($hash)=@_;
#-- Start timer for updates #-- Start timer for updates
@ -283,7 +299,7 @@ sub OWID_Attr(@) {
} }
} }
last; last;
}; }
} }
} }
return $ret; return $ret;