From: Michael Wiebusch <m.wiebusch@gsi.de>
Date: Mon, 4 May 2015 14:07:59 +0000 (+0200)
Subject: cosmetics to debug output of run.pl
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=8858fb49081954bd7670208718a40f8bbb3f0228;p=mvdsensorcontrol.git

cosmetics to debug output of run.pl
---

diff --git a/tools/run.pl b/tools/run.pl
index ebae89e..ec91bb9 100755
--- a/tools/run.pl
+++ b/tools/run.pl
@@ -45,7 +45,7 @@ my $daqopserver = $db->getDocumentElement->findvalue('daqopserver');
 $ENV{'DAQOPSERVER'}       = $daqopserver if defined($daqopserver);
 
 
-my $dumpPath = DUMPPATH."/".$systemName;
+my $dumpPath = DUMPPATH.$systemName;
 my $picPath  = PICTUREPATH;
 
 
@@ -70,13 +70,18 @@ print start_html(
 # $ENV{'DAQOPSERVER'}="localhost:7";
 
 
-
-unless(-e $dumpPath) {
+print "<pre>";
+unless(-e "$dumpPath") {
   print "creating data dump directory: $dumpPath\n";
   print_exec "mkdir -p $dumpPath";
-  die "Unable to create $dumpPath\n" unless(-e $dumpPath);
+  die "Unable to create $dumpPath\n" unless(-e "$dumpPath");
 }
 
+# Debugs/Tests
+# print_exec "whoami";
+# print_exec "mkdir /tmp/MAPS_PREV";
+# print_exec "ls /tmp";
+
 unless(-e $picPath) {
   print "creating plot directory: $picPath\n";
   print_exec "mkdir -p $picPath";
@@ -86,7 +91,6 @@ unless(-e $picPath) {
 # system("./init_setup.pl ".SETUPFILE);
 
 my $dummy;
-print "<pre>";
 print_exec "date";
 print_exec "./init_setup.pl $setupFile";