FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

added readonly attribute

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3836 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2013-09-02 11:19:35 +00:00
parent 995566913d
commit 271959a6c1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/36_PCA301.pm
View File

@ -116,10 +116,10 @@ PCA301_Set($@)
$cmd = ReadingsVal($name,"state","on") eq "off" ? "on" :"off"; $cmd = ReadingsVal($name,"state","on") eq "off" ? "on" :"off";
} }
if( $cmd eq 'off' ) { if( !$readonly && $cmd eq 'off' ) {
readingsSingleUpdate($hash, "state", "set-$cmd", 1); readingsSingleUpdate($hash, "state", "set-$cmd", 1);
PCA301_Send( $hash, 0x05, 0x00 ); PCA301_Send( $hash, 0x05, 0x00 );
} elsif( $cmd eq 'on' ) { } elsif( !$readonly && $cmd eq 'on' ) {
readingsSingleUpdate($hash, "state", "set-$cmd", 1); readingsSingleUpdate($hash, "state", "set-$cmd", 1);
PCA301_Send( $hash, 0x05, 0x01 ); PCA301_Send( $hash, 0x05, 0x01 );
} elsif( $cmd eq 'statusRequest' ) { } elsif( $cmd eq 'statusRequest' ) {
@ -208,11 +208,13 @@ PCA301_Parse($$)
$rhash->{PCA301_lastRcv} = TimeNow(); $rhash->{PCA301_lastRcv} = TimeNow();
my $readonly = AttrVal($name, "readonly", "0" );
if( $cmd eq 0x04 ) { if( $cmd eq 0x04 ) {
my $state = $data==0x00?"off":"on"; my $state = $data==0x00?"off":"on";
my $power = ($bytes[6]*256 + $bytes[7]) / 10.0; my $power = ($bytes[6]*256 + $bytes[7]) / 10.0;
my $consumption = ($bytes[8]*256 + $bytes[9]) / 100.0; my $consumption = ($bytes[8]*256 + $bytes[9]) / 100.0;
$state = $power if( AttrVal($rname, "readonly", "0" ) ne "0" ); $state = $power if( !$readonly );
readingsBeginUpdate($rhash); readingsBeginUpdate($rhash);
readingsBulkUpdate($rhash, "power", $power) if( $data != 0x00 || ReadingsVal($rname,"power","") != $power ); readingsBulkUpdate($rhash, "power", $power) if( $data != 0x00 || ReadingsVal($rname,"power","") != $power );
readingsBulkUpdate($rhash, "consumption", $consumption) if( ReadingsVal($rname,"consumption","") != $consumption ); readingsBulkUpdate($rhash, "consumption", $consumption) if( ReadingsVal($rname,"consumption","") != $consumption );