From 8858fb49081954bd7670208718a40f8bbb3f0228 Mon Sep 17 00:00:00 2001
From: Michael Wiebusch <m.wiebusch@gsi.de>
Date: Mon, 4 May 2015 16:07:59 +0200
Subject: [PATCH] cosmetics to debug output of run.pl

---
 tools/run.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

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";
 
-- 
2.43.0