From edf024f8525b530205b9c57c8bff7896f04b1a0c Mon Sep 17 00:00:00 2001
From: Michael Wiebusch <stratomaster@gmx.net>
Date: Wed, 24 Jul 2013 16:50:50 +0200
Subject: [PATCH] added testgui.pl

---
 tools/jtageditor.pl |  9 ---------
 tools/testgui.pl    | 37 +++++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 9 deletions(-)
 create mode 100755 tools/testgui.pl

diff --git a/tools/jtageditor.pl b/tools/jtageditor.pl
index 64425c7..9547497 100755
--- a/tools/jtageditor.pl
+++ b/tools/jtageditor.pl
@@ -90,15 +90,6 @@ if ( $cgiHash{'print'} eq 'settree' ) {
   }
   parseConfigAndSpec( $cgiHash{'configFile'} );
   
-
-  
-## obsolete
-#   buildAncestry( $configFileName, "" )
-#     ;    #arg1: target file, # arg2: recursion parent target file
-# 
-#   $configTree = $ancestryTree;    # not so elegant
-## now use:
-
   integrateAncestry();
 
   print_ancestorInfo();
diff --git a/tools/testgui.pl b/tools/testgui.pl
new file mode 100755
index 0000000..ee635ea
--- /dev/null
+++ b/tools/testgui.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl -w
+#print "Content-type: text/html\n\n";
+
+
+my $me = "testgui.pl";
+
+use strict;
+use warnings;
+use XML::LibXML;
+use POSIX;
+use CGI ':standard';
+use Cwd;
+use CGI::Carp qw(fatalsToBrowser);
+use HTML::Entities;
+require Common;
+require xmlOperations;
+
+my $here = getcwd();
+
+my $q = CGI->new;
+
+print header;
+print start_html(
+-title=>'testgui',
+-style=>{'src'=>'../layout/styles.css'}
+);
+
+print h2("testgui");
+print "<p> still more to come </p>";
+
+print escapeHTML("hallo<<<>>>&&&!!"),br;
+print escapeHTML($here);
+
+chdir("./preview") or die "could not change directory!";
+system("./run -t 0.1");
+chdir($here);
+
-- 
2.43.0