- # expand newsgroup with hierarchies
- my @Newsgroups = ParseHierarchies($_);
- # add each empty newsgroup and empty hierarchies, too, as needed
- foreach (@Newsgroups) {
- if (!defined($Postings{$_})) {
- $Postings{$_} = 0;
- warn (sprintf("ADDED: %s as empty group\n",$_));
+ # add current newsgroup as empty group
+ $Postings{$_} = 0;
+ warn (sprintf("ADDED: %s as empty group\n",$_));
+ # add empty hierarchies for current newsgroup as needed
+ foreach (ParseHierarchies($_)) {
+ my $Hierarchy = $_ . '.ALL';
+ if (!defined($Postings{$Hierarchy})) {
+ $Postings{$Hierarchy} = 0;
+ warn (sprintf("ADDED: %s as empty group\n",$Hierarchy));