Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_HMinfo.pm:update internal queue handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19495 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2019-05-30 09:17:45 +00:00
parent db679d748c
commit 8346c9c2ad
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
FHEM/98_HMinfo.pm
View File

@ -412,7 +412,7 @@ sub HMinfo_autoUpdate($){#in:name, send status-request#########################
(undef,$name)=split":",$name,2;
HMinfo_SetFn($defs{$name},$name,"update") if ($name);
if (AttrVal($name,"autoArchive",undef) &&
scalar(@{$modules{CUL_HM}{helper}{confUpdt}})){
scalar(keys%{$modules{CUL_HM}{helper}{confUpdt}})){
my $fn = HMinfo_getConfigFile($name,"configFilename",undef);
HMinfo_archConfig($defs{$name},$name,"",$fn);
}
@ -2073,7 +2073,7 @@ sub HMinfo_archConfig($$$$) {##################################################
"HMinfo_archConfigPost", 30,
"HMinfo_bpAbort", "$name:$id");
$hash->{nb}{$id}{$_} = $bl->{$_} foreach (keys %{$bl});
@{$modules{CUL_HM}{helper}{confUpdt}} = ();
delete $modules{CUL_HM}{helper}{confUpdt}{$_} foreach (keys %{$modules{CUL_HM}{helper}{confUpdt}});
return ;
}
sub HMinfo_archConfigExec($) {################################################
@ -2081,10 +2081,10 @@ sub HMinfo_archConfigExec($) {################################################
my ($id,$fN,$opt) = split ",",shift;
my @eN;
if ($opt eq "-a"){@eN = HMinfo_getEntities("d","");}
else {@eN = @{$modules{CUL_HM}{helper}{confUpdt}}}
else {@eN = keys %{$modules{CUL_HM}{helper}{confUpdt}}}
my @names;
push @names,(CUL_HM_getAssChnNames($_),$_) foreach(@eN);
@{$modules{CUL_HM}{helper}{confUpdt}} = ();
delete $modules{CUL_HM}{helper}{confUpdt}{$_} foreach (keys %{$modules{CUL_HM}{helper}{confUpdt}});
my @archs;
@eN = ();
foreach(HMinfo_noDup(@names)){
@ -2106,7 +2106,7 @@ sub HMinfo_archConfigPost($) {################################################
my @arr = split(",",shift);
my ($name,$id,$cl) = split(";",$arr[0]);
shift @arr;
push @{$modules{CUL_HM}{helper}{confUpdt}},@arr;
$modules{CUL_HM}{helper}{confUpdt}{$_} = 1 foreach (@arr);
delete $defs{$name}{nb}{$id};
return ;
}