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-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=e7e48fe701f3ddf482683e39c11b8fe1b08fcea8

Fix config path detection for install.pl.

install.pl is located in .../install, so replace
this component in $HomePath with '.' and change
'..' to '.' as configuration is located in .../.

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

diff --git a/install/install.pl b/install/install.pl
index 374d74b..0787805 100755
--- a/install/install.pl
+++ b/install/install.pl
@@ -40,6 +40,8 @@ chdir dirname($0).'/..';
 my $Path = cwd();
 
 ### read configuration
+$HomePath = '..' if ($HomePath eq '.');
+$HomePath =~ s/install/./;
 print("Reading configuration.\n");
 my %Conf = %{ReadConfig($HomePath.'/newsstats.conf')};