Add more hosts and special cases.

Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2025-05-16 21:00:13 +02:00
parent 0ee389fc42
commit 7169e2636f

View file

@ -133,10 +133,10 @@ foreach my $Month (&ListMonth($Period)) {
### HostStats
if ($OptStatsType eq 'all' or $OptStatsType eq 'hosts') {
# define known hosts using subdomains
my @KnownHosts = qw(abavia.com aioe.org arcor-online.net arcor-ip.de news.astraweb.com read.cnntp.org
my @KnownHosts = qw(abavia.com aioe.org arcor-online.net arcor-ip.de astraweb.com read.cnntp.org
easynews.com eternal-september.org euro.net fernuni-hagen.de free.fr newsread.freenet.ag
googlegroups.com heirich.name news.neostrada.pl netcologne.de newsdawg.com newscene.com
news-service.com octanews.com .readnews.com wieslauf.sub.de highway.telekom.at
news-service.com octanews.com readnews.com wieslauf.sub.de highway.telekom.at
united-newsserver.de xennanews.com xlned.com xsnews.nl news.xs4all.nl);
&HostStats($DBHandle,$DBRaw,$DBHosts,$Month,$OptMID,$OptTest,$OptDebug,@KnownHosts);
};