my $parser = XML::LibXML->new();
my $specfile = "";
my $setfile = "";
+my $specfileName = "";
+my $setfileName = "";
my $spectree;
my $settree;
+my $ancestryTree;
+my @ancestryList;
+
my $confDir = '../config';
my $specDir = '../specs';
if ( $cgiHash{'print'} eq 'spectree' ) {
print "<div class='header'>Available Settings</div>\n";
parseSetAndSpec( $cgiHash{'configFile'} );
+ print "<div class='ancestorInfo' align='center'>specifications loaded from $specfileName</div>";
print_registers($specfile);
}
if ( $cgiHash{'print'} eq 'settree' ) {
print "<div class='header'>Selected Settings</div>\n";
parseSetAndSpec( $cgiHash{'configFile'} );
+ print "<div class='ancestorInfo' align='center'>";
+ print "inherit settings from";
+ print "</div>";
print_registers($setfile);
}
}
sub parseSetAndSpec {
- $setfile = $confDir . "/" . $_[0];
- $settree = $parser->parse_file($setfile);
- my $specFileName = $settree->findvalue("/MAPS/\@specDbFile");
- $specfile = $specDir . "/" . $specFileName;
+ parseSet($_[0]);
+ $specfileName = $settree->findvalue("/MAPS/\@specDbFile");
+ $specfile = $specDir . "/" . $specfileName;
$spectree = $parser->parse_file($specfile);
}
sub parseSet {
+ $setfileName = $_[0];
$setfile = $confDir . "/" . $_[0];
$settree = $parser->parse_file($setfile);
}
+sub buildAncestry { # recursive
+
+}
+
sub del {
my $registerName = $_[0];
close SCHREIBEN;
}
+
sub print_fileSelection {
my $configFile= $_[0];
print "</table>";
}
+sub changeAncestor {
+ my $ancestorFileName = $_[0];
+ my $xmltree=$settree;
+ my $maps = $xmltree->findnodes("/MAPS")->shift();
+
+ $maps->setAttribute("inheritSettingsFrom",$ancestorFileName);
+
+}
+
+sub getAncestor {
+ my $xmltree=$settree;
+ return ($xmltree->findvalue("/MAPS/\@inheritSettingsFrom")||"");
+}
+
sub save {
my $registerName = $_[0];
var e = document.getElementById("fileSelector");
return e.options[e.selectedIndex].text;}
else {
- return "none";
+ return "";
}
}