X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=install%2Finstall.pl;h=51168812aade320dbe961817bae715e72d289443;hp=2f53a251e482331b2969526e504098243a882e44;hb=84e9923abeadcfb488985b9e60eb78d4eaa950fd;hpb=48c8d4bb8e0585ce26e63d1332e6efb20babdf6f diff --git a/install/install.pl b/install/install.pl index 2f53a25..5116881 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)}; @@ -159,7 +153,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 @@ -306,7 +300,7 @@ install - installation script =head1 SYNOPSIS -B [B<-Vh> [--update I] [--conffile I] +B [B<-Vh> [--update I] [B<--conffile> I] =head1 REQUIREMENTS @@ -318,8 +312,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. @@ -390,7 +385,7 @@ Thomas Hochstein =head1 COPYRIGHT AND LICENSE -Copyright (c) 2010-2012 Thomas Hochstein +Copyright (c) 2010-2013 Thomas Hochstein This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.