corrected absolute path for proper execution of perl scripts

diff --git a/web/htdocs/tools/pwr/build_index.pl b/web/htdocs/tools/pwr/build_index.pl
index fde757e410f9885109fb1ef759b903b5bfe93c8b..e7b88eff70c946a04219d8268345b26ea3c91e53 100755 (executable)
--- 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 = <LESEN>)) {

diff --git a/web/htdocs/tools/pwr/read_conf.pl b/web/htdocs/tools/pwr/read_conf.pl
index 815354134a0e10947f045525956651498f50b688..4293854e900a6dc6ec926b4cd01c9d545ebfe573 100755 (executable)
--- 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 = <LESEN>)) {

diff --git a/web/htdocs/tools/pwr/save_conf.pl b/web/htdocs/tools/pwr/save_conf.pl
index 3fdd2705a5551c416788100f626041d7bc8e87ab..51d324c50f8b4db719f124a943cc71922f89ab7c 100755 (executable)
--- 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;