cosmetics to debug output of run.pl

diff --git a/tools/run.pl b/tools/run.pl
index ebae89e98d7771694a3a2b995d18a8082f0805ef..ec91bb95f8f7f348f6d2013dfd934fe5ab6461ef 100755 (executable)
--- 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";