added runtime textfield

diff --git a/tools/run.pl b/tools/run.pl
index d9727d8e647670a1745de22ac5934e96c66ea52e..e1e3f9c1a43e0ce53f148aca16a3cac1edad84c4 100755 (executable)
--- a/tools/run.pl
+++ b/tools/run.pl
@@ -7,6 +7,7 @@ use strict;
 use warnings;
 use POSIX;
 use CGI ':standard';
+
 use Cwd;
 use CGI::Carp qw(fatalsToBrowser);
 use HTML::Entities;
@@ -18,16 +19,8 @@ my $here = getcwd();
 my $runtime = 0.2;
 
 my $dumpPath = "/tmp/MAPS_PREV/";
-
-unless(-e $dumpPath or mkdir $dumpPath) {
-  die "Unable to create $dumpPath\n";
-}
-
 my $picPath = "../temp/prevImgs/";
 
-unless(-e $picPath or mkdir $picPath) {
-  die "Unable to create $picPath\n";
-}
 
 my $q = CGI->new;
 
@@ -37,12 +30,22 @@ print start_html(
 -style=>{'src'=>'../layout/styles.css'}
 );
 
+if( $q->param('runtime') ) {
+  $runtime = $q->param('runtime');
+}
 
 $ENV{'PATH'}=$ENV{'PATH'}.":/local.1/bastelstube/daqdata/bin";
 # print br,$ENV{'PATH'},br;
 $ENV{'JTAGPATH'}="/local.1/jtag_mvd/soft/toolbox/jtag_atomic/";
 $ENV{'DAQOPSERVER'}="localhost:7";
 
+unless(-e $dumpPath or mkdir $dumpPath) {
+  die "Unable to create $dumpPath\n";
+}
+
+unless(-e $picPath or mkdir $picPath) {
+  die "Unable to create $picPath\n";
+}
 
 system("./startup.pl ../setup/testsetup.xml");
 # chdir("preview");