Add known hosts.
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
parent
93b8d564ba
commit
f5aa649810
|
@ -133,9 +133,11 @@ foreach my $Month (&ListMonth($Period)) {
|
||||||
### HostStats
|
### HostStats
|
||||||
if ($OptStatsType eq 'all' or $OptStatsType eq 'hosts') {
|
if ($OptStatsType eq 'all' or $OptStatsType eq 'hosts') {
|
||||||
# define known hosts using subdomains
|
# define known hosts using subdomains
|
||||||
my @KnownHosts = qw(aioe.org arcor-online.net arcor-ip.de news.astraweb.com read.cnntp.org easynews.com eternal-september.org
|
my @KnownHosts = qw(aioe.org arcor-online.net arcor-ip.de news.astraweb.com read.cnntp.org easynews.com
|
||||||
fernuni-hagen.de free.fr newsread.freenet.ag googlegroups.com
|
eternal-september.org euro.net fernuni-hagen.de free.fr newsread.freenet.ag
|
||||||
news.neostrada.pl newsdawg.com newscene.com news-service.com octanews.com xsnews.nl news.xs4all.nl);
|
googlegroups.com news.neostrada.pl newsdawg.com newscene.com news-service.com
|
||||||
|
octanews.com wieslauf.sub.de highway.telekom.at united-newsserver.de xsnews.nl
|
||||||
|
news.xs4all.nl);
|
||||||
&HostStats($DBHandle,$DBRaw,$DBHosts,$Month,$OptMID,$OptTest,$OptDebug,@KnownHosts);
|
&HostStats($DBHandle,$DBRaw,$DBHosts,$Month,$OptMID,$OptTest,$OptDebug,@KnownHosts);
|
||||||
};
|
};
|
||||||
};
|
};
|
||||||
|
|
Loading…
Reference in a new issue