FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 23:36:37 +00:00
Code Issues Releases Wiki Activity

10_FBDECT.pm: Log commands

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11709 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-06-24 08:08:20 +00:00
parent 30d0bf104a
commit f00fd8cf5d
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/10_FBDECT.pm
View File

@ -100,8 +100,11 @@ FBDECT_SetHttp($@)
}
my $cmd = $a[1];
my $name = $hash->{NAME};
Log3 $name, 3, "FBDECT set $name $cmd";
if($cmd =~ m/^(on|off|toggle)$/) {
IOWrite($hash, ReadingsVal($hash->{NAME},"AIN",0), "setswitch$cmd");
IOWrite($hash, ReadingsVal($name,"AIN",0), "setswitch$cmd");
my $state = ($cmd eq "toggle" ? ($hash->{state} eq "on" ? "off":"on"):$cmd);
readingsSingleUpdate($hash, "state", $state, 1);
return undef;
@ -109,12 +112,12 @@ FBDECT_SetHttp($@)
if($cmd =~ m/^(open|closed|desired-temp)$/) {
if($cmd eq "desired-temp") {
return "Usage: set $hash->{NAME} desired-temp value" if(int(@a) != 3);
return "Usage: set $name desired-temp value" if(int(@a) != 3);
return "desired-temp must be between 8 and 28"
if($a[2] !~ m/^[\d.]+$/ || $a[2] < 8 || $a[2] > 28)
}
my $val = ($cmd eq "open" ? 254 : ($cmd eq "closed" ? 253: int(2*$a[2])));
IOWrite($hash, ReadingsVal($hash->{NAME},"AIN",0),"sethkrtsoll&param=$val");
IOWrite($hash, ReadingsVal($name,"AIN",0),"sethkrtsoll&param=$val");
return undef;
}
}
@ -136,6 +139,9 @@ FBDECT_Set($@)
return SetExtensions($hash, $usage, @a);
}
my $name = $hash->{NAME};
Log3 $name, 3, "FBDECT set $name $cmd";
my $relay;
if($cmd eq "on" || $cmd eq "off") {
my $relay = sprintf("%08x%04x0000%08x", 15, 4, $cmd eq "on" ? 1 : 0);

8
fhem/fhem.pl
View File

@ -2367,7 +2367,13 @@ GlobalAttr($$$$)
{
my ($type, $me, $name, $val) = @_;
return if($type ne "set");
if($type eq "del") {
my %noDel = ( verbose=>1, modpath=>1, logfile=>1, featurelevel=>1 );
return "The global attribute $name cannot be deleted" if($noDel{$name});
return undef;
}
return undef if($type ne "set");
################
if($name eq "logfile") {
my @t = localtime;