From: Michael Wiebusch <stratomaster@gmx.net>
Date: Mon, 6 May 2013 14:52:12 +0000 (+0200)
Subject: corrected absolute path for proper execution of perl scripts
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=01c87923415b79bb494b9b495481115912b9c92a;p=daqtools.git

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 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 = <LESEN>)) {
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 = <LESEN>)) {
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;