X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=bin%2Fgatherstats.pl;h=b4f07d92827d4c5c10b1717c258a9037f514d78b;hp=6096417ba72906b037e68456f0a1cce9c5cda826;hb=44c197097be2f6ec7bd02fcc8cc8dc51c34311c5;hpb=23ab67a099e32a9ee8c0700fe46bc43680a60721 diff --git a/bin/gatherstats.pl b/bin/gatherstats.pl index 6096417..b4f07d9 100755 --- a/bin/gatherstats.pl +++ b/bin/gatherstats.pl @@ -13,7 +13,7 @@ # which Perl itself is published. BEGIN { - our $VERSION = "0.01"; + our $VERSION = "0.02"; use File::Basename; # we're in .../bin, so our module is in ../lib push(@INC, dirname($0).'/../lib'); @@ -73,6 +73,8 @@ $OptStatsType = 'all' if !$OptStatsType; ### get time period from --month # get verbal description of time period, drop SQL code my ($Period) = &GetTimePeriod($OptMonth); +# bail out if --month is invalid or set to 'ALL'; +# we don't support the latter &Bleat(2,"--month option has an invalid format - please use 'YYYY-MM' or ". "'YYYY-MM:YYYY-MM'!") if (!$Period or $Period eq 'all time'); @@ -208,7 +210,7 @@ gatherstats - process statistical data from a raw source =head1 SYNOPSIS -B [B<-Vhdt>] [B<-m> I | I] [B<-s> I] [B<-c> I]] [B<--hierarchy> I] [B<--rawdb> I] [B<-groupsdb> I] [B<--clientsdb> I] [B<--hostsdb> I] [--conffile I] +B [B<-Vhdt>] [B<-m> I | I] [B<-s> I] [B<-c> I]] [B<--hierarchy> I] [B<--rawdb> I] [B<-groupsdb> I] [B<--clientsdb> I] [B<--hostsdb> I] [B<--conffile> I] =head1 REQUIREMENTS @@ -259,7 +261,8 @@ override that default through the B<--groupsdb> option. =head2 Configuration B will read its configuration from F -which should be present in the same directory via Config::Auto. +which should be present in etc/ via Config::Auto or from a configuration file +submitted by the B<--conffile> option. See L for an overview of possible configuration options. @@ -415,7 +418,7 @@ Thomas Hochstein =head1 COPYRIGHT AND LICENSE -Copyright (c) 2010-2012 Thomas Hochstein +Copyright (c) 2010-2013 Thomas Hochstein This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.