From: Thomas Hochstein <thh@inter.net>
Date: Mon, 2 Sep 2013 04:44:32 +0000 (+0200)
Subject: Fix config path detection for install.pl.
X-Git-Tag: 0.01~1^2~6^2
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=512781bd9259ec07dd7f2958b0074f2f49573970;hp=7b310df13f064955ef771d9657997dedd2498cfb

Fix config path detection for install.pl.

Make use of $Path - which is set and checked
to display a correct 'newsfeeds' example - to
load our configuration from the correct location.

Signed-off-by: Thomas Hochstein <thh@inter.net>
---

diff --git a/install/install.pl b/install/install.pl
index 374d74b..4069bf5 100755
--- a/install/install.pl
+++ b/install/install.pl
@@ -36,12 +36,12 @@ GetOptions ('u|update=s' => \$OptUpdate,
             '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 %Conf = %{ReadConfig($HomePath.'/newsstats.conf')};
+my %Conf = %{ReadConfig($Path.'/newsstats.conf')};
 
 ##### --------------------------------------------------------------------------
 ##### Database table definitions