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

hmInfo:extend configCheck

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9474 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-10-17 09:27:25 +00:00
parent d18aaa0f0b
commit 61c516844d
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/FHEM/10_CUL_HM.pm
View File

@ -5042,6 +5042,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
my $peerId = CUL_HM_name2Id($peerN);
return "please enter peer" if(!$peerId);
return "peer is not a channel" if(!$defs{$peerN}{helper}{role}{chn});
$peerId .= "01" if( length($peerId) == 6);
my @pCh;

8
fhem/FHEM/98_HMinfo.pm
View File

@ -1118,6 +1118,14 @@ sub HMinfo_GetFn($@) {#########################################################
push @tlr,"$e: $tr" if($tr);
}
$ret .= "\n\n templist mismatch \n ".join("\n ",@tlr) if (@tlr);
$ret .= "\n\n templateCheck: \n";
foreach my $dName (HMinfo_getEntities($opt."v",$filter)){
next if (!defined $defs{$dName}{helper}{tmpl});
foreach (keys %{$defs{$dName}{helper}{tmpl}}){
my ($p,$t)=split(">",$_);
$ret .= "\n ".HMinfo_templateChk($dName,$t,$p,split(" ",$defs{$dName}{helper}{tmpl}{$_}));
}
}
}
elsif($cmd eq "templateChk"){##template: see if it applies ------------------
my $repl;