From 01c87923415b79bb494b9b495481115912b9c92a Mon Sep 17 00:00:00 2001 From: Michael Wiebusch Date: Mon, 6 May 2013 16:52:12 +0200 Subject: [PATCH] corrected absolute path for proper execution of perl scripts --- web/htdocs/tools/pwr/build_index.pl | 2 +- web/htdocs/tools/pwr/read_conf.pl | 2 +- web/htdocs/tools/pwr/save_conf.pl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/web/htdocs/tools/pwr/build_index.pl b/web/htdocs/tools/pwr/build_index.pl index fde757e..e7b88ef 100755 --- a/web/htdocs/tools/pwr/build_index.pl +++ b/web/htdocs/tools/pwr/build_index.pl @@ -5,7 +5,7 @@ use Cwd; my $pwd = &Cwd::cwd(); -open(LESEN,"htdocs/pwr/pwr.conf") +open(LESEN,"htdocs/tools/pwr/pwr.conf") or die "Fehler beim oeffnen von : $!\n"; while(defined(my $i = )) { diff --git a/web/htdocs/tools/pwr/read_conf.pl b/web/htdocs/tools/pwr/read_conf.pl index 8153541..4293854 100755 --- a/web/htdocs/tools/pwr/read_conf.pl +++ b/web/htdocs/tools/pwr/read_conf.pl @@ -6,7 +6,7 @@ use Cwd; my $pwd = &Cwd::cwd(); -open(LESEN,"htdocs/pwr/pwr.conf") +open(LESEN,"htdocs/tools/pwr/pwr.conf") or print "Fehler beim oeffnen von : $!\n"; while(defined(my $i = )) { diff --git a/web/htdocs/tools/pwr/save_conf.pl b/web/htdocs/tools/pwr/save_conf.pl index 3fdd270..51d324c 100755 --- a/web/htdocs/tools/pwr/save_conf.pl +++ b/web/htdocs/tools/pwr/save_conf.pl @@ -7,7 +7,7 @@ $envstring =~ s/&/\n/g; ##$envstring =~ s/&/\n/g; -open(SCHREIBEN,">htdocs/pwr/pwr.conf") +open(SCHREIBEN,">htdocs/tools/pwr/pwr.conf") or print "Fehler beim oeffnen von : $!\n"; print SCHREIBEN $envstring; -- 2.43.0