FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 16:59:18 +00:00
Code Issues Releases Wiki Activity

33_readingsProxy.pm: fixed check for ''. see forum https://forum.fhem.de/index.php/topic,69851.0/topicseen.html

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13861 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2017-03-31 21:41:57 +00:00
parent 61f5d57562
commit 195f79374e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/33_readingsProxy.pm
View File

@ -132,7 +132,7 @@ readingsProxy_update($$)
my $value_fn = eval $value_fn;
Log3 $name, 3, $name .": valueFn: ". $@ if($@);
return undef if( !defined($value_fn) );
$value = $value_fn if( $value_fn );
$value = $value_fn if( $value_fn ne '' );
}
if( AttrVal($name, 'event-on-change-reading', undef ) || AttrVal($name, 'event-on-update-reading', undef ) ) {
@ -256,7 +256,7 @@ readingsProxy_Set($@)
readingsSingleUpdate($hash, "lastCmd", $a[0], 0);
return undef if( !defined($set_fn) );
$v = $set_fn if( $set_fn );
$v = $set_fn if( $set_fn ne '' );
} else {
readingsSingleUpdate($hash, "lastCmd", $a[0], 0);
}
@ -304,7 +304,7 @@ readingsProxy_Get($@)
Log3 $name, 3, $name .": getFn: ". $@ if($@);
return $get_fn if($direct_return);
return undef if( !defined($get_fn) );
$v = $get_fn if( $get_fn );
$v = $get_fn if( $get_fn ne '' );
}
if( $hash->{INGET} ) {
@ -402,14 +402,14 @@ readingsProxy_Attr($$$;$)
perl expresion that will return the get command forwarded to the parent device.
has access to $DEVICE, $READING, $CMD and $ARGS.<br>
undef -> do nothing<br>
"" -> pass-through<br>
"" -> pass through<br>
(<value>,1) -> directly return <value>, don't call parent getFn<br>
everything else -> use this instead</li>
<li>setFn<br>
perl expresion that will return the set command forwarded to the parent device.
has access to $CMD, $DEVICE, $READING and $ARGS.<br>
undef -> do nothing<br>
"" -> pass-through<br>
"" -> pass through<br>
everything else -> use this instead<br>
Examples:<br>
<code>attr myProxy setFn {($CMD eq "on")?"off":"on"}</code>
@ -418,7 +418,7 @@ readingsProxy_Attr($$$;$)
perl expresion that will return the value that sould be used as state.
has access to $LASTCMD, $DEVICE, $READING and $VALUE.<br>
undef -> do nothing<br>
"" -> pass-through<br>
"" -> pass through<br>
everything else -> use this instead<br>
Examples:<br>
<code>attr myProxy valueFn {($VALUE == 0)?"off":"on"}</code>