From: Michael Wiebusch Date: Fri, 19 Jul 2013 23:56:36 +0000 (+0200) Subject: added changeConfigVal.pl X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=b6b0011b8e22e535695dcac67c8f1cf547b6a07a;p=mvdsensorcontrol.git added changeConfigVal.pl --- diff --git a/tools/Common.pm b/tools/Common.pm index 3b84553..555577a 100644 --- a/tools/Common.pm +++ b/tools/Common.pm @@ -8,6 +8,21 @@ ## misc utilities ############################### +sub getStdIn { +#write std in into an array and return that +# if semicola are somewhere, interprete +# as newline +my @userinput = ; +my @userinput_; +for my $line (@userinput){ + for my $command (split(";",$line)){ + $command =~ s/\n//g; + push(@userinput_,$command); + } +} +return @userinput_ +} + sub any2hex { my $argument = $_[0]; diff --git a/tools/changeConfigVal.pl b/tools/changeConfigVal.pl new file mode 100755 index 0000000..386616a --- /dev/null +++ b/tools/changeConfigVal.pl @@ -0,0 +1,165 @@ +#!/usr/bin/perl -w + +use strict; +use warnings; +use XML::LibXML; +use POSIX; +use Getopt::Long; +use Pod::Usage; + +require Common; +require xmlOperations; + + + +# TODO: + +# create new file by giving "new" flag + specfile +# testing ... + + + +# manage command line options +my $help=0; +my $configFile=0; +#my $specFile=0; +#my $output=0; +my $verbose=0; +my $testblock=0; + +Getopt::Long::Configure(qw(gnu_getopt)); +GetOptions( + 'help|h' => \$help, + 'verbose|v' => \$verbose, + 'config|c=s' => \$configFile, +# 'spec|s=s' => \$specFile, +# 'output|o=s' => \$output, +# 'redundant|r' => \$redundant, + 'testblock|t' => \$testblock + ) or pod2usage(2); +pod2usage(1) if $help; +### + + +# if verbose flag is set, make verbose filehandle equal STDOUT and not /dev/null +# which means: if verbose flag is set, then really print the verbose print directives +unless ($verbose) { + open(VERBOSE, '>', "/dev/null") or die; +} else { + *VERBOSE = *STDOUT; +} + +#### room for testblocks ######################################## + +if($testblock){ + + + + +} +################################################################# + + + +# ini and specfile arguments mandatory! +unless ($configFile) { + pod2usage(1); +} +# + + + +################################## + +my $configFileName = ""; #don't get it confused with $configFileName in xmlOperations.pm + + +############################### + +our $confDir = '../config'; # default, gets overwritten anyway +our $specDir = '../specs'; + +# separate configFileName and the containing directory path +my @configFilePath = split("/",$configFile); +$configFileName = pop(@configFilePath); +$confDir = join("/",@configFilePath); + +print VERBOSE "configFileName: $configFileName\nconfDir: $confDir\n"; + +# check if file exists +unless (-e $configFile) { + die "config file does not exist!"; + } + +# parse config and spec file +parseConfigAndSpec( $configFileName ); + +# no ancestry +#integrateAncestry(); + +# now we will need to copy some variables from xmlOperations to here + $configFile = getConfigFile(); + my $specFile = getSpecFile(); + $configFileName = getConfigFileName(); + my $specFileName = getSpecFileName(); + my $configTree = getConfigTree(); + my $specTree = getSpecTree(); + + +print VERBOSE "specFileName: $specFileName\n specDir: $specDir\n"; + + +my @inputLines = getStdIn(); + +for my $line (@inputLines){ + + $line =~ m/^\s*([0-9a-zA-Z_]+)\s*\/\s*([0-9a-zA-Z_]+)\s*=\s*([0-9a-zA-Z]+)/; + my $register = $1; + my $field = $2; + my $value = $3; + + print VERBOSE "changed register $register field $field to $value\n"; + + + if (lc($value) eq "default") { + if($field eq "*") { + $field = ""; + } + del($register,$field); + } else { + save($register,$field,$value); + } + + +} + +print VERBOSE "attempting to write the config file ...\n"; +writeConfigFile(); +print VERBOSE "done\n"; + + + + +############################### +#### Feierabend! +############################### +__END__ + +=head1 NAME + +changeConfigVal.pl - set specific values inside a configuration file + +=head1 SYNOPSIS + +changeConfigVal.pl -c config.xml [-v] + + Options: + -h, --help brief help message + -v, --verbose detailed debugging info about ongoing actions + -c, --config specifies the input config xml file + +=back + +=head1 DESCRIPTION + +=cut diff --git a/tools/xml2ini.pl b/tools/xml2ini.pl index cf0188b..4282584 100755 --- a/tools/xml2ini.pl +++ b/tools/xml2ini.pl @@ -6,7 +6,6 @@ use XML::LibXML; use POSIX; use Getopt::Long; use Pod::Usage; -#use bignum qw/hex/; require Common; require xmlOperations; @@ -15,16 +14,20 @@ require xmlOperations; # TODO: -# remove issues with spec file input, -# it comes with the specDbFileTag anyway! # pass specification path as argument # changeAncestor is not available here, why does it not complain? -# inheriting still not working, something wrong in sub merge trees 420,433 + # done: + +# inheriting still not working, something wrong in sub merge trees 420,433 + +# remove issues with spec file input, +# it comes with the specDbFileTag anyway! + # recognize confDir from configFile path # cast error when field value is too big for field! diff --git a/tools/xmlOperations.pm b/tools/xmlOperations.pm index d1abb4e..37274d7 100644 --- a/tools/xmlOperations.pm +++ b/tools/xmlOperations.pm @@ -306,10 +306,10 @@ sub del { ->shift(); if ( $fieldName eq "" ) { # no field specified, remove whole register - unless ( $register eq "" ) { + if(defined ( $register ) ) { $maps->removeChild($register); } - print "deleted whole register"; + #print "deleted whole register"; } else { @@ -319,11 +319,15 @@ sub del { . "']/field[\@name='" . $fieldName . "']" )->shift(); - $register->removeChild($field); - print "deleted field
"; - unless ( $register->hasChildNodes() ) { - $maps->removeChild($register); - print "deleted register as well
"; + if(defined($field)){ + $register->removeChild($field); + } + #print "deleted field
"; + if(defined($register)){ + unless ( $register->hasChildNodes() ) { + $maps->removeChild($register); + #print "deleted register as well
"; + } } } # open( SCHREIBEN, "> $xmlfile" ) @@ -351,7 +355,7 @@ sub save { $xmltree->findnodes( "/MAPS/register[\@name='" . $registerName . "']" ) ->shift(); - if ( $register eq "" ) { + unless (defined($register) ) { $register = $maps->addNewChild( "", "register" ); $register->setAttribute( "name", $registerName ); } @@ -363,14 +367,14 @@ sub save { . $fieldName . "']" )->shift(); - if ( $field eq "" ) { + unless (defined( $field) ) { $field = $register->addNewChild( "", "field" ); $field->setAttribute( "name", $fieldName ); } $field->setAttribute( "value", $newValue ); - print $field->findvalue("./\@value"); + #print $field->findvalue("./\@value"); # open( SCHREIBEN, "> $xmlfile" ) # or print "could not open file $xmlfile for writing: $!\n"; #