X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=install%2Finstall.pl;h=e2acf663b60456e92e03b62a45f918d2d7f9cafd;hp=aff4480a7054473cee1e91fd197a366a5d15a40b;hb=91c674c4fe8136657b3bfc5c862e0c096ea2dd87;hpb=2871792120fba3b9ac9fe1b7bf166638b05766fd diff --git a/install/install.pl b/install/install.pl index aff4480..e2acf66 100755 --- a/install/install.pl +++ b/install/install.pl @@ -12,7 +12,7 @@ # which Perl itself is published. BEGIN { - our $VERSION = "0.01"; + our $VERSION = "0.02"; use File::Basename; # we're in .../install, so our module is in ../lib push(@INC, dirname($0).'/../lib'); @@ -22,8 +22,6 @@ use warnings; use NewsStats qw(:DEFAULT); -use Cwd; - use DBI; use Getopt::Long qw(GetOptions); Getopt::Long::config ('bundling'); @@ -37,10 +35,6 @@ GetOptions ('u|update=s' => \$OptUpdate, 'h|help' => \&ShowPOD, 'V|version' => \&ShowVersion) or exit 1; -### change working directory to .. (as we're in .../install) -chdir dirname($FullPath).'/..'; -my $Path = cwd(); - ### read configuration print("Reading configuration.\n"); my %Conf = %{ReadConfig($OptConfFile)}; @@ -109,7 +103,7 @@ Things left to do: ## gather statistics for NewsStats newsstats!\\ :!*,de.*\\ - :Tc,WmtfbsPNH,Ac:$Path/feedlog.pl + :Tc,WmtfbsPNH,Ac:$HomePath/bin/feedlog.pl Please @@ -256,7 +250,7 @@ install - installation script =head1 SYNOPSIS -B [B<-Vh> [--update I] [--conffile I] +B [B<-Vh> [--update I] [B<--conffile> I] =head1 REQUIREMENTS @@ -268,8 +262,9 @@ This script will create database tables as necessary and configured. =head2 Configuration -B will read its configuration from F via -Config::Auto. +B will read its configuration from F which should +be present in etc/ via Config::Auto or from a configuration file submitted +by the B<--conffile> option. See L for an overview of possible configuration options.