Compare commits
3 commits
992d678460
...
4cdb771866
| Author | SHA1 | Date | |
|---|---|---|---|
| 4cdb771866 | |||
| bcd668780e | |||
| 1d3c8f9529 |
9 changed files with 11 additions and 18 deletions
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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');
|
||||
|
|
|
|||
|
|
@ -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');
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
1
doc/TODO
1
doc/TODO
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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:
|
||||
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue