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

added readonly attribute

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

15
fhem/FHEM/36_PCA301.pm
View File

@ -25,8 +25,9 @@ PCA301_Initialize($)
$hash->{FingerprintFn} = "PCA301_Fingerprint";
$hash->{ParseFn} = "PCA301_Parse";
$hash->{AttrFn} = "PCA301_Attr";
$hash->{AttrList} = "IODev".
" $readingFnAttributes";
$hash->{AttrList} = "IODev"
." readonly:1"
." $readingFnAttributes";
}
sub
@ -69,7 +70,7 @@ PCA301_Define($$)
Log3 $name, 1, "$name: no I/O device";
}
$attr{$name}{devStateIcon} = 'on:on:toggle off:off:toggle .*:light_question:off' if( !defined( $attr{$name}{devStateIcon} ) );
$attr{$name}{devStateIcon} = 'on:on:toggle off:off:toggle set.*:light_question:off' if( !defined( $attr{$name}{devStateIcon} ) );
$attr{$name}{webCmd} = 'on:off:toggle:statusRequest' if( !defined( $attr{$name}{webCmd} ) );
CommandAttr( undef, "$name userReadings consumptionTotal:consumption monotonic {ReadingsVal(\$name,'consumption',0)}" ) if( !defined( $attr{$name}{userReadings} ) );
@ -106,7 +107,10 @@ PCA301_Set($@)
my $arg2 = $aa[2];
my $arg3 = $aa[3];
my $list = "identify:noArg off:noArg on:noArg toggle:noArg reset:noArg statusRequest:noArg";
my $readonly = AttrVal($name, "readonly", "0" );
my $list = "identify:noArg reset:noArg statusRequest:noArg";
$list .= " off:noArg on:noArg toggle:noArg" if( $readonly eq "0" );
if( $cmd eq 'toggle' ) {
$cmd = ReadingsVal($name,"state","on") eq "off" ? "on" :"off";
@ -208,6 +212,7 @@ PCA301_Parse($$)
my $state = $data==0x00?"off":"on";
my $power = ($bytes[6]*256 + $bytes[7]) / 10.0;
my $consumption = ($bytes[8]*256 + $bytes[9]) / 100.0;
$state = $power if( AttrVal($rname, "readonly", "0" ) ne "0" );
readingsBeginUpdate($rhash);
readingsBulkUpdate($rhash, "power", $power) if( $data != 0x00 || ReadingsVal($rname,"power","") != $power );
readingsBulkUpdate($rhash, "consumption", $consumption) if( ReadingsVal($rname,"consumption","") != $consumption );
@ -303,6 +308,8 @@ PCA301_Attr(@)
<a name="PCA301_Attr"></a>
<b>Attributes</b>
<ul>
<li>readonly<br>
if set to a value != 0 all switching commands (on, off, toggle, ...) will be disabled.</li>
</ul><br>
</ul>