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);

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');

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');

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.

doc/INSTALL

@@ -1,4 +1,4 @@
-NewsStats (c) 2010-2013 Thomas Hochstein <thh@thh.name>
+NewsStats 0.1  (c) 2010-2013 Thomas Hochstein <thh@thh.name>
 
 NewsStats is a software package used to gather statistical information
 from a live Usenet feed and for its subsequent examination.

doc/README

@@ -1,4 +1,4 @@
-NewsStats (c) 2010-2013 Thomas Hochstein <thh@thh.name>
+NewsStats 0.1  (c) 2010-2013 Thomas Hochstein <thh@thh.name>
 
 NewsStats is a software package for gathering statistical data live
 from a Usenet feed and subsequent examination.

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

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 = <<UPGRADE;
 ----------
-Your installation was upgraded from $OptUpdate to $VERSION.
+Your installation was upgraded from $OptUpdate to $PackageVersion.
 
 Don't forget to restart your INN feed so that it can pick up the new version:
 

lib/NewsStats.pm

@@ -16,7 +16,8 @@ our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(
-  $VERSION
+  $MyVersion
+  $PackageVersion
   $FullPath
   $HomePath
   ShowVersion
@@ -48,7 +49,8 @@ require Exporter;
                  Output      => [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 <thh\@thh.name>\n";
+  print "NewsStats v$PackageVersion\n$MyVersion\n";
+  print "Copyright (c) 2010-2013 Thomas Hochstein <thh\@inter.net>\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);