added testgui.pl

diff --git a/tools/jtageditor.pl b/tools/jtageditor.pl
index 64425c7b548af688a19c1f27c0500218a60062c3..954749726295ab671dd05b2bb2469655f7e7e413 100755 (executable)
--- 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 (executable)
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);
+