diff --git a/bin/feedlog.pl b/bin/feedlog.pl index 6359693..147a28f 100755 --- a/bin/feedlog.pl +++ b/bin/feedlog.pl @@ -13,6 +13,7 @@ # which Perl itself is published. BEGIN { + our $VERSION = "0.02"; use File::Basename; # we're in .../bin, so our module is in ../lib push(@INC, dirname($0).'/../lib'); @@ -80,7 +81,7 @@ my %Conf = %{ReadConfig($OptConfFile)}; ### init syslog openlog($0, 'nofatal,pid', LOG_NEWS); -syslog(LOG_NOTICE, "$0 $VERSION starting up.") if !$OptQuiet; +syslog(LOG_NOTICE, "$MyVersion starting up.") if !$OptQuiet; ### init database my ($DBHandle,$DBQuery) = PrepareDB(\%Conf); diff --git a/bin/gatherstats.pl b/bin/gatherstats.pl index 60043d1..f2795c2 100755 --- a/bin/gatherstats.pl +++ b/bin/gatherstats.pl @@ -13,6 +13,7 @@ # which Perl itself is published. BEGIN { + our $VERSION = "0.02"; use File::Basename; # we're in .../bin, so our module is in ../lib push(@INC, dirname($0).'/../lib'); diff --git a/bin/groupstats.pl b/bin/groupstats.pl index b716566..37fd7d8 100755 --- a/bin/groupstats.pl +++ b/bin/groupstats.pl @@ -13,6 +13,7 @@ # which Perl itself is published. BEGIN { + our $VERSION = "0.02"; use File::Basename; # we're in .../bin, so our module is in ../lib push(@INC, dirname($0).'/../lib'); diff --git a/doc/ChangeLog b/doc/ChangeLog index 569a3e6..4444cbc 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,4 +1,4 @@ -NewsStats 0.2.0 (2025-05-10) +NewsStats 0.02 (unreleased) * Redo directory structure: - Move all scripts to /bin - Move configuration to /etc @@ -10,8 +10,6 @@ NewsStats 0.2.0 (2025-05-10) * Accept an upper/lower boundary of 0 (zero). * Update copyright dates, version numbers, author address and repository location. - * Unify version across all scripts and modules, change to - semantic versioning. NewsStats 0.01 (2013-09-02) * Initial public release. diff --git a/doc/INSTALL b/doc/INSTALL index 24eeaf8..a489fda 100644 --- a/doc/INSTALL +++ b/doc/INSTALL @@ -1,4 +1,4 @@ -NewsStats (c) 2010-2013 Thomas Hochstein +NewsStats 0.1 (c) 2010-2013 Thomas Hochstein NewsStats is a software package used to gather statistical information from a live Usenet feed and for its subsequent examination. diff --git a/doc/README b/doc/README index 57f8bec..7ceebe8 100644 --- a/doc/README +++ b/doc/README @@ -1,4 +1,4 @@ -NewsStats (c) 2010-2013 Thomas Hochstein +NewsStats 0.1 (c) 2010-2013 Thomas Hochstein NewsStats is a software package for gathering statistical data live from a Usenet feed and subsequent examination. diff --git a/doc/TODO b/doc/TODO index 63bcfdf..b540ec1 100644 --- a/doc/TODO +++ b/doc/TODO @@ -10,6 +10,7 @@ NewsStats. - Add a test suite There is currently no kind of test suite or regression tests. Something like that is badly needed. + - separate directories (bin, config, ...) - make NewsStats installable in accordance with LFS and customary procedures, i.e. scripts to /usr/local/news/bin or /usr/lib/news/bin, configuration to /usr/local/news/etc or /etc/news and so on diff --git a/install/install.pl b/install/install.pl index 826052d..26525ea 100755 --- a/install/install.pl +++ b/install/install.pl @@ -12,6 +12,7 @@ # which Perl itself is published. BEGIN { + our $VERSION = "0.02"; use File::Basename; # we're in .../install, so our module is in ../lib push(@INC, dirname($0).'/../lib'); @@ -137,7 +138,7 @@ my $Upgrade =''; if ($OptUpdate) { $Upgrade = < [qw(OutputData FormatOutput)], SQLHelper => [qw(SQLHierarchies SQLSortOrder SQLGroupList SQLSetBounds SQLBuildClause GetMaxLength)]); -$VERSION = '0.2.0'; +$VERSION = '0.02'; +our $PackageVersion = '0.02'; use Data::Dumper; use File::Basename; @@ -66,6 +68,8 @@ our $HomePath = dirname(realpath($0)); $HomePath =~ s/\/(bin|install)//; # trim $0 $0 =~ s%.*/%%; +# set version string +our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)"; #####------------------------------- Basics -------------------------------##### @@ -75,8 +79,8 @@ $0 =~ s%.*/%%; sub ShowVersion { ################################################################################ ### display version and exit - print "$0 from NewsStats v$VERSION\n"; - print "Copyright (c) 2010-2013 Thomas Hochstein \n"; + print "NewsStats v$PackageVersion\n$MyVersion\n"; + print "Copyright (c) 2010-2013 Thomas Hochstein \n"; print "This program is free software; you may redistribute it ". "and/or modify it under the same terms as Perl itself.\n"; exit(100);