From: Thomas Hochstein <thh@inter.net>
Date: Wed, 4 Sep 2013 09:27:19 +0000 (+0200)
Subject: Fix displayed path in install.
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=fd0717a15cb1b36e25a019060d3f40aac9ca9517;ds=sidebyside

Fix displayed path in install.

install.pl will display a sample newsfeeds entry.
Adapt the path to the changes in
2ad99c20bcc297362aeccabb1c51e20c4bd4b533.

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

diff --git a/install/install.pl b/install/install.pl
index 690366e..e2acf66 100755
--- a/install/install.pl
+++ b/install/install.pl
@@ -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