Compare commits

...

3 commits

Author SHA1 Message Date
4cdb771866 Release 0.2.0
Signed-off-by: Thomas Hochstein <thh@thh.name>
2025-05-10 14:09:08 +02:00
bcd668780e Update TODO.
Signed-off-by: Thomas Hochstein <thh@thh.name>
2025-05-10 14:08:49 +02:00
1d3c8f9529 Change to semantic versioning.
Remove individual script versions as opposed to
package version.

Signed-off-by: Thomas Hochstein <thh@thh.name>
2025-05-10 14:08:19 +02:00
9 changed files with 11 additions and 18 deletions

View file

@ -13,7 +13,6 @@
# 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');
@ -81,7 +80,7 @@ my %Conf = %{ReadConfig($OptConfFile)};
### init syslog
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
my ($DBHandle,$DBQuery) = PrepareDB(\%Conf);

View file

@ -13,7 +13,6 @@
# 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');

View file

@ -13,7 +13,6 @@
# 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');

View file

@ -1,4 +1,4 @@
NewsStats 0.02 (unreleased)
NewsStats 0.2.0 (2025-05-10)
* Redo directory structure:
- Move all scripts to /bin
- Move configuration to /etc
@ -10,6 +10,8 @@ NewsStats 0.02 (unreleased)
* 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.

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
from a live Usenet feed and for its subsequent examination.

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
from a Usenet feed and subsequent examination.

View file

@ -10,7 +10,6 @@ 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

View file

@ -12,7 +12,6 @@
# 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');
@ -138,7 +137,7 @@ my $Upgrade ='';
if ($OptUpdate) {
$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:

View file

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