FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
pahenning 2014-02-24 03:47:01 +00:00
parent 1ab4098a70
commit 64a261a24e
6 changed files with 110 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/21_OWAD.pm
View File

@ -76,7 +76,7 @@ use strict;
use warnings;
sub Log($$);
my $owx_version="5.05";
my $owx_version="5.06";
#-- fixed raw channel name, flexible channel name
my @owg_fixed = ("A","B","C","D");
my @owg_channel = ("A","B","C","D");
@ -286,6 +286,7 @@ sub OWAD_Attr(@) {
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
#-- interval modified at runtime
$key eq "interval" and do {
#-- check value
@ -305,12 +306,15 @@ sub OWAD_Attr(@) {
if( $hash->{READINGS}{"state"}{VAL} eq "defined" );
$ret = OWAD_Set($hash,($name,$key,$value));
last;
};
}
}
} elsif ( $do eq "del" ) {
ARGUMENT_HANDLER: {
#-- should remove alarm setting, but does nothing so far
$key =~ m/(.*)(Alarm)/ and do {
last;
};
}
}
}
return $ret;
}

6
fhem/FHEM/21_OWCOUNT.pm
View File

@ -84,7 +84,7 @@ use strict;
use warnings;
sub Log($$);
my $owx_version="5.05";
my $owx_version="5.06";
#-- fixed raw channel name, flexible channel name
my @owg_fixed = ("A","B");
my @owg_channel = ("A","B");
@ -270,6 +270,7 @@ sub OWCOUNT_Attr(@) {
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
#-- interval modified at runtime
$key eq "interval" and do {
#-- check value
@ -281,7 +282,8 @@ sub OWCOUNT_Attr(@) {
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "OWCOUNT_GetValues", $hash, 1);
}
last;
};
}
}
}
return $ret;
}

6
fhem/FHEM/21_OWID.pm
View File

@ -53,7 +53,7 @@ use strict;
use warnings;
sub Log($$);
my $owx_version="5.05";
my $owx_version="5.06";
#-- declare variables
my %gets = (
"present" => "",
@ -217,6 +217,7 @@ sub OWID_Attr(@) {
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
#-- interval modified at runtime
$key eq "interval" and do {
#-- check value
@ -228,7 +229,8 @@ sub OWID_Attr(@) {
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "OWID_GetValues", $hash, 1);
}
last;
};
}
}
}
return $ret;
}

6
fhem/FHEM/21_OWMULTI.pm
View File

@ -70,7 +70,7 @@ use strict;
use warnings;
sub Log($$);
my $owx_version="5.05";
my $owx_version="5.06";
#-- flexible channel name
my $owg_channel;
@ -156,6 +156,7 @@ sub OWMULTI_Attr(@) {
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
#-- interval modified at runtime
$key eq "interval" and do {
#-- check value
@ -167,7 +168,8 @@ sub OWMULTI_Attr(@) {
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "OWMULTI_GetValues", $hash, 1);
}
last;
};
}
}
}
return $ret;
}

6
fhem/FHEM/21_OWSWITCH.pm
View File

@ -76,7 +76,7 @@ use strict;
use warnings;
sub Log($$);
my $owx_version="5.05";
my $owx_version="5.06";
#-- fixed raw channel name, flexible channel name
my @owg_fixed = ("A","B","C","D","E","F","G","H");
my @owg_channel = ("A","B","C","D","E","F","G","H");
@ -278,6 +278,7 @@ sub OWSWITCH_Attr(@) {
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
#-- interval modified at runtime
$key eq "interval" and do {
#-- check value
@ -289,7 +290,8 @@ sub OWSWITCH_Attr(@) {
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "OWSWITCH_GetValues", $hash, 1);
}
last;
};
}
}
}
return $ret;
}

4
fhem/FHEM/21_OWTHERM.pm
View File

@ -75,7 +75,7 @@ use warnings;
sub Log($$);
sub AttrVal($$$);
my $owx_version="5.05";
my $owx_version="5.06";
my %gets = (
"id" => "",
@ -264,6 +264,7 @@ sub OWTHERM_Attr(@) {
my $ret;
if ( $do eq "set") {
ARGUMENT_HANDLER: {
#-- interval modified at runtime
$key eq "interval" and do {
#-- check value
@ -290,6 +291,7 @@ sub OWTHERM_Attr(@) {
$ret = OWTHERM_Set($hash,($name,$key,$value));
};
}
}
return $ret;
}