Compare commits
No commits in common. "next" and "master" have entirely different histories.
2
.gitignore
vendored
2
.gitignore
vendored
|
@ -1,3 +1,3 @@
|
||||||
tmp/
|
tmp/
|
||||||
tmp/*
|
tmp/*
|
||||||
etc/newsstats.conf
|
newsstats.conf
|
||||||
|
|
|
@ -49,24 +49,20 @@ require Exporter;
|
||||||
Output => [qw(OutputData FormatOutput)],
|
Output => [qw(OutputData FormatOutput)],
|
||||||
SQLHelper => [qw(SQLHierarchies SQLSortOrder SQLGroupList
|
SQLHelper => [qw(SQLHierarchies SQLSortOrder SQLGroupList
|
||||||
SQLSetBounds SQLBuildClause GetMaxLength)]);
|
SQLSetBounds SQLBuildClause GetMaxLength)]);
|
||||||
$VERSION = '0.02';
|
$VERSION = '0.01';
|
||||||
our $PackageVersion = '0.02';
|
our $PackageVersion = '0.01';
|
||||||
|
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
use Cwd qw(realpath);
|
|
||||||
|
|
||||||
use Config::Auto;
|
use Config::Auto;
|
||||||
use DBI;
|
use DBI;
|
||||||
|
|
||||||
#####-------------------------------- Vars --------------------------------#####
|
#####-------------------------------- Vars --------------------------------#####
|
||||||
|
|
||||||
# save $0 in $FullPath
|
# trim the path
|
||||||
our $FullPath = $0;
|
our $FullPath = $0;
|
||||||
# strip filename and /bin or /install directory to create the $HomePath
|
our $HomePath = dirname($0);
|
||||||
our $HomePath = dirname(realpath($0));
|
|
||||||
$HomePath =~ s/\/(bin|install)//;
|
|
||||||
# trim $0
|
|
||||||
$0 =~ s%.*/%%;
|
$0 =~ s%.*/%%;
|
||||||
# set version string
|
# set version string
|
||||||
our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)";
|
our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)";
|
||||||
|
@ -80,7 +76,7 @@ sub ShowVersion {
|
||||||
################################################################################
|
################################################################################
|
||||||
### display version and exit
|
### display version and exit
|
||||||
print "NewsStats v$PackageVersion\n$MyVersion\n";
|
print "NewsStats v$PackageVersion\n$MyVersion\n";
|
||||||
print "Copyright (c) 2010-2013 Thomas Hochstein <thh\@inter.net>\n";
|
print "Copyright (c) 2010-2012 Thomas Hochstein <thh\@inter.net>\n";
|
||||||
print "This program is free software; you may redistribute it ".
|
print "This program is free software; you may redistribute it ".
|
||||||
"and/or modify it under the same terms as Perl itself.\n";
|
"and/or modify it under the same terms as Perl itself.\n";
|
||||||
exit(100);
|
exit(100);
|
||||||
|
@ -103,8 +99,6 @@ sub ReadConfig {
|
||||||
### IN : $ConfFile: config filename
|
### IN : $ConfFile: config filename
|
||||||
### OUT: reference to a hash containing the configuration
|
### OUT: reference to a hash containing the configuration
|
||||||
my ($ConfFile) = @_;
|
my ($ConfFile) = @_;
|
||||||
# set default
|
|
||||||
$ConfFile = $HomePath . '/etc/newsstats.conf' if !$ConfFile;
|
|
||||||
# mandatory configuration options
|
# mandatory configuration options
|
||||||
my @Mandatory = ('DBDriver','DBHost','DBUser','DBPw','DBDatabase',
|
my @Mandatory = ('DBDriver','DBHost','DBUser','DBPw','DBDatabase',
|
||||||
'DBTableRaw','DBTableGrps');
|
'DBTableRaw','DBTableGrps');
|
||||||
|
@ -244,7 +238,7 @@ sub ReadGroupList {
|
||||||
### ignoring everything after the first whitespace and so accepting files
|
### ignoring everything after the first whitespace and so accepting files
|
||||||
### in checkgroups format as well as (parts of) an INN active file)
|
### in checkgroups format as well as (parts of) an INN active file)
|
||||||
### IN : $Filename : file to read
|
### IN : $Filename : file to read
|
||||||
### OUT: \%ValidGroups: reference to a hash containing all valid newsgroups
|
### OUT: \%ValidGroups: hash containing all valid newsgroups
|
||||||
my ($Filename) = @_;
|
my ($Filename) = @_;
|
||||||
my %ValidGroups;
|
my %ValidGroups;
|
||||||
open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
|
open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
|
||||||
|
@ -674,7 +668,7 @@ sub SQLSetBounds {
|
||||||
### OUT: SQL code to become part of a WHERE or HAVING clause
|
### OUT: SQL code to become part of a WHERE or HAVING clause
|
||||||
my ($Type,$LowBound,$UppBound) = @_;
|
my ($Type,$LowBound,$UppBound) = @_;
|
||||||
($LowBound,$UppBound) = SQLCheckNumber($LowBound,$UppBound);
|
($LowBound,$UppBound) = SQLCheckNumber($LowBound,$UppBound);
|
||||||
if($LowBound and defined($UppBound) and $LowBound > $UppBound) {
|
if($LowBound and $UppBound and $LowBound > $UppBound) {
|
||||||
&Bleat(1,"Lower boundary $LowBound is larger than Upper boundary ".
|
&Bleat(1,"Lower boundary $LowBound is larger than Upper boundary ".
|
||||||
"$UppBound, exchanging boundaries.");
|
"$UppBound, exchanging boundaries.");
|
||||||
($LowBound,$UppBound) = ($UppBound,$LowBound);
|
($LowBound,$UppBound) = ($UppBound,$LowBound);
|
||||||
|
@ -690,7 +684,7 @@ sub SQLSetBounds {
|
||||||
} elsif ($Type eq 'sum') {
|
} elsif ($Type eq 'sum') {
|
||||||
$WhereHavingFunction = 'SUM(postings)'
|
$WhereHavingFunction = 'SUM(postings)'
|
||||||
}
|
}
|
||||||
$LowBound = sprintf('%s >= '.$LowBound,$WhereHavingFunction) if defined($LowBound);
|
$LowBound = sprintf('%s >= '.$LowBound,$WhereHavingFunction) if ($LowBound);
|
||||||
# set $LowBound to SQL statement:
|
# set $LowBound to SQL statement:
|
||||||
# 'WHERE postings <=', 'HAVING MAX(postings) <=' or 'HAVING AVG(postings) <='
|
# 'WHERE postings <=', 'HAVING MAX(postings) <=' or 'HAVING AVG(postings) <='
|
||||||
if ($Type eq 'level') {
|
if ($Type eq 'level') {
|
||||||
|
@ -700,7 +694,7 @@ sub SQLSetBounds {
|
||||||
} elsif ($Type eq 'sum') {
|
} elsif ($Type eq 'sum') {
|
||||||
$WhereHavingFunction = 'SUM(postings)'
|
$WhereHavingFunction = 'SUM(postings)'
|
||||||
}
|
}
|
||||||
$UppBound = sprintf('%s <= '.$UppBound,$WhereHavingFunction) if defined($UppBound);
|
$UppBound = sprintf('%s <= '.$UppBound,$WhereHavingFunction) if ($UppBound);
|
||||||
return ($LowBound,$UppBound);
|
return ($LowBound,$UppBound);
|
||||||
};
|
};
|
||||||
|
|
||||||
|
@ -776,3 +770,5 @@ sub CheckValidNewsgroups {
|
||||||
|
|
||||||
#####------------------------------- done ---------------------------------#####
|
#####------------------------------- done ---------------------------------#####
|
||||||
1;
|
1;
|
||||||
|
|
||||||
|
|
15
README.md
15
README.md
|
@ -1,15 +0,0 @@
|
||||||
# NewsStats
|
|
||||||
|
|
||||||
**NewsStats** is a software package to extract live data from an INN newsfeed and generate statistics from it.
|
|
||||||
|
|
||||||
## Description
|
|
||||||
|
|
||||||
**NewsStats** stores overview data and complete headers of all incoming postings (in one or more specific Usenet hierarchies) in real time in a MySQL database. This raw dataset can then be analysed regularly, e.g. monthly, for instance in terms of postings per group and month. The analysis results will also be stored in a database which in turn can be used to generate various reports.
|
|
||||||
|
|
||||||
The software package is still under development.
|
|
||||||
|
|
||||||
It is currently used to generate the monthly statistics posted to `de.admin.news.lists` for the de.\* hierarchy.
|
|
||||||
|
|
||||||
## More information
|
|
||||||
|
|
||||||
Please see the [distribution page](https://th-h.de/net/software/newsstats/) (in German).
|
|
|
@ -28,8 +28,8 @@ INSTALLATION INSTRUCTIONS
|
||||||
* Copy the sample configuration file newsstats.conf.sample to
|
* Copy the sample configuration file newsstats.conf.sample to
|
||||||
newsstats.conf and modify it for your purposes:
|
newsstats.conf and modify it for your purposes:
|
||||||
|
|
||||||
# cp etc/newsstats.conf.sample etc/newsstats.conf
|
# cp newsstats.conf.sample newsstats.conf
|
||||||
# vim etc/newsstats.conf
|
# vim newsstats.conf
|
||||||
|
|
||||||
a) Mandatory configuration options
|
a) Mandatory configuration options
|
||||||
|
|
||||||
|
|
14
doc/README
14
doc/README
|
@ -73,15 +73,17 @@ Getting Started
|
||||||
Reporting Bugs
|
Reporting Bugs
|
||||||
|
|
||||||
You can report bugs or feature requests to the author using the
|
You can report bugs or feature requests to the author using the
|
||||||
issue tracker at <https://code.virtcomm.de/thh/newsstats/issues>.
|
bug tracker at <http://bugs.th-h.de/>.
|
||||||
|
|
||||||
Please have a look at the TODO list before suggesting
|
Please have a look at the TODO list before suggesting
|
||||||
improvements.
|
improvements.
|
||||||
|
|
||||||
Development
|
More Information
|
||||||
|
|
||||||
This program is maintained using the Git version control system at
|
This program is maintained using the Git version control system.
|
||||||
<https://code.virtcomm.de/thh/newsstats/>.
|
You may clone <git://code.th-h.de/usenet/newsstats.git> to check
|
||||||
|
out the current development tree or browse it on the web via
|
||||||
|
<http://code.th-h.de/?p=usenet/newsstats.git>.
|
||||||
|
|
||||||
Related projects
|
Related projects
|
||||||
|
|
||||||
|
@ -91,6 +93,6 @@ Related projects
|
||||||
|
|
||||||
Author
|
Author
|
||||||
|
|
||||||
Thomas Hochstein <thh@thh.name>
|
Thomas Hochstein <thh@inter.net>
|
||||||
<https://th-h.de/>
|
<http://th-h.de/>
|
||||||
|
|
||||||
|
|
17
doc/TODO
17
doc/TODO
|
@ -4,6 +4,8 @@
|
||||||
This is a list of planned bug fixes, improvements and enhancements for
|
This is a list of planned bug fixes, improvements and enhancements for
|
||||||
NewsStats.
|
NewsStats.
|
||||||
|
|
||||||
|
Bug numbers refer to the Mantis issue tracker at <http://bugs.th-h.de/>.
|
||||||
|
|
||||||
* General
|
* General
|
||||||
- Improve Documentation
|
- Improve Documentation
|
||||||
The documentation is rather sparse and could use some improvement.
|
The documentation is rather sparse and could use some improvement.
|
||||||
|
@ -16,7 +18,7 @@ NewsStats.
|
||||||
to /usr/local/news/etc or /etc/news and so on
|
to /usr/local/news/etc or /etc/news and so on
|
||||||
|
|
||||||
* Additional features
|
* Additional features
|
||||||
- Add hierarchy information (GroupInfo)
|
- Add hierarchy information (GroupInfo - Bugs #19 #20 #21 #22 #23 #24 #25 #26)
|
||||||
NewsStats should be able to recognize invalid (i.e. officially not existing)
|
NewsStats should be able to recognize invalid (i.e. officially not existing)
|
||||||
newsgroups and - optionally - drop them from the list of groups. On the
|
newsgroups and - optionally - drop them from the list of groups. On the
|
||||||
other hand, it should recognize existing, but empty groups and add them with
|
other hand, it should recognize existing, but empty groups and add them with
|
||||||
|
@ -35,19 +37,6 @@ NewsStats.
|
||||||
NewsStats should offer tools e.g. to inject postings into the 'raw' database,
|
NewsStats should offer tools e.g. to inject postings into the 'raw' database,
|
||||||
or to split databases.
|
or to split databases.
|
||||||
|
|
||||||
* GroupInfo project
|
|
||||||
- Create a hierarchy information database, containing information on each
|
|
||||||
newsgroup, its creation and removal time, its tagline, charter and
|
|
||||||
moderation status, including the moderator contact address.
|
|
||||||
- Automatically update hierarchy information, e.g. by parsing control messages
|
|
||||||
(with verification!).
|
|
||||||
- Track changes in meta information (changes to tagline, charter, moderation
|
|
||||||
status etc.)
|
|
||||||
- Add tools to query for hierarchy information:
|
|
||||||
- canonical list of newsgroups for any given time
|
|
||||||
- generate list of changes for a time period
|
|
||||||
- find newsgroups (including wildcards) and display their history
|
|
||||||
|
|
||||||
* Individual improvements
|
* Individual improvements
|
||||||
+ NewsStats.pm
|
+ NewsStats.pm
|
||||||
- Improve error handling when reading config
|
- Improve error handling when reading config
|
||||||
|
|
|
@ -7,16 +7,15 @@
|
||||||
#
|
#
|
||||||
# It is part of the NewsStats package.
|
# It is part of the NewsStats package.
|
||||||
#
|
#
|
||||||
# Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
# 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.
|
# which Perl itself is published.
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
our $VERSION = "0.02";
|
our $VERSION = "0.01";
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
# we're in .../bin, so our module is in ../lib
|
push(@INC, dirname($0));
|
||||||
push(@INC, dirname($0).'/../lib');
|
|
||||||
}
|
}
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
@ -69,15 +68,14 @@ sub PrepareDB {
|
||||||
################################# Main program #################################
|
################################# Main program #################################
|
||||||
|
|
||||||
### read commandline options
|
### read commandline options
|
||||||
my ($OptDebug,$OptQuiet,$OptConfFile);
|
my ($OptDebug,$OptQuiet);
|
||||||
GetOptions ('d|debug!' => \$OptDebug,
|
GetOptions ('d|debug!' => \$OptDebug,
|
||||||
'q|test!' => \$OptQuiet,
|
'q|test!' => \$OptQuiet,
|
||||||
'conffile=s' => \$OptConfFile,
|
|
||||||
'h|help' => \&ShowPOD,
|
'h|help' => \&ShowPOD,
|
||||||
'V|version' => \&ShowVersion) or exit 1;
|
'V|version' => \&ShowVersion) or exit 1;
|
||||||
|
|
||||||
### read configuration
|
### read configuration
|
||||||
my %Conf = %{ReadConfig($OptConfFile)};
|
my %Conf = %{ReadConfig($HomePath.'/newsstats.conf')};
|
||||||
|
|
||||||
### init syslog
|
### init syslog
|
||||||
openlog($0, 'nofatal,pid', LOG_NEWS);
|
openlog($0, 'nofatal,pid', LOG_NEWS);
|
||||||
|
@ -153,7 +151,7 @@ feedlog - log data from an INN feed to a database
|
||||||
|
|
||||||
=head1 SYNOPSIS
|
=head1 SYNOPSIS
|
||||||
|
|
||||||
B<feedlog> [B<-Vhdq>] [B<--conffile> I<filename>]
|
B<feedlog> [B<-Vhdq>]
|
||||||
|
|
||||||
=head1 REQUIREMENTS
|
=head1 REQUIREMENTS
|
||||||
|
|
||||||
|
@ -174,8 +172,7 @@ terminating would only result in a rapid respawn.
|
||||||
=head2 Configuration
|
=head2 Configuration
|
||||||
|
|
||||||
B<feedlog> will read its configuration from F<newsstats.conf> which
|
B<feedlog> will read its configuration from F<newsstats.conf> which
|
||||||
should be present in etc/ via Config::Auto or from a configuration file
|
should be present in the same directory via Config::Auto.
|
||||||
submitted by the B<--conffile> option.
|
|
||||||
|
|
||||||
See L<doc/INSTALL> for an overview of possible configuration options.
|
See L<doc/INSTALL> for an overview of possible configuration options.
|
||||||
|
|
||||||
|
@ -200,10 +197,6 @@ find that information most probably in your B<INN> F<errlog> file.
|
||||||
|
|
||||||
Suppress logging to syslog.
|
Suppress logging to syslog.
|
||||||
|
|
||||||
=item B<--conffile> I<filename>
|
|
||||||
|
|
||||||
Load configuration from I<filename> instead of F<newsstats.conf>.
|
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
=head1 INSTALLATION
|
=head1 INSTALLATION
|
||||||
|
@ -225,15 +218,15 @@ See L<doc/INSTALL> for further information.
|
||||||
|
|
||||||
=over 4
|
=over 4
|
||||||
|
|
||||||
=item F<bin/feedlog.pl>
|
=item F<feedlog.pl>
|
||||||
|
|
||||||
The script itself.
|
The script itself.
|
||||||
|
|
||||||
=item F<lib/NewsStats.pm>
|
=item F<NewsStats.pm>
|
||||||
|
|
||||||
Library functions for the NewsStats package.
|
Library functions for the NewsStats package.
|
||||||
|
|
||||||
=item F<etc/newsstats.conf>
|
=item F<newsstats.conf>
|
||||||
|
|
||||||
Runtime configuration file.
|
Runtime configuration file.
|
||||||
|
|
||||||
|
@ -242,7 +235,7 @@ Runtime configuration file.
|
||||||
=head1 BUGS
|
=head1 BUGS
|
||||||
|
|
||||||
Please report any bugs or feature requests to the author or use the
|
Please report any bugs or feature requests to the author or use the
|
||||||
bug tracker at L<https://code.virtcomm.de/thh/newsstats/issues>!
|
bug tracker at L<http://bugs.th-h.de/>!
|
||||||
|
|
||||||
=head1 SEE ALSO
|
=head1 SEE ALSO
|
||||||
|
|
||||||
|
@ -262,11 +255,11 @@ This script is part of the B<NewsStats> package.
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|
||||||
Thomas Hochstein <thh@thh.name>
|
Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
=head1 COPYRIGHT AND LICENSE
|
=head1 COPYRIGHT AND LICENSE
|
||||||
|
|
||||||
Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
Copyright (c) 2010-2012 Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
This program is free software; you may redistribute it and/or modify it
|
This program is free software; you may redistribute it and/or modify it
|
||||||
under the same terms as Perl itself.
|
under the same terms as Perl itself.
|
|
@ -7,16 +7,15 @@
|
||||||
#
|
#
|
||||||
# It is part of the NewsStats package.
|
# It is part of the NewsStats package.
|
||||||
#
|
#
|
||||||
# Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
# 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.
|
# which Perl itself is published.
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
our $VERSION = "0.02";
|
our $VERSION = "0.01";
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
# we're in .../bin, so our module is in ../lib
|
push(@INC, dirname($0));
|
||||||
push(@INC, dirname($0).'/../lib');
|
|
||||||
}
|
}
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
@ -38,7 +37,7 @@ my %LegalStats;
|
||||||
|
|
||||||
### read commandline options
|
### read commandline options
|
||||||
my ($OptCheckgroupsFile,$OptClientsDB,$OptDebug,$OptGroupsDB,$OptTLH,
|
my ($OptCheckgroupsFile,$OptClientsDB,$OptDebug,$OptGroupsDB,$OptTLH,
|
||||||
$OptHostsDB,$OptMonth,$OptRawDB,$OptStatsType,$OptTest,$OptConfFile);
|
$OptHostsDB,$OptMonth,$OptRawDB,$OptStatsType,$OptTest);
|
||||||
GetOptions ('c|checkgroups=s' => \$OptCheckgroupsFile,
|
GetOptions ('c|checkgroups=s' => \$OptCheckgroupsFile,
|
||||||
'clientsdb=s' => \$OptClientsDB,
|
'clientsdb=s' => \$OptClientsDB,
|
||||||
'd|debug!' => \$OptDebug,
|
'd|debug!' => \$OptDebug,
|
||||||
|
@ -49,12 +48,11 @@ GetOptions ('c|checkgroups=s' => \$OptCheckgroupsFile,
|
||||||
'rawdb=s' => \$OptRawDB,
|
'rawdb=s' => \$OptRawDB,
|
||||||
's|stats=s' => \$OptStatsType,
|
's|stats=s' => \$OptStatsType,
|
||||||
't|test!' => \$OptTest,
|
't|test!' => \$OptTest,
|
||||||
'conffile=s' => \$OptConfFile,
|
|
||||||
'h|help' => \&ShowPOD,
|
'h|help' => \&ShowPOD,
|
||||||
'V|version' => \&ShowVersion) or exit 1;
|
'V|version' => \&ShowVersion) or exit 1;
|
||||||
|
|
||||||
### read configuration
|
### read configuration
|
||||||
my %Conf = %{ReadConfig($OptConfFile)};
|
my %Conf = %{ReadConfig($HomePath.'/newsstats.conf')};
|
||||||
|
|
||||||
### override configuration via commandline options
|
### override configuration via commandline options
|
||||||
my %ConfOverride;
|
my %ConfOverride;
|
||||||
|
@ -73,8 +71,6 @@ $OptStatsType = 'all' if !$OptStatsType;
|
||||||
### get time period from --month
|
### get time period from --month
|
||||||
# get verbal description of time period, drop SQL code
|
# get verbal description of time period, drop SQL code
|
||||||
my ($Period) = &GetTimePeriod($OptMonth);
|
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 ".
|
&Bleat(2,"--month option has an invalid format - please use 'YYYY-MM' or ".
|
||||||
"'YYYY-MM:YYYY-MM'!") if (!$Period or $Period eq 'all time');
|
"'YYYY-MM:YYYY-MM'!") if (!$Period or $Period eq 'all time');
|
||||||
|
|
||||||
|
@ -210,7 +206,7 @@ gatherstats - process statistical data from a raw source
|
||||||
|
|
||||||
=head1 SYNOPSIS
|
=head1 SYNOPSIS
|
||||||
|
|
||||||
B<gatherstats> [B<-Vhdt>] [B<-m> I<YYYY-MM> | I<YYYY-MM:YYYY-MM>] [B<-s> I<stats>] [B<-c> I<filename template>]] [B<--hierarchy> I<TLH>] [B<--rawdb> I<database table>] [B<-groupsdb> I<database table>] [B<--clientsdb> I<database table>] [B<--hostsdb> I<database table>] [B<--conffile> I<filename>]
|
B<gatherstats> [B<-Vhdt>] [B<-m> I<YYYY-MM> | I<YYYY-MM:YYYY-MM>] [B<-s> I<stats>] [B<-c> I<filename template>]] [B<--hierarchy> I<TLH>] [B<--rawdb> I<database table>] [B<-groupsdb> I<database table>] [B<--clientsdb> I<database table>] [B<--hostsdb> I<database table>]
|
||||||
|
|
||||||
=head1 REQUIREMENTS
|
=head1 REQUIREMENTS
|
||||||
|
|
||||||
|
@ -261,8 +257,7 @@ override that default through the B<--groupsdb> option.
|
||||||
=head2 Configuration
|
=head2 Configuration
|
||||||
|
|
||||||
B<gatherstats> will read its configuration from F<newsstats.conf>
|
B<gatherstats> will read its configuration from F<newsstats.conf>
|
||||||
which should be present in etc/ via Config::Auto or from a configuration file
|
which should be present in the same directory via Config::Auto.
|
||||||
submitted by the B<--conffile> option.
|
|
||||||
|
|
||||||
See L<doc/INSTALL> for an overview of possible configuration options.
|
See L<doc/INSTALL> for an overview of possible configuration options.
|
||||||
|
|
||||||
|
@ -344,10 +339,6 @@ Override I<DBTableClnts> from F<newsstats.conf>.
|
||||||
|
|
||||||
Override I<DBTableHosts> from F<newsstats.conf>.
|
Override I<DBTableHosts> from F<newsstats.conf>.
|
||||||
|
|
||||||
=item B<--conffile> I<filename>
|
|
||||||
|
|
||||||
Load configuration from I<filename> instead of F<newsstats.conf>.
|
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
=head1 INSTALLATION
|
=head1 INSTALLATION
|
||||||
|
@ -377,15 +368,15 @@ checking against checkgroups-*:
|
||||||
|
|
||||||
=over 4
|
=over 4
|
||||||
|
|
||||||
=item F<bin/gatherstats.pl>
|
=item F<gatherstats.pl>
|
||||||
|
|
||||||
The script itself.
|
The script itself.
|
||||||
|
|
||||||
=item F<lib/NewsStats.pm>
|
=item F<NewsStats.pm>
|
||||||
|
|
||||||
Library functions for the NewsStats package.
|
Library functions for the NewsStats package.
|
||||||
|
|
||||||
=item F<etc/newsstats.conf>
|
=item F<newsstats.conf>
|
||||||
|
|
||||||
Runtime configuration file.
|
Runtime configuration file.
|
||||||
|
|
||||||
|
@ -394,7 +385,7 @@ Runtime configuration file.
|
||||||
=head1 BUGS
|
=head1 BUGS
|
||||||
|
|
||||||
Please report any bugs or feature requests to the author or use the
|
Please report any bugs or feature requests to the author or use the
|
||||||
bug tracker at L<https://code.virtcomm.de/thh/newsstats/issues>!
|
bug tracker at L<http://bugs.th-h.de/>!
|
||||||
|
|
||||||
=head1 SEE ALSO
|
=head1 SEE ALSO
|
||||||
|
|
||||||
|
@ -414,11 +405,11 @@ This script is part of the B<NewsStats> package.
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|
||||||
Thomas Hochstein <thh@thh.name>
|
Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
=head1 COPYRIGHT AND LICENSE
|
=head1 COPYRIGHT AND LICENSE
|
||||||
|
|
||||||
Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
Copyright (c) 2010-2012 Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
This program is free software; you may redistribute it and/or modify it
|
This program is free software; you may redistribute it and/or modify it
|
||||||
under the same terms as Perl itself.
|
under the same terms as Perl itself.
|
|
@ -7,16 +7,15 @@
|
||||||
#
|
#
|
||||||
# It is part of the NewsStats package.
|
# It is part of the NewsStats package.
|
||||||
#
|
#
|
||||||
# Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
# 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.
|
# which Perl itself is published.
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
our $VERSION = "0.02";
|
our $VERSION = "0.01";
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
# we're in .../bin, so our module is in ../lib
|
push(@INC, dirname($0));
|
||||||
push(@INC, dirname($0).'/../lib');
|
|
||||||
}
|
}
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
@ -32,7 +31,7 @@ Getopt::Long::config ('bundling');
|
||||||
### read commandline options
|
### read commandline options
|
||||||
my ($OptBoundType,$OptCaptions,$OptCheckgroupsFile,$OptComments,
|
my ($OptBoundType,$OptCaptions,$OptCheckgroupsFile,$OptComments,
|
||||||
$OptFileTemplate,$OptFormat,$OptGroupBy,$OptGroupsDB,$LowBound,$OptMonth,
|
$OptFileTemplate,$OptFormat,$OptGroupBy,$OptGroupsDB,$LowBound,$OptMonth,
|
||||||
$OptNewsgroups,$OptOrderBy,$OptReportType,$OptSums,$UppBound,$OptConfFile);
|
$OptNewsgroups,$OptOrderBy,$OptReportType,$OptSums,$UppBound);
|
||||||
GetOptions ('b|boundary=s' => \$OptBoundType,
|
GetOptions ('b|boundary=s' => \$OptBoundType,
|
||||||
'c|captions!' => \$OptCaptions,
|
'c|captions!' => \$OptCaptions,
|
||||||
'checkgroups=s' => \$OptCheckgroupsFile,
|
'checkgroups=s' => \$OptCheckgroupsFile,
|
||||||
|
@ -48,7 +47,6 @@ GetOptions ('b|boundary=s' => \$OptBoundType,
|
||||||
'r|report=s' => \$OptReportType,
|
'r|report=s' => \$OptReportType,
|
||||||
's|sums!' => \$OptSums,
|
's|sums!' => \$OptSums,
|
||||||
'u|upper=i' => \$UppBound,
|
'u|upper=i' => \$UppBound,
|
||||||
'conffile=s' => \$OptConfFile,
|
|
||||||
'h|help' => \&ShowPOD,
|
'h|help' => \&ShowPOD,
|
||||||
'V|version' => \&ShowVersion) or exit 1;
|
'V|version' => \&ShowVersion) or exit 1;
|
||||||
# parse parameters
|
# parse parameters
|
||||||
|
@ -78,19 +76,12 @@ if ($OptReportType) {
|
||||||
$OptReportType = 'default';
|
$OptReportType = 'default';
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
# honor $OptCheckgroupsFile,
|
|
||||||
# warn for $OptSums if set concurrently
|
|
||||||
my $ValidGroups;
|
|
||||||
if ($OptCheckgroupsFile) {
|
|
||||||
# read list of newsgroups from --checkgroups
|
# read list of newsgroups from --checkgroups
|
||||||
# into a hash reference
|
# into a hash reference
|
||||||
$ValidGroups = &ReadGroupList($OptCheckgroupsFile);
|
my $ValidGroups = &ReadGroupList($OptCheckgroupsFile) if $OptCheckgroupsFile;
|
||||||
&Bleat(1,"--sums option can't possibly work with --checkgroups option set")
|
|
||||||
if $OptSums;
|
|
||||||
}
|
|
||||||
|
|
||||||
### read configuration
|
### read configuration
|
||||||
my %Conf = %{ReadConfig($OptConfFile)};
|
my %Conf = %{ReadConfig($HomePath.'/newsstats.conf')};
|
||||||
|
|
||||||
### override configuration via commandline options
|
### override configuration via commandline options
|
||||||
my %ConfOverride;
|
my %ConfOverride;
|
||||||
|
@ -133,17 +124,12 @@ if ($OptBoundType and $OptBoundType ne 'default') {
|
||||||
}
|
}
|
||||||
|
|
||||||
### get sort order and build SQL 'ORDER BY' clause
|
### get sort order and build SQL 'ORDER BY' clause
|
||||||
# force to 'month' for $OptReportType 'average' or 'sum'
|
|
||||||
$OptGroupBy = 'month' if ($OptReportType and $OptReportType ne 'default');
|
|
||||||
# default to 'newsgroup' for $OptBoundType 'level' or 'average'
|
# default to 'newsgroup' for $OptBoundType 'level' or 'average'
|
||||||
$OptGroupBy = 'newsgroup' if (!$OptGroupBy and
|
$OptGroupBy = 'newsgroup' if (!$OptGroupBy and
|
||||||
$OptBoundType and $OptBoundType ne 'default');
|
$OptBoundType and $OptBoundType ne 'default');
|
||||||
# default to 'newsgroup' if $OptGroupBy is not set and
|
# force to 'month' for $OptReportType 'average' or 'sum'
|
||||||
# just one newsgroup is requested, but more than one month
|
$OptGroupBy = 'month' if ($OptReportType and $OptReportType ne 'default');
|
||||||
$OptGroupBy = 'newsgroup' if (!$OptGroupBy and $OptMonth and $OptMonth =~ /:/
|
|
||||||
and $OptNewsgroups and $OptNewsgroups !~ /[:*%]/);
|
|
||||||
# parse $OptGroupBy to $GroupBy, create ORDER BY clause $SQLOrderClause
|
# parse $OptGroupBy to $GroupBy, create ORDER BY clause $SQLOrderClause
|
||||||
# if $OptGroupBy is still not set, SQLSortOrder() will default to 'month'
|
|
||||||
my ($GroupBy,$SQLOrderClause) = SQLSortOrder($OptGroupBy, $OptOrderBy);
|
my ($GroupBy,$SQLOrderClause) = SQLSortOrder($OptGroupBy, $OptOrderBy);
|
||||||
# $GroupBy will contain 'month' or 'newsgroup' (parsed result of $OptGroupBy)
|
# $GroupBy will contain 'month' or 'newsgroup' (parsed result of $OptGroupBy)
|
||||||
# set it to 'month' or 'key' for OutputData()
|
# set it to 'month' or 'key' for OutputData()
|
||||||
|
@ -277,7 +263,7 @@ groupstats - create reports on newsgroup usage
|
||||||
|
|
||||||
=head1 SYNOPSIS
|
=head1 SYNOPSIS
|
||||||
|
|
||||||
B<groupstats> [B<-Vhcs> B<--comments>] [B<-m> I<YYYY-MM>[:I<YYYY-MM>] | I<all>] [B<-n> I<newsgroup(s)>] [B<--checkgroups> I<checkgroups file>] [B<-r> I<report type>] [B<-l> I<lower boundary>] [B<-u> I<upper boundary>] [B<-b> I<boundary type>] [B<-g> I<group by>] [B<-o> I<order by>] [B<-f> I<output format>] [B<--filetemplate> I<filename template>] [B<--groupsdb> I<database table>] [B<--conffile> I<filename>]
|
B<groupstats> [B<-Vhcs> B<--comments>] [B<-m> I<YYYY-MM>[:I<YYYY-MM>] | I<all>] [B<-n> I<newsgroup(s)>] [B<--checkgroups> I<checkgroups file>] [B<-r> I<report type>] [B<-l> I<lower boundary>] [B<-u> I<upper boundary>] [B<-b> I<boundary type>] [B<-g> I<group by>] [B<-o> I<order by>] [B<-f> I<output format>] [B<--filetemplate> I<filename template>] [B<--groupsdb> I<database table>]
|
||||||
|
|
||||||
=head1 REQUIREMENTS
|
=head1 REQUIREMENTS
|
||||||
|
|
||||||
|
@ -342,8 +328,7 @@ Captions and comments are automatically disabled in this case.
|
||||||
=head2 Configuration
|
=head2 Configuration
|
||||||
|
|
||||||
B<groupstats> will read its configuration from F<newsstats.conf>
|
B<groupstats> will read its configuration from F<newsstats.conf>
|
||||||
which should be present in etc/ via Config::Auto or from a configuration file
|
which should be present in the same directory via Config::Auto.
|
||||||
submitted by the B<--conffile> option.
|
|
||||||
|
|
||||||
See doc/INSTALL for an overview of possible configuration options.
|
See doc/INSTALL for an overview of possible configuration options.
|
||||||
|
|
||||||
|
@ -388,9 +373,6 @@ example:
|
||||||
|
|
||||||
See the B<gatherstats> man page for details.
|
See the B<gatherstats> man page for details.
|
||||||
|
|
||||||
This option does not work together with the B<--checkgroups> option as
|
|
||||||
all "virtual" groups will not be present in the checkgroups file.
|
|
||||||
|
|
||||||
=item B<--checkgroups> I<filename>
|
=item B<--checkgroups> I<filename>
|
||||||
|
|
||||||
Restrict output to those newgroups present in a file in checkgroups format
|
Restrict output to those newgroups present in a file in checkgroups format
|
||||||
|
@ -400,9 +382,6 @@ line is ignored). All other newsgroups will be removed from output.
|
||||||
Contrary to B<gatherstats>, I<filename> is not a template, but refers to
|
Contrary to B<gatherstats>, I<filename> is not a template, but refers to
|
||||||
a single file in checkgroups format.
|
a single file in checkgroups format.
|
||||||
|
|
||||||
The B<--sums> option will not work together with this option as "virtual"
|
|
||||||
groups will not be present in the checkgroups file.
|
|
||||||
|
|
||||||
=item B<-r>, B<--report> I<default|average|sums>
|
=item B<-r>, B<--report> I<default|average|sums>
|
||||||
|
|
||||||
Choose the report type: I<default>, I<average> or I<sums>
|
Choose the report type: I<default>, I<average> or I<sums>
|
||||||
|
@ -613,10 +592,6 @@ B<--nocomments> is enforced, see above.
|
||||||
|
|
||||||
Override I<DBTableGrps> from F<newsstats.conf>.
|
Override I<DBTableGrps> from F<newsstats.conf>.
|
||||||
|
|
||||||
=item B<--conffile> I<filename>
|
|
||||||
|
|
||||||
Load configuration from I<filename> instead of F<newsstats.conf>.
|
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
=head1 INSTALLATION
|
=head1 INSTALLATION
|
||||||
|
@ -660,15 +635,15 @@ machine-readable form (without formatting):
|
||||||
|
|
||||||
=over 4
|
=over 4
|
||||||
|
|
||||||
=item F<bin/groupstats.pl>
|
=item F<groupstats.pl>
|
||||||
|
|
||||||
The script itself.
|
The script itself.
|
||||||
|
|
||||||
=item F<lib/NewsStats.pm>
|
=item F<NewsStats.pm>
|
||||||
|
|
||||||
Library functions for the NewsStats package.
|
Library functions for the NewsStats package.
|
||||||
|
|
||||||
=item F<etc/newsstats.conf>
|
=item F<newsstats.conf>
|
||||||
|
|
||||||
Runtime configuration file.
|
Runtime configuration file.
|
||||||
|
|
||||||
|
@ -677,7 +652,7 @@ Runtime configuration file.
|
||||||
=head1 BUGS
|
=head1 BUGS
|
||||||
|
|
||||||
Please report any bugs or feature requests to the author or use the
|
Please report any bugs or feature requests to the author or use the
|
||||||
bug tracker at L<https://code.virtcomm.de/thh/newsstats/issues>!
|
bug tracker at L<http://bugs.th-h.de/>!
|
||||||
|
|
||||||
=head1 SEE ALSO
|
=head1 SEE ALSO
|
||||||
|
|
||||||
|
@ -701,11 +676,11 @@ This script is part of the B<NewsStats> package.
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|
||||||
Thomas Hochstein <thh@thh.name>
|
Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
=head1 COPYRIGHT AND LICENSE
|
=head1 COPYRIGHT AND LICENSE
|
||||||
|
|
||||||
Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
Copyright (c) 2010-2012 Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
This program is free software; you may redistribute it and/or modify it
|
This program is free software; you may redistribute it and/or modify it
|
||||||
under the same terms as Perl itself.
|
under the same terms as Perl itself.
|
|
@ -6,22 +6,24 @@
|
||||||
#
|
#
|
||||||
# It is part of the NewsStats package.
|
# It is part of the NewsStats package.
|
||||||
#
|
#
|
||||||
# Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
# 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.
|
# which Perl itself is published.
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
our $VERSION = "0.02";
|
our $VERSION = "0.01";
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
# we're in .../install, so our module is in ../lib
|
# we're in .../install, so our module is in ..
|
||||||
push(@INC, dirname($0).'/../lib');
|
push(@INC, dirname($0).'/..');
|
||||||
}
|
}
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use NewsStats qw(:DEFAULT);
|
use NewsStats qw(:DEFAULT);
|
||||||
|
|
||||||
|
use Cwd;
|
||||||
|
|
||||||
use DBI;
|
use DBI;
|
||||||
use Getopt::Long qw(GetOptions);
|
use Getopt::Long qw(GetOptions);
|
||||||
Getopt::Long::config ('bundling');
|
Getopt::Long::config ('bundling');
|
||||||
|
@ -29,15 +31,18 @@ Getopt::Long::config ('bundling');
|
||||||
################################# Main program #################################
|
################################# Main program #################################
|
||||||
|
|
||||||
### read commandline options
|
### read commandline options
|
||||||
my ($OptUpdate,$OptConfFile);
|
my ($OptUpdate);
|
||||||
GetOptions ('u|update=s' => \$OptUpdate,
|
GetOptions ('u|update=s' => \$OptUpdate,
|
||||||
'conffile=s' => \$OptConfFile,
|
|
||||||
'h|help' => \&ShowPOD,
|
'h|help' => \&ShowPOD,
|
||||||
'V|version' => \&ShowVersion) or exit 1;
|
'V|version' => \&ShowVersion) or exit 1;
|
||||||
|
|
||||||
|
### change working directory to .. (as we're in .../install)
|
||||||
|
chdir dirname($FullPath).'/..';
|
||||||
|
my $Path = cwd();
|
||||||
|
|
||||||
### read configuration
|
### read configuration
|
||||||
print("Reading configuration.\n");
|
print("Reading configuration.\n");
|
||||||
my %Conf = %{ReadConfig($OptConfFile)};
|
my %Conf = %{ReadConfig($Path.'/newsstats.conf')};
|
||||||
|
|
||||||
##### --------------------------------------------------------------------------
|
##### --------------------------------------------------------------------------
|
||||||
##### Database table definitions
|
##### Database table definitions
|
||||||
|
@ -103,7 +108,7 @@ Things left to do:
|
||||||
## gather statistics for NewsStats
|
## gather statistics for NewsStats
|
||||||
newsstats!\\
|
newsstats!\\
|
||||||
:!*,de.*\\
|
:!*,de.*\\
|
||||||
:Tc,WmtfbsPNH,Ac:$HomePath/bin/feedlog.pl
|
:Tc,WmtfbsPNH,Ac:$Path/feedlog.pl
|
||||||
|
|
||||||
Please
|
Please
|
||||||
|
|
||||||
|
@ -131,7 +136,7 @@ Things left to do:
|
||||||
|
|
||||||
Enjoy!
|
Enjoy!
|
||||||
|
|
||||||
-thh <thh\@thh.name>
|
-thh <thh\@inter.net>
|
||||||
INSTALL
|
INSTALL
|
||||||
|
|
||||||
my $Upgrade ='';
|
my $Upgrade ='';
|
||||||
|
@ -250,7 +255,7 @@ install - installation script
|
||||||
|
|
||||||
=head1 SYNOPSIS
|
=head1 SYNOPSIS
|
||||||
|
|
||||||
B<install> [B<-Vh> [--update I<version>] [B<--conffile> I<filename>]
|
B<install> [B<-Vh> [--update I<version>]
|
||||||
|
|
||||||
=head1 REQUIREMENTS
|
=head1 REQUIREMENTS
|
||||||
|
|
||||||
|
@ -262,9 +267,8 @@ This script will create database tables as necessary and configured.
|
||||||
|
|
||||||
=head2 Configuration
|
=head2 Configuration
|
||||||
|
|
||||||
B<install> will read its configuration from F<newsstats.conf> which should
|
B<install> will read its configuration from F<newsstats.conf> via
|
||||||
be present in etc/ via Config::Auto or from a configuration file submitted
|
Config::Auto.
|
||||||
by the B<--conffile> option.
|
|
||||||
|
|
||||||
See L<doc/INSTALL> for an overview of possible configuration options.
|
See L<doc/INSTALL> for an overview of possible configuration options.
|
||||||
|
|
||||||
|
@ -284,25 +288,21 @@ Print this man page and exit.
|
||||||
|
|
||||||
Don't do a fresh install, but update from I<version>.
|
Don't do a fresh install, but update from I<version>.
|
||||||
|
|
||||||
=item B<--conffile> I<filename>
|
|
||||||
|
|
||||||
Load configuration from I<filename> instead of F<newsstats.conf>.
|
|
||||||
|
|
||||||
=back
|
=back
|
||||||
|
|
||||||
=head1 FILES
|
=head1 FILES
|
||||||
|
|
||||||
=over 4
|
=over 4
|
||||||
|
|
||||||
=item F<install/install.pl>
|
=item F<install.pl>
|
||||||
|
|
||||||
The script itself.
|
The script itself.
|
||||||
|
|
||||||
=item F<lib/NewsStats.pm>
|
=item F<NewsStats.pm>
|
||||||
|
|
||||||
Library functions for the NewsStats package.
|
Library functions for the NewsStats package.
|
||||||
|
|
||||||
=item F<etc/newsstats.conf>
|
=item F<newsstats.conf>
|
||||||
|
|
||||||
Runtime configuration file.
|
Runtime configuration file.
|
||||||
|
|
||||||
|
@ -311,7 +311,7 @@ Runtime configuration file.
|
||||||
=head1 BUGS
|
=head1 BUGS
|
||||||
|
|
||||||
Please report any bugs or feature requests to the author or use the
|
Please report any bugs or feature requests to the author or use the
|
||||||
bug tracker at L<https://code.virtcomm.de/thh/newsstats/issues>!
|
bug tracker at L<http://bugs.th-h.de/>!
|
||||||
|
|
||||||
=head1 SEE ALSO
|
=head1 SEE ALSO
|
||||||
|
|
||||||
|
@ -331,11 +331,11 @@ This script is part of the B<NewsStats> package.
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|
||||||
Thomas Hochstein <thh@thh.name>
|
Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
=head1 COPYRIGHT AND LICENSE
|
=head1 COPYRIGHT AND LICENSE
|
||||||
|
|
||||||
Copyright (c) 2010-2013 Thomas Hochstein <thh@thh.name>
|
Copyright (c) 2010-2012 Thomas Hochstein <thh@inter.net>
|
||||||
|
|
||||||
This program is free software; you may redistribute it and/or modify it
|
This program is free software; you may redistribute it and/or modify it
|
||||||
under the same terms as Perl itself.
|
under the same terms as Perl itself.
|
||||||
|
|
Loading…
Reference in a new issue