use CGI::Carp qw(fatalsToBrowser);
use HTML::Entities;
require Common;
+require xmlOperations;
integrateAncestry();
-
print_ancestorInfo();
print_registers($configFile);
#################### SUBLAND ######################
-###############################
-## xml file operations
-###############################
-
-sub deleteFile {
- my $configFileName = $_[0];
- my $configFile = $confDir . "/" . $configFileName;
- unless ( -e $configFile ) {
- print "<p>selected file not found</p>";
- exit;
- }
- unlink($configFile);
- print "<p>config file was deleted</p>";
-}
-#args:configFileName #globs:$confDir
-
-sub createConfigFile {
- $configFileName = $_[0];
-
- $specFileName = $_[1]; #config file is based on this specification!
- $configFile = $confDir . "/" . $configFileName;
- $specFile = $specDir . "/" . $specFileName;
-
- $configTree = XML::LibXML->createDocument;
- $specTree = $parser->parse_file($specFile);
-
- my $configMaps = $configTree->createElementNS( "", "MAPS" );
- $configTree->setDocumentElement($configMaps);
-
- my $specMaps = $specTree->findnodes("/MAPS")->shift();
-
- my $mapsType = $specMaps->findvalue("./\@type");
-
- $configMaps->setAttribute( "type", $mapsType );
- $configMaps->setAttribute( "specDbFile", $specFileName );
-
-}
-# args: configFileName,specFileName
-# globs:$confDir,$specDir,$parser,$configFile,$specFile,$configFileName,$specFileName
-# description: create new configFileTree
-
-sub parseConfigAndSpec {
- parseConfigFile( $_[0] );
- $specFileName = $configTree->findvalue("/MAPS/\@specDbFile");
- $specFile = $specDir . "/" . $specFileName;
- unless ( -e $specFile ) {
- print
-"<p>specification file \"$specFileName\" could not be found in the specification directory \"$specDir\"</p>";
- exit;
- }
- $specTree = $parser->parse_file($specFile);
-}
-#args: configFileName #globs: $specFileName,$configTree,$specFile,$specDir,$specTree,$parser #calls: parseConfigFile()
-
-sub parseConfigFile {
- $configFileName = $_[0];
- $configFile = $confDir . "/" . $_[0];
- $configTree = $parser->parse_file($configFile);
- $configMapsType = $configTree->findvalue("/MAPS/\@type");
-}
-#args: configFileName #globs: $confDir,$configTree,$parser,$configFile,$configMapsType,$configFileName
-
-sub buildAncestry {
- # the file for which the ancestry shall be built
- my $xmlfileName = $_[0];
- # the file that referred $xmlfileName as its ancestor
- # should be "" if you start building the ancestry from the bottom
- my $descendantXmlFileName = $_[1];
-
- # no target file, no action!
- if ( $xmlfileName eq "" ) {
- return;
- }
-
- # check if you are not including yourself
- if ( $descendantXmlFileName eq $xmlfileName ) {
- print "<p>It's a bad idea to try to include yourself!</p>";
- print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- writeConfigFile();
- exit;
- }
-
- # check against circular dependencies
- for (@ancestryList) { # suppres circular dependencies!
- if ( $xmlfileName eq $_ ) {
-
- print "<p>No circular includes, please!</p>";
- print "<p>";
- print $descendantXmlFileName. "->"
- . join( "->", @ancestryList ) . "->"
- . $configFileName;
- print "</p>";
- print "<p>The faulty include directive was removed.</p>";
- print
- "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- writeConfigFile();
- exit;
-
- #die "no circular includes please! $!";
- return;
- }
- }
-
- my $xmlfile = $confDir . "/" . $xmlfileName;
-
- # check if all files in the ancestry really exist!
- unless ( -e $xmlfile ) {
-
- print "<p>You are trying to include a file that does not exist</p>";
- print "<p>";
- print "<strike>"
- . $xmlfileName
- . "</strike>" . "->"
- . join( "->", @ancestryList ) . "->"
- . $configFileName;
- print "</p>";
- print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- writeConfigFile();
- exit;
- return;
- }
- my $xmltree;
- if ( $xmlfile eq $configFile ) {
- $xmltree = $configTree;
- }
- else {
-
- # we got an ancestor here, write him to the ancestor list
- unshift( @ancestryList, $xmlfileName );
- $xmltree = $parser->parse_file($xmlfile);
-
- # tag all the fields with an heritage attribute
- for my $field ( $xmltree->findnodes("//field") ) {
- $field->setAttribute( "isHeritageFrom", "$xmlfileName" );
- }
- }
-
- my $ancestorFileName = $xmltree->findvalue("/MAPS/\@inheritSettingsFrom")
- || "";
- my $currentMapsType = $xmltree->findvalue("/MAPS/\@type");
- my $currentSpecFileName = $xmltree->findvalue("/MAPS/\@specDbFile");
-
- # compliance checking MAPS type
- unless ( $currentMapsType eq $configMapsType ) {
- print
-"<p>the included config file does not comply with the MAPS type of the current config file</p>";
- print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- writeConfigFile();
- exit;
- }
-
- # compliance checking specDbFile
- unless ( $currentSpecFileName eq $specFileName ) {
- print
-"<p>the included config file is not based on the same specification file as current config file</p>";
- print "<p>The faulty include directive was removed.</p>";
- print "<p><input type='button' onclick='loadFile()' value='back'></p>";
- changeAncestor(""); # break the evil circle where it was closed!
- writeConfigFile();
- exit;
- }
- unless ( $ancestorFileName eq "" ) {
-
- # this block is executed when an ancestor is found
- buildAncestry( $ancestorFileName, $xmlfileName )
- ; # recursion, second argument is the target file from THIS parent recursion call
-
- #integrate the current tree into the ancestryTree, overwrite older settings
- mergeTrees( $ancestryTree, $xmltree );
- }
- else {
-# this block is called when you are at the root of the ancestry -> you are THE father
-# begin the ancestry tree
- $ancestryTree = $xmltree;
- }
-}
-# args: xmlfileName,
-# parentXmlFileName
-
-# globs: @ancestryList,
-# $ancestryTree,
-# $configFileName,
-# $confDir,
-# $configTree,
-# $configMapsType,
-# %fileLevelHash
-
-# calls: changeAncestor(),
-# mergeTrees()
-
-# usage: buildAncestry($configFile,""), do not use directly, use integrateAncestry()!
-# description: recursively adds the contents of the ancestor files of $configFile to $ancestryTree
-
-
-sub integrateAncestry {
-
- buildAncestry($configFileName,"");
-
- my $counter = 1;
- for my $file ( reverse(@ancestryList) ) {
- $fileLevelHash{$file} = $counter;
- if ( $counter < 6 ) {
- $counter++;
- }
- }
-
- $configTree = $ancestryTree;
-}
-# globs: @ancestryList,%fileLevelHash,$configFileName,$configTree,$ancestryTree
-# description: this function extends $configTree to include all information that is held
-# by its ancestor (and ancestor's ancestor ... and so on)
-
-sub changeAncestor {
- my $ancestorFileName = $_[0];
- my $xmltree = $configTree;
- my $xmlfile = $configFile;
- my $maps = $xmltree->findnodes("/MAPS")->shift();
-
- $maps->setAttribute( "inheritSettingsFrom", $ancestorFileName );
-
-# open( SCHREIBEN, "> $xmlfile" )
-# or print "could not open file $xmlfile for writing: $!\n";
-#
-# print SCHREIBEN $xmltree->toString();
-# close SCHREIBEN;
-
-}
-# args: ancestorFileName
-# globs: $configTree,$configFile
-# description: change the "inheritSettingsFrom" tag in the current configTree to "ancestorFileName"
-# make change permanent by calling writeConfigFile() hereafter.
-
-sub del {
-
- my $registerName = $_[0];
- my $fieldName = $_[1];
- my $xmlfile = $configFile;
- my $xmltree = $configTree;
- 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;
-}
-# args: registerName,fieldName,
-# globs: $configFile,$configTree
-# description: deletes field "fieldName" in register "registerName" in $configTree
-# make change permanent by calling writeConfigFile() hereafter.
-
-
-sub save {
-
- my $registerName = $_[0];
- my $fieldName = $_[1];
- my $xmlfile = $configFile;
- my $newValue = $_[2];
-
- my $xmltree = $configTree;
- my $maps = $xmltree->findnodes("/MAPS")->shift();
- 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 );
-
- }
-
- $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;
-}
-# args: registerName,fieldName,newValue
-# globs: $configFile,$configTree,
-# description: saves value "newValue" in field "fieldName" in register "registerName" (in the $configTree)
-# if field or register does not exist yet, it is created.
-# make change permanent by calling writeConfigFile() hereafter.
-
-sub copyDefaultRegister {
- my $registerName = $_[0];
- #my $configTree = $parser->parse_file($configFile);
- #my $specTree = $parser->parse_file($specFile);
- my $configmaps = $configTree->findnodes("/MAPS")->shift();
- my $specmaps = $specTree->findnodes("/MAPS")->shift();
-
- my $specRegister =
- $specTree->findnodes( "/MAPS/register[\@name='" . $registerName . "']" )
- ->shift();
-
- my $configRegister = $configmaps->addNewChild( "", "register" );
- $configRegister->setAttribute( "name", $registerName );
-
- my @specFields = $specRegister->findnodes("./field");
-
- for my $specField (@specFields) {
- my $fieldName = $specField->findvalue("./\@name");
- my $fieldValue = $specField->findvalue("./\@defaultValue");
- my $configField = $configRegister->addNewChild( "", "field" );
- $configField->setAttribute( "name", $fieldName );
- $configField->setAttribute( "value", $fieldValue );
- print $configField->findvalue("./\@value");
- }
-
- #writeConfigFile();
-}
-# args: registerName
-# globs: $configTree,$specTree,$configFile
-# description: copys register "registerName" from $specTree to $configTree
-# make change permanent by calling writeConfigFile() hereafter.
-
-sub writeConfigFile(){
- open( SCHREIBEN, "> $configFile" )
- or print "could not open file $configFile for writing: $!\n";
-
- print SCHREIBEN $configTree->toString();
- close SCHREIBEN;
-}
-# globs: $configFile,$configTree
-# description: writes the current $configTree to $configFile
###############################
## subs generating html output
--- /dev/null
+#!/usr/bin/perl -w
+
+
+
+###############################
+## xml file operations
+###############################
+
+sub deleteFile {
+ my $configFileName = $_[0];
+ my $configFile = $confDir . "/" . $configFileName;
+ unless ( -e $configFile ) {
+ print "<p>selected file not found</p>";
+ exit;
+ }
+ unlink($configFile);
+ print "<p>config file was deleted</p>";
+}
+#args:configFileName #globs:$confDir
+
+sub createConfigFile {
+ $configFileName = $_[0];
+
+ $specFileName = $_[1]; #config file is based on this specification!
+ $configFile = $confDir . "/" . $configFileName;
+ $specFile = $specDir . "/" . $specFileName;
+
+ $configTree = XML::LibXML->createDocument;
+ $specTree = $parser->parse_file($specFile);
+
+ my $configMaps = $configTree->createElementNS( "", "MAPS" );
+ $configTree->setDocumentElement($configMaps);
+
+ my $specMaps = $specTree->findnodes("/MAPS")->shift();
+
+ my $mapsType = $specMaps->findvalue("./\@type");
+
+ $configMaps->setAttribute( "type", $mapsType );
+ $configMaps->setAttribute( "specDbFile", $specFileName );
+
+}
+# args: configFileName,specFileName
+# globs:$confDir,$specDir,$parser,$configFile,$specFile,$configFileName,$specFileName
+# description: create new configFileTree
+
+sub parseConfigAndSpec {
+ parseConfigFile( $_[0] );
+ $specFileName = $configTree->findvalue("/MAPS/\@specDbFile");
+ $specFile = $specDir . "/" . $specFileName;
+ unless ( -e $specFile ) {
+ print
+"<p>specification file \"$specFileName\" could not be found in the specification directory \"$specDir\"</p>";
+ exit;
+ }
+ $specTree = $parser->parse_file($specFile);
+}
+#args: configFileName #globs: $specFileName,$configTree,$specFile,$specDir,$specTree,$parser #calls: parseConfigFile()
+
+sub parseConfigFile {
+ $configFileName = $_[0];
+ $configFile = $confDir . "/" . $_[0];
+ $configTree = $parser->parse_file($configFile);
+ $configMapsType = $configTree->findvalue("/MAPS/\@type");
+}
+#args: configFileName #globs: $confDir,$configTree,$parser,$configFile,$configMapsType,$configFileName
+
+sub buildAncestry {
+ # the file for which the ancestry shall be built
+ my $xmlfileName = $_[0];
+ # the file that referred $xmlfileName as its ancestor
+ # should be "" if you start building the ancestry from the bottom
+ my $descendantXmlFileName = $_[1];
+
+ # no target file, no action!
+ if ( $xmlfileName eq "" ) {
+ return;
+ }
+
+ # check if you are not including yourself
+ if ( $descendantXmlFileName eq $xmlfileName ) {
+ print "<p>It's a bad idea to try to include yourself!</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ writeConfigFile();
+ exit;
+ }
+
+ # check against circular dependencies
+ for (@ancestryList) { # suppres circular dependencies!
+ if ( $xmlfileName eq $_ ) {
+
+ print "<p>No circular includes, please!</p>";
+ print "<p>";
+ print $descendantXmlFileName. "->"
+ . join( "->", @ancestryList ) . "->"
+ . $configFileName;
+ print "</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print
+ "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ writeConfigFile();
+ exit;
+
+ #die "no circular includes please! $!";
+ return;
+ }
+ }
+
+ my $xmlfile = $confDir . "/" . $xmlfileName;
+
+ # check if all files in the ancestry really exist!
+ unless ( -e $xmlfile ) {
+
+ print "<p>You are trying to include a file that does not exist</p>";
+ print "<p>";
+ print "<strike>"
+ . $xmlfileName
+ . "</strike>" . "->"
+ . join( "->", @ancestryList ) . "->"
+ . $configFileName;
+ print "</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ writeConfigFile();
+ exit;
+ return;
+ }
+
+ my $xmltree;
+ if ( $xmlfile eq $configFile ) {
+ $xmltree = $configTree;
+ }
+ else {
+
+ # we got an ancestor here, write him to the ancestor list
+ unshift( @ancestryList, $xmlfileName );
+ $xmltree = $parser->parse_file($xmlfile);
+
+ # tag all the fields with an heritage attribute
+ for my $field ( $xmltree->findnodes("//field") ) {
+ $field->setAttribute( "isHeritageFrom", "$xmlfileName" );
+ }
+ }
+
+ my $ancestorFileName = $xmltree->findvalue("/MAPS/\@inheritSettingsFrom")
+ || "";
+ my $currentMapsType = $xmltree->findvalue("/MAPS/\@type");
+ my $currentSpecFileName = $xmltree->findvalue("/MAPS/\@specDbFile");
+
+ # compliance checking MAPS type
+ unless ( $currentMapsType eq $configMapsType ) {
+ print
+"<p>the included config file does not comply with the MAPS type of the current config file</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ writeConfigFile();
+ exit;
+ }
+
+ # compliance checking specDbFile
+ unless ( $currentSpecFileName eq $specFileName ) {
+ print
+"<p>the included config file is not based on the same specification file as current config file</p>";
+ print "<p>The faulty include directive was removed.</p>";
+ print "<p><input type='button' onclick='loadFile()' value='back'></p>";
+ changeAncestor(""); # break the evil circle where it was closed!
+ writeConfigFile();
+ exit;
+ }
+ unless ( $ancestorFileName eq "" ) {
+
+ # this block is executed when an ancestor is found
+ buildAncestry( $ancestorFileName, $xmlfileName )
+ ; # recursion, second argument is the target file from THIS parent recursion call
+
+ #integrate the current tree into the ancestryTree, overwrite older settings
+ mergeTrees( $ancestryTree, $xmltree );
+ }
+ else {
+# this block is called when you are at the root of the ancestry -> you are THE father
+# begin the ancestry tree
+ $ancestryTree = $xmltree;
+ }
+}
+# args: xmlfileName,
+# parentXmlFileName
+
+# globs: @ancestryList,
+# $ancestryTree,
+# $configFileName,
+# $confDir,
+# $configTree,
+# $configMapsType,
+# %fileLevelHash
+
+# calls: changeAncestor(),
+# mergeTrees()
+
+# usage: buildAncestry($configFile,""), do not use directly, use integrateAncestry()!
+# description: recursively adds the contents of the ancestor files of $configFile to $ancestryTree
+
+
+sub integrateAncestry {
+
+ buildAncestry($configFileName,"");
+
+ my $counter = 1;
+ for my $file ( reverse(@ancestryList) ) {
+ $fileLevelHash{$file} = $counter;
+ if ( $counter < 6 ) {
+ $counter++;
+ }
+ }
+
+ $configTree = $ancestryTree;
+}
+# globs: @ancestryList,%fileLevelHash,$configFileName,$configTree,$ancestryTree
+# description: this function extends $configTree to include all information that is held
+# by its ancestor (and ancestor's ancestor ... and so on)
+
+sub changeAncestor {
+ my $ancestorFileName = $_[0];
+ my $xmltree = $configTree;
+ my $xmlfile = $configFile;
+ my $maps = $xmltree->findnodes("/MAPS")->shift();
+
+ $maps->setAttribute( "inheritSettingsFrom", $ancestorFileName );
+
+# open( SCHREIBEN, "> $xmlfile" )
+# or print "could not open file $xmlfile for writing: $!\n";
+#
+# print SCHREIBEN $xmltree->toString();
+# close SCHREIBEN;
+
+}
+# args: ancestorFileName
+# globs: $configTree,$configFile
+# description: change the "inheritSettingsFrom" tag in the current configTree to "ancestorFileName"
+# make change permanent by calling writeConfigFile() hereafter.
+
+sub del {
+
+ my $registerName = $_[0];
+ my $fieldName = $_[1];
+ my $xmlfile = $configFile;
+ my $xmltree = $configTree;
+ 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;
+}
+# args: registerName,fieldName,
+# globs: $configFile,$configTree
+# description: deletes field "fieldName" in register "registerName" in $configTree
+# make change permanent by calling writeConfigFile() hereafter.
+
+
+sub save {
+
+ my $registerName = $_[0];
+ my $fieldName = $_[1];
+ my $xmlfile = $configFile;
+ my $newValue = $_[2];
+
+ my $xmltree = $configTree;
+ my $maps = $xmltree->findnodes("/MAPS")->shift();
+ 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 );
+
+ }
+
+ $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;
+}
+# args: registerName,fieldName,newValue
+# globs: $configFile,$configTree,
+# description: saves value "newValue" in field "fieldName" in register "registerName" (in the $configTree)
+# if field or register does not exist yet, it is created.
+# make change permanent by calling writeConfigFile() hereafter.
+
+sub copyDefaultRegister {
+ my $registerName = $_[0];
+ #my $configTree = $parser->parse_file($configFile);
+ #my $specTree = $parser->parse_file($specFile);
+ my $configmaps = $configTree->findnodes("/MAPS")->shift();
+ my $specmaps = $specTree->findnodes("/MAPS")->shift();
+
+ my $specRegister =
+ $specTree->findnodes( "/MAPS/register[\@name='" . $registerName . "']" )
+ ->shift();
+
+ my $configRegister = $configmaps->addNewChild( "", "register" );
+ $configRegister->setAttribute( "name", $registerName );
+
+ my @specFields = $specRegister->findnodes("./field");
+
+ for my $specField (@specFields) {
+ my $fieldName = $specField->findvalue("./\@name");
+ my $fieldValue = $specField->findvalue("./\@defaultValue");
+ my $configField = $configRegister->addNewChild( "", "field" );
+ $configField->setAttribute( "name", $fieldName );
+ $configField->setAttribute( "value", $fieldValue );
+ print $configField->findvalue("./\@value");
+ }
+
+ #writeConfigFile();
+}
+# args: registerName
+# globs: $configTree,$specTree,$configFile
+# description: copys register "registerName" from $specTree to $configTree
+# make change permanent by calling writeConfigFile() hereafter.
+
+sub writeConfigFile(){
+ open( SCHREIBEN, "> $configFile" )
+ or print "could not open file $configFile for writing: $!\n";
+
+ print SCHREIBEN $configTree->toString();
+ close SCHREIBEN;
+}
+# globs: $configFile,$configTree
+# description: writes the current $configTree to $configFile
+
+
+1;
+
+__END__
jspc29 / mvdsensorcontrol.git / commitdiff