projects
/
usenet
/
newsstats.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix some whitespace.
[usenet/newsstats.git]
/
install
/
install.pl
diff --git
a/install/install.pl
b/install/install.pl
index
374d74b
..
1ef21fb
100755
(executable)
--- a/
install/install.pl
+++ b/
install/install.pl
@@
-1,23
+1,24
@@
-#! /usr/bin/perl
-W
+#! /usr/bin/perl
#
# install.pl
#
# This script will create database tables as necessary.
#
# install.pl
#
# This script will create database tables as necessary.
-#
+#
# It is part of the NewsStats package.
#
# It is part of the NewsStats package.
#
-# Copyright (c) 2010-201
2
Thomas Hochstein <thh@inter.net>
+# Copyright (c) 2010-201
3
Thomas Hochstein <thh@inter.net>
#
#
-# It can be redistributed and/or modified under the same terms under
+# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
BEGIN {
our $VERSION = "0.01";
use File::Basename;
# which Perl itself is published.
BEGIN {
our $VERSION = "0.01";
use File::Basename;
- # we're in .../install, so our module is in ..
- push(@INC, dirname($0).'/..');
+ # we're in .../install, so our module is in ..
/lib
+ push(@INC, dirname($0).'/..
/lib
');
}
use strict;
}
use strict;
+use warnings;
use NewsStats qw(:DEFAULT);
use NewsStats qw(:DEFAULT);
@@
-36,12
+37,12
@@
GetOptions ('u|update=s' => \$OptUpdate,
'V|version' => \&ShowVersion) or exit 1;
### change working directory to .. (as we're in .../install)
'V|version' => \&ShowVersion) or exit 1;
### change working directory to .. (as we're in .../install)
-chdir dirname($
0
).'/..';
+chdir dirname($
FullPath
).'/..';
my $Path = cwd();
### read configuration
print("Reading configuration.\n");
my $Path = cwd();
### read configuration
print("Reading configuration.\n");
-my %Conf = %{ReadConfig(
$HomePath.'/newsstats.conf
')};
+my %Conf = %{ReadConfig(
'
')};
##### --------------------------------------------------------------------------
##### Database table definitions
##### --------------------------------------------------------------------------
##### Database table definitions
@@
-184,7
+185,7
@@
if (!$OptUpdate) {
&CreateTable($Table);
};
print "Database table generation done.\n";
&CreateTable($Table);
};
print "Database table generation done.\n";
-
+
# Display install instructions
print $Install;
} else {
# Display install instructions
print $Install;
} else {
@@
-293,15
+294,15
@@
Don't do a fresh install, but update from I<version>.
=over 4
=over 4
-=item F<install.pl>
+=item F<install
/install
.pl>
The script itself.
The script itself.
-=item F<NewsStats.pm>
+=item F<
lib/
NewsStats.pm>
Library functions for the NewsStats package.
Library functions for the NewsStats package.
-=item F<newsstats.conf>
+=item F<
etc/
newsstats.conf>
Runtime configuration file.
Runtime configuration file.
This page took
0.011955 seconds
and
4
git commands to generate.