From 7169e2636f55da1809c88d48f78e7bc3718326fa Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Fri, 16 May 2025 21:00:13 +0200 Subject: [PATCH] Add more hosts and special cases. Signed-off-by: Thomas Hochstein --- bin/gatherstats.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/gatherstats.pl b/bin/gatherstats.pl index 1dc5b78..15b7ad4 100755 --- a/bin/gatherstats.pl +++ b/bin/gatherstats.pl @@ -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); };