mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Marc Hoppe
2012-02-07 22:56:21 +01:00
committed by Marc Hoppe
parent f6216d23d4
commit 59c63c4f5d
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
FHEM/10_EnOcean.pm
View File

@@ -165,7 +165,7 @@ EnOcean_Set($@)
} elsif($st eq "eltakoDimmer") {
my $sendDimCmd=0;
my $time=AttrVal($name, "dimTime", 0);
my $time=AttrVal($name, "time", 0);
my $onoff=1;
my $dimVal=100;
$dimVal=$hash->{VALUE} if(defined $hash->{VALUE});
@@ -177,7 +177,7 @@ EnOcean_Set($@)
IOWrite($hash, "000A0001", $data); # len:000a optlen:00 pakettype:1(radio)
} elsif($cmd eq "dimto") {
return "Usage: $cmd percent" if(@a<2);
return "Usage: $cmd percent" if(@a<2 or $a[1]>100);
# for eltako relative (0-100) (but not compliant to EEP because DB0.2 is 0)
$dimVal=$a[1];
shift(@a);
@@ -227,11 +227,10 @@ EnOcean_Set($@)
IOWrite($hash, "000A0001", $data); # len:000a optlen:00 pakettype:1(radio)
} else {
my %eltakoRollCtrlCommands = ( down=>0x02, up=>0x01, stop=>0x00 );
my $usage = "Usage: (" . join("|", sort keys %eltakoRollCtrlCommands) . ") [time 0-255 sek]";
my $usage = "Usage: (" . join("|", sort keys %eltakoRollCtrlCommands) . ")";
my $rollcmd= $eltakoRollCtrlCommands{$cmd};
return $usage if( (!defined($rollcmd)) or (@a<1) );
my $time=0;
if(defined($a[1])) { $time=$a[1]; shift(@a); } # time
return $usage if(!defined($rollcmd));
my $time=AttrVal($name, "time", 0);
# EEP: A5/3F/7F Universal ???
my $idSrc=EnOcean_GetMyDeviceId($hash);
my $data=sprintf("A5%02X%02X%02X%02X%s00", 0, $time, $rollcmd, 0x08, $idSrc);