From 01b5e694b96fa7702e2007f0dc67d29aedb634e9 Mon Sep 17 00:00:00 2001
From: Michael Wiebusch <stratomaster@gmx.net>
Date: Mon, 5 Aug 2013 17:06:55 +0200
Subject: [PATCH] added runtime textfield

---
 tools/run.pl | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/tools/run.pl b/tools/run.pl
index d9727d8..e1e3f9c 100755
--- 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");
-- 
2.43.0