thh/newsstats
1
0
Fork 0
Code Issues 3 Pull requests Packages Projects Releases Activity

Change to semantic versioning.

Browse source 
Remove individual script versions as opposed to
package version.

Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
Thomas Hochstein 2025-05-10 13:40:30 +02:00
parent 992d678460
commit 1d3c8f9529
8 changed files with 11 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bin/feedlog.pl
View file

@ -13,7 +13,6 @@
# which Perl itself is published. # which Perl itself is published.
BEGIN { BEGIN {
our $VERSION = "0.02";
use File::Basename; use File::Basename;
# we're in .../bin, so our module is in ../lib # we're in .../bin, so our module is in ../lib
push(@INC, dirname($0).'/../lib'); push(@INC, dirname($0).'/../lib');
@ -81,7 +80,7 @@ my %Conf = %{ReadConfig($OptConfFile)};
### init syslog ### init syslog
openlog($0, 'nofatal,pid', LOG_NEWS); openlog($0, 'nofatal,pid', LOG_NEWS);
syslog(LOG_NOTICE, "$MyVersion starting up.") if !$OptQuiet; syslog(LOG_NOTICE, "$0 $VERSION starting up.") if !$OptQuiet;
### init database ### init database
my ($DBHandle,$DBQuery) = PrepareDB(\%Conf); my ($DBHandle,$DBQuery) = PrepareDB(\%Conf);

1
bin/gatherstats.pl
View file

@ -13,7 +13,6 @@
# which Perl itself is published. # which Perl itself is published.
BEGIN { BEGIN {
our $VERSION = "0.02";
use File::Basename; use File::Basename;
# we're in .../bin, so our module is in ../lib # we're in .../bin, so our module is in ../lib
push(@INC, dirname($0).'/../lib'); push(@INC, dirname($0).'/../lib');

1
bin/groupstats.pl
View file

@ -13,7 +13,6 @@
# which Perl itself is published. # which Perl itself is published.
BEGIN { BEGIN {
our $VERSION = "0.02";
use File::Basename; use File::Basename;
# we're in .../bin, so our module is in ../lib # we're in .../bin, so our module is in ../lib
push(@INC, dirname($0).'/../lib'); push(@INC, dirname($0).'/../lib');

4
doc/ChangeLog
View file

@ -1,4 +1,4 @@
NewsStats 0.02 (unreleased) NewsStats 0.2.0 (unreleased)
* Redo directory structure: * Redo directory structure:
- Move all scripts to /bin - Move all scripts to /bin
- Move configuration to /etc - Move configuration to /etc
@ -10,6 +10,8 @@ NewsStats 0.02 (unreleased)
* Accept an upper/lower boundary of 0 (zero). * Accept an upper/lower boundary of 0 (zero).
* Update copyright dates, version numbers, author address and * Update copyright dates, version numbers, author address and
repository location. repository location.
* Unify version across all scripts and modules, change to
semantic versioning.
NewsStats 0.01 (2013-09-02) NewsStats 0.01 (2013-09-02)
* Initial public release. * Initial public release.

2
doc/INSTALL
View file

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

2
doc/README
View file

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

3
install/install.pl
View file

@ -12,7 +12,6 @@
# which Perl itself is published. # which Perl itself is published.
BEGIN { BEGIN {
our $VERSION = "0.02";
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 ../lib
push(@INC, dirname($0).'/../lib'); push(@INC, dirname($0).'/../lib');
@ -138,7 +137,7 @@ my $Upgrade ='';
if ($OptUpdate) { if ($OptUpdate) {
$Upgrade = <<UPGRADE; $Upgrade = <<UPGRADE;
---------- ----------
Your installation was upgraded from $OptUpdate to $PackageVersion. Your installation was upgraded from $OptUpdate to $VERSION.
Don't forget to restart your INN feed so that it can pick up the new version: Don't forget to restart your INN feed so that it can pick up the new version:

12
lib/NewsStats.pm
View file

@ -16,8 +16,7 @@ our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
require Exporter; require Exporter;
@ISA = qw(Exporter); @ISA = qw(Exporter);
@EXPORT = qw( @EXPORT = qw(
$MyVersion $VERSION
$PackageVersion
$FullPath $FullPath
$HomePath $HomePath
ShowVersion ShowVersion
@ -49,8 +48,7 @@ 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.2.0';
our $PackageVersion = '0.02';
use Data::Dumper; use Data::Dumper;
use File::Basename; use File::Basename;
@ -68,8 +66,6 @@ our $HomePath = dirname(realpath($0));
$HomePath =~ s/\/(bin|install)//; $HomePath =~ s/\/(bin|install)//;
# trim $0 # trim $0
$0 =~ s%.*/%%; $0 =~ s%.*/%%;
# set version string
our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)";
#####------------------------------- Basics -------------------------------##### #####------------------------------- Basics -------------------------------#####
@ -79,8 +75,8 @@ our $MyVersion = "$0 $::VERSION (NewsStats.pm $VERSION)";
sub ShowVersion { sub ShowVersion {
################################################################################ ################################################################################
### display version and exit ### display version and exit
print "NewsStats v$PackageVersion\n$MyVersion\n"; print "$0 from NewsStats v$VERSION\n";
print "Copyright (c) 2010-2013 Thomas Hochstein <thh\@inter.net>\n"; print "Copyright (c) 2010-2013 Thomas Hochstein <thh\@thh.name>\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);