Signed-off-by: Thomas Hochstein <thh@inter.net>
#
# This script will log headers and other data to a database
# for further analysis by parsing a feed from INN.
#
# This script will log headers and other data to a database
# for further analysis by parsing a feed from INN.
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
-# It can be redistributed and/or modified under the same terms under
+# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
BEGIN {
# which Perl itself is published.
BEGIN {
#
# This script will gather statistical information from a database
# containing headers and other information from a INN feed.
#
# This script will gather statistical information from a database
# containing headers and other information from a INN feed.
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
-# It can be redistributed and/or modified under the same terms under
+# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
BEGIN {
# which Perl itself is published.
BEGIN {
Set processing period to a single month in YYYY-MM format or to a time
period between two month in YYYY-MM:YYYY-MM format (two month, separated
Set processing period to a single month in YYYY-MM format or to a time
period between two month in YYYY-MM:YYYY-MM format (two month, separated
=item B<-s>, B<--stats> I<type>
=item B<-s>, B<--stats> I<type>
#
# This script will get statistical data on newgroup usage
# from a database.
#
# This script will get statistical data on newgroup usage
# from a database.
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
-# It can be redistributed and/or modified under the same terms under
+# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
BEGIN {
# which Perl itself is published.
BEGIN {
Print this man page and exit.
Print this man page and exit.
-=item B<-m>, B<--month> I<YYYY-MM[:YYYY-MM]|all>
+=item B<-m>, B<--month> I<YYYY-MM[:YYYY-MM]|all>
Set processing period to a single month in YYYY-MM format or to a time
period between two month in YYYY-MM:YYYY-MM format (two month, separated
Set processing period to a single month in YYYY-MM format or to a time
period between two month in YYYY-MM:YYYY-MM format (two month, separated
# install.pl
#
# This script will create database tables as necessary.
# install.pl
#
# This script will create database tables as necessary.
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
# It is part of the NewsStats package.
#
# Copyright (c) 2010-2013 Thomas Hochstein <thh@inter.net>
#
-# It can be redistributed and/or modified under the same terms under
+# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
BEGIN {
# which Perl itself is published.
BEGIN {
&CreateTable($Table);
};
print "Database table generation done.\n";
&CreateTable($Table);
};
print "Database table generation done.\n";
# Display install instructions
print $Install;
} else {
# Display install instructions
print $Install;
} else {