FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 20:06:18 +00:00
Code Issues Releases Wiki Activity

Heating_Control, WeekdayTimer

Browse Source 
- set <device> enable
- set <device> disable
added and fixed a issue.

git-svn-id: https://svn.fhem.de/fhem/trunk@6057 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2014-06-04 19:27:19 +00:00
parent 42bc524cfe
commit c771e1a802
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/98_Heating_Control.pm
View File

@ -51,8 +51,9 @@ sub Heating_Control_Initialize($)
################################################################################ ################################################################################
sub Heating_Control_Set($@) { sub Heating_Control_Set($@) {
my ($hash, @a) = @_; my ($hash, @a) = @_;
return "no set value specified" if(int(@a) < 2); return "no set value specified" if(int(@a) < 2);
return "Unknown argument $a[1], choose one of enable/disable refresh" if($a[1] eq "?"); return "Unknown argument $a[1], choose one of enable disable " if($a[1] eq "?");
my $name = shift @a; my $name = shift @a;
my $v = join(" ", @a); my $v = join(" ", @a);
@ -60,7 +61,7 @@ sub Heating_Control_Set($@) {
Log3 $hash, 3, "[$name] set $name $v"; Log3 $hash, 3, "[$name] set $name $v";
if ($v eq "enable") { if ($v eq "enable") {
fhem("attr $name disable 1"); fhem("attr $name disable 0");
} elsif ($v eq "disable") { } elsif ($v eq "disable") {
fhem("attr $name disable 1"); fhem("attr $name disable 1");
} }

13
fhem/FHEM/98_WeekdayTimer.pm
View File

@ -48,11 +48,20 @@ sub WeekdayTimer_Initialize($)
################################################################################ ################################################################################
sub WeekdayTimer_Set($@) { sub WeekdayTimer_Set($@) {
my ($hash, @a) = @_; my ($hash, @a) = @_;
return "no set value specified" if(int(@a) < 2); return "no set value specified" if(int(@a) < 2);
return "Unknown argument $a[1], choose one of enable/disable refresh" if($a[1] eq "?"); return "Unknown argument $a[1], choose one of enable disable " if($a[1] eq "?");
Heating_Control_Set($@); my $name = shift @a;
my $v = join(" ", @a);
Log3 $hash, 3, "[$name] set $name $v";
if ($v eq "enable") {
fhem("attr $name disable 0");
} elsif ($v eq "disable") {
fhem("attr $name disable 1");
}
return undef; return undef;
} }
######################################################################## ########################################################################