+++ /dev/null
-#!/usr/bin/perl -w
-print "Content-type: text/html\n\n";
-
-my $me="cgitest.pl";
-
-use strict;
-use warnings;
-use XML::LibXML;
-use POSIX;
-use CGI::Carp qw(fatalsToBrowser);
-use HTML::Entities;
-
-sub initPage {
-
-print <<EOF;
-<HTML>
-<HEAD>
-<title>JTAG Editor</title>
-<link href="../layout/styles.css" rel="stylesheet" type="text/css"/>
-<link href="../layout/jtageditor.css" rel="stylesheet" type="text/css"/>
-EOF
-printJavaScripts();
-print <<EOF;
-</HEAD>
-<BODY onload='reloadFileSelection()'>
-<h2>JTAG Configuration File Editor</h2>
-<div id="debug">
-debug text
-</div>
-<div id="fileSelection">
-
-Current File: unknown
-</div>
-
-<div id="roterBereich">
-empty
-</div>
-<div id="blauerBereich">
-empty
-</div>
-
-
-</BODY>
-</HTML>
-EOF
-
-}
-
-
-
-my %cgiHash = &read_input;
-
-
-if (!keys %cgiHash) { # if script is called without arguments: initialize the html structure
-initPage();
-exit;
-}
-
-
-my $parser = XML::LibXML->new();
-my $specfile = "";
-my $setfile = "";
-my $spectree;
-my $settree;
-
-my $confDir = '../config';
-my $specDir = '../specs';
-
-
-if ($cgiHash{'print'} eq 'fileSelection'){
-print "<div class='header'>File Selection</div>";
-
-print_fileSelection();
-
-}
-
-
-
-if ($cgiHash{'print'} eq 'spectree') {
-print "<div class='header'>Available Settings</div>\n";
-parseSetAndSpec($cgiHash{'configFile'});
-print_registers($specfile);
-}
-
-
-if ($cgiHash{'print'} eq 'settree') {
-print "<div class='header'>Selected Settings</div>\n";
-parseSetAndSpec($cgiHash{'configFile'});
-print_registers($setfile);
-}
-
-
-if (defined $cgiHash{'debuginput'}) {
-print $cgiHash{'debuginput'};
-}
-
-if (defined $cgiHash{'action'} ) {
-
- printHash(\%cgiHash);
- if($cgiHash{'action'} eq 'save') {
- parseSet($cgiHash{'configFile'});
- save($cgiHash{'register'},$cgiHash{'field'},$cgiHash{'value'});
- }
- if($cgiHash{'action'} eq 'delete'){
- parseSet($cgiHash{'configFile'});
- del($cgiHash{'register'},$cgiHash{'field'});
- }
- if($cgiHash{'action'} eq 'copyDefaultRegister'){
- parseSetAndSpec($cgiHash{'configFile'});
- del($cgiHash{'register'},""); # delete existing register from setfile
- copyDefaultRegister($cgiHash{'register'});
- }
-}
-
-
-
-#################### SUBLAND ######################
-
-sub prepare_text {
- my $t = $_[0];
- chomp $t;
- $t = encode_entities($t);
- $t =~ s/^\s//;
- $t =~ s/^\n//;
- $t =~ s/\t//;
- return $t;
- }
-
-
-
-sub parseSetAndSpec {
- $setfile = $confDir."/".$_[0];
- $settree = $parser->parse_file($setfile);
- my $specFileName = $settree->findvalue("/MAPS/\@specDbFile");
- $specfile = $specDir."/".$specFileName;
- $spectree = $parser->parse_file($specfile);
-}
-
-sub parseSet {
- $setfile = $confDir."/".$_[0];
- $settree = $parser->parse_file($setfile);
-}
-
-sub del {
-
-
- my $registerName=$_[0];
- my $fieldName=$_[1];
- my $xmlfile = $setfile;
- my $xmltree = $settree;
- my $maps = $xmltree->findnodes("/MAPS")->shift();
- my $register = $xmltree->findnodes("/MAPS/register[\@name='".$registerName."']")->shift();
-
- if ($fieldName eq "") { # no field specified, remove whole register
- unless($register eq ""){
- $maps->removeChild($register);
- }
- print "deleted whole register";
- } else {
-
- my $field = $xmltree->findnodes("/MAPS/register[\@name='".$registerName."']/field[\@name='".$fieldName."']")->shift();
- $register->removeChild($field);
- print "deleted field<br>";
- unless( $register->hasChildNodes()){
- $maps->removeChild($register);
- print "deleted register as well<br>";
- }
- }
- open(SCHREIBEN,"> $xmlfile")
- or print "could not open file $xmlfile for writing: $!\n";
-
-print SCHREIBEN $xmltree->toString();
-close SCHREIBEN;
-}
-
-sub print_fileSelection {
-
-print "<table>";
-print "<tr>";
-print "<td>select config file:<td>";
-print "</tr>";
-
-print "<tr>";
-
-print "<td>";
- opendir(DIR, $confDir) or die $!;
-
-print '<select name="fileSelectionDropdown" id="fileSelector">';
-
- while (my $file = readdir(DIR)) {
-
- # Use a regular expression to ignore files beginning with a period
- next if ($file =~ m/^\./);
- #print "$file\n";
- if ($file =~ m/\.xml$/){
- print '<option value="'.$file.'">'.$file.'</option>';
- }
- }
-
- closedir(DIR);
-
-print '</select>';
-
-print "</td>";
-
-print "<td>";
-print "<input type='button' onclick='reloadTrees()' value='load file'>";
-print "</td>";
-
-print "</tr>";
-
-print "</table>";
-}
-
-
-sub save {
-
- my $registerName=$_[0];
- my $fieldName=$_[1];
- my $xmlfile = $setfile;
- my $newValue = $_[2];
-
- my $xmltree= $settree;
- my $maps = $xmltree->findnodes("/MAPS")->shift();
- #my @fields = $xmltree->findnodes("/MAPS/register[\@name='".$registerName."']/field[\@name='".$fieldName."']");
- my $register = $xmltree->findnodes("/MAPS/register[\@name='".$registerName."']")->shift();
-
- if($register eq ""){
- $register = $maps->addNewChild("","register");
- $register->setAttribute("name",$registerName);
- }
-
-
- my $field = $xmltree->findnodes("/MAPS/register[\@name='".$registerName."']/field[\@name='".$fieldName."']")->shift();
-
- if($field eq ""){
- $field = $register->addNewChild( "","field" );
- $field->setAttribute( "name", $fieldName );
-
- }
- #my $fieldValue = ($xmltree->findnodes("/MAPS/register[\@name='".$registerName."']/field[\@name='".$fieldName."']/\@name='value'"))[0];
- #print $fieldValue->findvalue("./");
- $field->setAttribute( "value", $newValue );
- print $field->findvalue("./\@value");
- open(SCHREIBEN,"> $xmlfile")
- or print "could not open file $xmlfile for writing: $!\n";
-
-print SCHREIBEN $xmltree->toString();
-close SCHREIBEN;
-}
-
-sub copyDefaultRegister {
- my $registerName=$_[0];
- my $settree = $parser->parse_file($setfile);
- my $spectree = $parser->parse_file($specfile);
- my $setmaps = $settree->findnodes("/MAPS")->shift();
- my $specmaps = $spectree->findnodes("/MAPS")->shift();
-
- my $specRegister = $spectree->findnodes("/MAPS/register[\@name='".$registerName."']")->shift();
-
- my $setRegister = $setmaps->addNewChild("","register");
- $setRegister->setAttribute("name",$registerName);
-
- my @specFields = $specRegister->findnodes("./field");
-
- for my $specField (@specFields){
- my $fieldName = $specField->findvalue("./\@name");
- my $fieldValue = $specField->findvalue("./\@defaultValue");
- my $setField = $setRegister->addNewChild( "","field" );
- $setField->setAttribute( "name", $fieldName );
- $setField->setAttribute( "value", $fieldValue );
- print $setField->findvalue("./\@value");
- }
- open(SCHREIBEN,"> $setfile")
- or print "could not open file $setfile for writing: $!\n";
-
-print SCHREIBEN $settree->toString();
-close SCHREIBEN;
-}
-
-sub by_name {
- my $a_name= $a->findvalue("./\@name") ;
- my $b_name= $b->findvalue("./\@name") ;
-
- # putting $b_published in front will ensure the descending order.
- return $a_name cmp $b_name;
-}
-
-sub printHash {
- my $hashref=$_[0];
- for my $element( keys %{$hashref}){
- print $element."=".$hashref->{$element}."<br>\n";
- }
-}
-
-
-sub print_registers {
-my $xmlfile = $_[0];
-my $xmltree;
-if ($xmlfile eq $setfile) {
- $xmltree = $settree;
-} elsif ($xmlfile eq $specfile) {
- $xmltree = $spectree;
-} else {
- die "xmlfile given to sub print_registers is unknown";
-}
-my @registers = sort by_name $xmltree->findnodes("/MAPS/register");
-print "<table class=\"registers\">";
-for my $register (@registers ){
-
- my $registerName = $register->findvalue("./\@name");
- my $registerId = $register->findvalue("./\@id");
- my $registerSize = $register->findvalue("./\@size");
- my $registerDescr = prepare_text($spectree->findvalue("/MAPS/register[\@name='".$registerName."']/description") || "n/a");
-
- my $flistid = $xmlfile."//".$registerName;
-
- print "<tr>";
-
- print <<EOF;
-<td onClick='toggleVis("$flistid",this)' class='regheader'> + </td>
-EOF
- print "<td title=\"$registerDescr\">$registerName</td>";
- #print "<td>$registerId</td>";
-
- if($xmlfile eq $setfile){
- print <<EOF;
-<td class='button_move' onclick='deleteSettings("$registerName","");'> X </td>
-EOF
- }
- if($xmlfile eq $specfile){
- print <<EOF;
-<td class='button_move' onclick='copyDefaultRegister("$registerName");'> → </td>
-EOF
- }
-
- print "</tr>";
- #print "<tr>";
-
- print '<tr id="'.$flistid.'" class="bitfield">';
- print '<td></td>';
- print '<td class="fieldcontainer">';
- print_fields($xmlfile,$register);
- print "<td>";
- print "</tr>";
-}
-print "</table>";
-}
-
-sub print_fields {
-
- my $register = $_[1];
- my $xmlfile = $_[0];
- my $registerName = $register->findvalue("./\@name");
- my @fields = sort by_name $register->findnodes("./field");
- print "<table class=\"fields\">";
- for my $field (@fields){
- my $fieldName = $field->findvalue("./\@name");
- my $readOnlyFlag = 0;
- my $fieldValue = $field->findvalue("./\@value");
- my $fieldDescr = prepare_text($spectree->findvalue("/MAPS/register[\@name='".$registerName."']/field[\@name='".$fieldName."']/description") || "n/a");
- my $fieldId = $xmlfile."//".$registerName."/".$fieldName;
- if ($fieldValue eq "") {
- $fieldValue = $field->findvalue("./\@defaultValue");
- $readOnlyFlag=1;
- }
-
- print "<tr>";
- print "<td width=120 title=\"$fieldDescr\">$fieldName</td>";
- print "<td> = </td>";
- if ($readOnlyFlag){
- print <<EOF;
- <td width=120 align='right'>$fieldValue</td>
-EOF
- } else {
- print <<EOF;
-<td align='right'>
-<input type='text' align='right' value='$fieldValue' onchange='saveSettings("$registerName","$fieldName",this.value)' >
-</td>
-EOF
-
- }
- print '</td>';
- if($xmlfile eq $specfile){
- print <<EOF;
-<td class='button_move' onclick='saveSettings("$registerName","$fieldName","$fieldValue");'> → </td>
-EOF
- }
- if($xmlfile eq $setfile){
- print <<EOF;
-<td class='button_move' onclick='deleteSettings("$registerName","$fieldName");'> X </td>
-EOF
- }
- print "</tr>";
- }
- print "</table>";
-
-}
-
-
-sub read_input
-{
- my $buffer; my @pairs; my $pair; my $name; my $value;my %FORM;
- # Read in text
- $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
- if ($ENV{'REQUEST_METHOD'} eq "POST")
- {
- read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
- } else
- {
- $buffer = $ENV{'QUERY_STRING'};
- }
- # Split information into name/value pairs
- @pairs = split(/&/, $buffer);
- foreach $pair (@pairs)
- {
- ($name, $value) = split(/=/, $pair);
- $value =~ tr/+/ /;
- $value =~ s/%(..)/pack("C", hex($1))/eg;
- $FORM{$name} = $value;
- }
- %FORM;
-}
-
-
-
-sub printJavaScripts {
-
-
-####### javascript function land ################
-
-
-print <<EOF ;
-
-<script language="javascript">
-
-
-function selectedConfigFile(){
-var e = document.getElementById("fileSelector");
-return e.options[e.selectedIndex].text;
-}
-
-
-var visHash= new Object();
-
-
-function reloadSpecTree(){
-getdata('$me?print=spectree&configFile='+selectedConfigFile(),'roterBereich',false);
-for (var key in visHash) {
-if(visHash[key]==true){
-showElement(key);
-}
-}
-}
-
-function reloadSetTree(){
-getdata('$me?print=settree&configFile='+selectedConfigFile(),'blauerBereich',false);
-for (var key in visHash) {
-if(visHash[key]==true){
-showElement(key);
-}
-}
-}
-
-function reloadTrees(){
-debugOutput("reload Trees from "+selectedConfigFile());
-reloadSpecTree();
-reloadSetTree();
-}
-
-function reloadFileSelection(){
-getdata('$me?print=fileSelection','fileSelection',false);
-}
-
-function saveSettings(register,field,value){
-//getdata("$me?debuginput=tralla","debug");
-var file_ = encodeURIComponent(selectedConfigFile());
-var register_ = encodeURIComponent(register);
-var field_ = encodeURIComponent(field);
-var value_ = encodeURIComponent(value);
-
-getdata("$me?action=save&configFile="+file_+"®ister="+register_+"&field="+field_+"&value="+value_,"debug",false);
-//getdata("$me?print=settree","blauerBereich",true);
-reloadSetTree();
-}
-
-function deleteSettings(register,field){
-//getdata("$me?debuginput=tralla","debug");
-var file_ = encodeURIComponent(selectedConfigFile());
-var register_ = encodeURIComponent(register);
-var field_ = encodeURIComponent(field);
-
-getdata("$me?action=delete&configFile="+file_+"®ister="+register_+"&field="+field_,"debug",false);
-//getdata("$me?print=settree","blauerBereich",true);
-reloadSetTree();
-}
-
-function copyDefaultRegister(register){
-var register_ = encodeURIComponent(register);
-var file_ =encodeURIComponent(selectedConfigFile());
-getdata("$me?action=copyDefaultRegister®ister="+register_+'&configFile='+file_,"debug",false);
-//getdata("$me?print=settree","blauerBereich",true);
-reloadSetTree();
-}
-
-function debugOutput(input){
-getdata("$me?debuginput="+encodeURIComponent(input),"debug",true);
-}
-
-function writeToElementId(input,destId){
- if(document.getElementById(destId).innerHTML){
- document.getElementById(destId).innerHTML = input;
- }
-
-}
-
-
-function toggleVis(elementId,t) {
-if(document.getElementById(elementId)){
-if( document.getElementById(elementId).style.visibility == "visible") {
- document.getElementById(elementId).style.visibility = "collapse";
- visHash[elementId]=false;
- t.innerHTML = " + ";
-} else {
- document.getElementById(elementId).style.visibility = "visible" ;
- visHash[elementId]=true;
- t.innerHTML = " − ";
-}
-}
-}
-function showElement(elementId) {
- if(document.getElementById(elementId)){
- document.getElementById(elementId).style.visibility = "visible" ;
- visHash[elementId]=true;
- }
-}
-function hideElement(elementId) {
- if(document.getElementById(elementId)){
- document.getElementById(elementId).style.visibility = "hidden" ;
- visHash[elementId]=false;
- }
-}
-function collapseElement(elementId) {
- if(document.getElementById(elementId)){
- document.getElementById(elementId).style.visibility = "collapse" ;
- visHash[elementId]=false;
- }
-}
-
-</script>
-
-<script language="javascript">
-function getdata(command,dId,async) {
- var xmlhttp = null;
- //var cb = null;
- xmlhttp=new XMLHttpRequest();
- //cb = callback;
- var destId = dId;
-
- xmlhttp.onreadystatechange = function() {
- if(xmlhttp.readyState == 4 && xmlhttp.status==200) {
- //if(cb)
- if(document.getElementById(destId).innerHTML){
- document.getElementById(destId).innerHTML = xmlhttp.responseText;
- }
- //cb(xmlhttp.responseText);
- //document.getElementById(destId).innerHTML = xmlhttp.responseText;
- }
- }
-
- xmlhttp.open("GET",command,async);
- xmlhttp.send(null);
- }
-</script>
-EOF
-
-}
jspc29 / daqtools.git / commitdiff