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

HMCCU: bug fixes and formatting of STATE

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10191 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fhemzap 2015-12-17 13:15:22 +00:00
parent c62679e38d
commit 65564f7c4d
1 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
fhem/contrib/HMCCU/88_HMCCU.pm
View File

@ -128,6 +128,7 @@ sub HMCCU_SetVariable ($$$);
sub HMCCU_GetChannel ($$);
sub HMCCU_RPCGetConfig ($$$);
sub HMCCU_RPCSetConfig ($$$);
sub HMCCU_State ($);
#####################################
@ -1007,7 +1008,7 @@ sub HMCCU_CheckProcess ($)
{
my ($hash) = @_;
my $pdump = `ps -ef | grep ccurpcd | grep -v grep`;
my $pdump = `ps -ef | grep ccurpcd\.pl | grep -v grep`;
my @plist = split "\n", $pdump;
foreach my $proc (@plist) {
@ -1837,6 +1838,33 @@ sub HMCCU_RPCSetConfig ($$$)
return 0;
}
####################################################
# Return string for internal STATE. This function
# can be used in attribute stateFormat.
####################################################
sub HMCCU_State ($)
{
my ($name) = @_;
my $hash = $defs{$name};
my $sf = AttrVal ($name, 'ccustate', '');
return ReadingsVal ($name, 'state', '') if ($sf eq '');
my $st = $sf;
my $r = $hash->{READINGS};
if ($r->{state}{VAL} ne "Error") {
$st =~ s/\b([A-Za-z\d_\.\:-]+)\b/($r->{$1} ? $r->{$1}{VAL} : $1)/ge;
}
else {
$st = "Error";
}
return $st;
}
1;