Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

HM_Template: correct register filtering

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@24772 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2021-07-18 17:10:18 +00:00
parent 326a1b50f3
commit 7b7f134aaa
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
FHEM/98_HMtemplate.pm
View File

@ -620,13 +620,13 @@ sub HMtemplate_noDup(@) {#return list with no duplicates#######################
sub HMtemplate_sourceList($){ sub HMtemplate_sourceList($){
my $type = shift; my $type = shift;
my $match; my $match;
if ($type =~ m/peer-(Long|Short)/){$match = "RegL_03.*"} if ($type =~ m/peer-(Long|Short)/){$match = 'RegL_03.*'}
elsif($type =~ m/peer/ ){$match = "RegL_..\..*"} elsif($type =~ m/peer/ ){$match = 'RegL_..\..+'}
elsif($type eq "basic" ){$match = "RegL_..\."} elsif($type eq "basic" ){$match = 'RegL_..\.'}
my @list; my @list;
foreach my $e (devspec2array("TYPE=CUL_HM:FILTER=subType!=virtual")){ foreach my $e (grep{!$defs{$_}{helper}{role}{vrt}} devspec2array("TYPE=CUL_HM")){
my @l1 = grep/$match$/,CUL_HM_reglUsed($e); my @l1 = grep {$_ =~ m/$match$/} CUL_HM_reglUsed($e);
$_ = $e foreach(@l1); $_ = $e foreach(@l1);
push @list,@l1; push @list,@l1;
} }