X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=install%2Finstall.pl;h=1ef21fb990d45ac9300bb708de69c50e2668d83c;hp=59920fa5a35b486ee73dd7951edbb852d5dae490;hb=dfc2b81c37c38c2b7bcc8afeead0ec927845b90f;hpb=5cfcb1c0610d925a14cc01e45de4af1b36d1b637 diff --git a/install/install.pl b/install/install.pl index 59920fa..1ef21fb 100755 --- a/install/install.pl +++ b/install/install.pl @@ -3,19 +3,19 @@ # install.pl # # This script will create database tables as necessary. -# +# # It is part of the NewsStats package. # -# Copyright (c) 2010-2012 Thomas Hochstein +# Copyright (c) 2010-2013 Thomas Hochstein # -# 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; - # 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 warnings; @@ -42,7 +42,7 @@ my $Path = cwd(); ### read configuration print("Reading configuration.\n"); -my %Conf = %{ReadConfig($Path.'/newsstats.conf')}; +my %Conf = %{ReadConfig('')}; ##### -------------------------------------------------------------------------- ##### Database table definitions @@ -185,7 +185,7 @@ if (!$OptUpdate) { &CreateTable($Table); }; print "Database table generation done.\n"; - + # Display install instructions print $Install; } else { @@ -294,15 +294,15 @@ Don't do a fresh install, but update from I. =over 4 -=item F +=item F The script itself. -=item F +=item F Library functions for the NewsStats package. -=item F +=item F Runtime configuration file.