thh/newsstats
1
0
Fork 0
Code Issues 4 Pull requests Packages Projects Releases Activity

Merge branch 'gatherstats' into next

Browse source 
* gatherstats:
  Get empty 'virtual' hierarchies working.
This commit is contained in:
Thomas Hochstein 2013-09-02 06:46:40 +02:00
parent 1c3adb8de2 1703b8e3b4
commit cce2fd0b7f
2 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
NewsStats.pm
View file

@ -33,6 +33,7 @@ require Exporter;
SplitPeriod
ListMonth
ListNewsgroups
ParseHierarchies
ReadGroupList
OutputData
FormatOutput

14
gatherstats.pl
View file

@ -19,7 +19,7 @@ BEGIN {
}
use strict;
use NewsStats qw(:DEFAULT :TimePeriods ListNewsgroups ReadGroupList);
use NewsStats qw(:DEFAULT :TimePeriods ListNewsgroups ParseHierarchies ReadGroupList);
use DBI;
use Getopt::Long qw(GetOptions);
@ -145,13 +145,15 @@ foreach my $Month (&ListMonth($Period)) {
if (%ValidGroups) {
foreach (sort keys %ValidGroups) {
if (!defined($Postings{$_})) {
# expand newsgroup with hierarchies
my @Newsgroups = ParseHierarchies($_);
# add each empty newsgroup and empty hierarchies, too, as needed
foreach (@Newsgroups) {
if (!defined($Postings{$_})) {
# 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));
};
};
}