06-29-2011
Updating the license tag in XML file with new license
Hi All,
I have a XML file : System.xml in which I want to update the license tag with the new data from file licence.xml.
The content of files is in following format:
System.xml:
<?xml version="1.0"?>
<!DOCTYPE Configuration SYSTEM "SystemVariables.dtd">
<usageConfiguration docformat="750">
<SystemEnvironmentVariables>
<CEM>
<Node>
.............
</Node>
<SNMP>
<SNMP.Community>public</SNMP.Community>
<SNMP.Port>12799</SNMP.Port>
</SNMP>
<Log>
<Log.Size>100000</Log.Size>
<Log.Verbosity>DEBUG</Log.Verbosity>
</Log>
</CEM>
<UIS>
<Node>
<Node.Host>ablsdf</Node.Host>
<Node.Port>12800</Node.Port>
<Node.MonitoringEnabled>false</Node.MonitoringEnabled>
<Node.UpdateInterval>30000</Node.UpdateInterval>
<Node.ErrorLogSize>10</Node.ErrorLogSize>
<Node.PeakInterval>30000</Node.PeakInterval>
</Node>
<SNMP>
<SNMP.Community>public</SNMP.Community>
<SNMP.Port>12801</SNMP.Port>
</SNMP>
<Log>
<Log.Size>10000</Log.Size>
<Log.Verbosity>DEBUG</Log.Verbosity>
</Log>
</UIS>
<Licenses>
<License id="21">
<![CDATA[SYSTEM Evaluation
1,Entire System,none,1,03 Mar 2011
Host: FB528400
Issued: 2010-03-03 09-52-08
Key: 302c0214-6f52b3e7-62331491-211792a2-57a74684-319976
a4839989-a9021461-8a2e645a-9bb254cc-d8a6a7-5f3785eb]]>
</License>
</Licenses>
</SystemEnvironmentVariables>
</XACCTusageConfiguration>
licence.xml:
<License id="21">
<![CDATA[SYSTEM Evaluation
1,Entire System,none,1,25 Feb 2012
Host: FB528400
Issued: 2011-02-25 08-22-13
Key: 302c0214-2a86887c-d6362791-141a7a9f-115a7349-3c6f9c
af021467-f9d40ebd-bbcf6391-93614c60-fccee95d-c7ad31]]>
</License>
I want to write a shell script for this.
Last edited by Pramod_T; 06-29-2011 at 07:26 AM..
9 More Discussions You Might Find Interesting
1. UNIX for Advanced & Expert Users
This is a duplicated post from the C Forum; Apologies if that's not OK.
I have been contacted by one of my developers; they are receiving this error message on our AIX box:
4053: cc EXTRACT.c
1506-507 (W) No licenses available. Contact your program supplier to add additio
nal users. ... (2 Replies)
Discussion started by: sam_pointer
2 Replies
2. UNIX for Dummies Questions & Answers
I'm thinking about getting the Network and Admin licenses for Solaris 9.
But some people say Red Hat Linux license is just as good.
And there is also IBM's Linux license.
Is Solaris still very popular in the corperate world? Looking for a Unix Admin job, which license do you suggest I try... (3 Replies)
Discussion started by: CapsuleCorpJX
3 Replies
3. AIX
Hi,
we currently use a valisys licence :
it is based on a server (serv1)
it is reached only by one workstation (cam1)
In all licence files there is line with cam1 et serv1
We want to use cam22 (new workstation) instead of cam1
I made a copy the licences files with remplacing cam1 by cam22... (0 Replies)
Discussion started by: cadmanager
0 Replies
4. UNIX and Linux Applications
Dear Expert,
Let say i have already Build Any Application under UNIX platform.
Then i want to sell that application for Free.
But buyer have to Buy the License for running my application.
Somebody knows if there is an any kind of tools or another technique for Generate that License ?
... (1 Reply)
Discussion started by: tpx99
1 Replies
5. Shell Programming and Scripting
We have 2 XML file 1. ORIGINAL.xml file and 2. ATTRIBUTE.xml files, In the ORIGINAL.xml we need some modification as <resourceCode>431048</resourceCode>under <item type="Manufactured"> tag - we need to grab the 431048 value from tag and pass it to database table in unix shell script to find the... (0 Replies)
Discussion started by: balrajg
0 Replies
6. Red Hat
HI All,
I am using RHEL 5.0 32 Bit, i was trying to install HP Service Guard Cluster in my machine where i installed RHEL5. The problem is that when i am running cmquery -n selva -C mycluster.ascii. Its output is that LICENSE FILE NOT FOUND, so exiting.
So i have tried so many things. Pls... (1 Reply)
Discussion started by: skumar7466
1 Replies
7. Shell Programming and Scripting
Hi All,
I'm stuck with adding multiple lines(irrespective of line number) to a file before a particular xml tag. Please help me.
<A>testing_Location</A>
<value>LA</value>
<zone>US</zone>
<B>Region</B>
<value>Russia</value>
<zone>Washington</zone>
<C>Country</C>... (0 Replies)
Discussion started by: mjavalkar
0 Replies
8. Shell Programming and Scripting
Hi Forum.
I have an XML file with the following requirement to move the <AdditionalAccountHolders> tag and its content right after the <accountHolderName> tag within the same file but I'm not sure how to accomplish this through a Unix script.
Any feedback will be greatly appreciated.
... (19 Replies)
Discussion started by: pchang
19 Replies
9. UNIX for Beginners Questions & Answers
I want to write a one line script that outputs the result of multiple xml tags from a XML file. For example I have a XML file which has below XML tags in the file:
<EMAIL>***</EMAIL>
<CUSTOMER_ID>****</CUSTOMER_ID>
<BRANDID>***</BRANDID>
Now I want to grep the values of all these specified... (1 Reply)
Discussion started by: shubh752
1 Replies
LEARN ABOUT DEBIAN
xml::smart::tutorial
XML::Smart::Tutorial(3pm) User Contributed Perl Documentation XML::Smart::Tutorial(3pm)
NAME
XML::Smart::Tutorial - Tutorial and examples for XML::Smart.
SYNOPSIS
This document is a tutorial for XML::Smart and shows some examples of usual things.
Working with contents:
In XML::Smart the key CONTENT is reserved and shouldn't be used directly, since XML::Smart will deal with the convertion of arguments to
node contents, including multiple node contents autimatically.
What happens when you set a value:
$xml->{root}{foo} = 'simple value' ;
Here foo will be a normal argument/attribute value, and will generate this XML data:
<root foo="simple value"/>
But if you insert some tag or lines in the values by default XML::Smart will convert it to a node content:
$xml->{root}{foo} = "line0
lien1
line2
" ;
And will generate that XML data:
<root>
<foo>line0
lien1
line2
</foo>
</root>
But what you can do if you want to force some type, let's say, have a node content with a simple value:
$xml->{root}{foo} = 'simple value' ;
$xml->{root}{foo}->set_node(1) ;
And will generate that XML data:
<root>
<foo>simple value</foo>
</root>
Multiple contents:
When you have interpolated content/data you need to work in a different. Let's say that you load this XML data:
<root>
content0
<tag1 arg="1"/>
content1
</root>
If you access directly the root key as string you will get all the content parts grouped. So, this code:
my $xml = new XML::Smart(q`
<root>
content0
<tag1 arg="1"/>
content1
</root>
`,'smart') ;
print "#$xml->{root}#" ;
Will print that:
#
content0
content1
#
To access each part of the content independently you should use an array that receive the method content():
my @content = $xml->{root}->content ;
print "#$content[0]#
" ;
And this will print that:
#
content0
#
Now to set the multiple content values you should use the method content() with 2 arguments:
$xml->{root}->content(0,'new content') ;
And now the XML data produced will be:
<root>new content<tag1 arg="1"/>
content1
</root>
If you use the method content() with only one argument it will remove all the multiple contents and will set the new value in the place of
the 1st content.
Setting the XML Parser.
By defaul XML::Smart will use XML::Parser or XML::Smart::Parser (in this order of preference) to load a XML data.
To force or define by your self the parser you can use the 2nd argument option when creating a XML::Smart object:
my $xml = new XML::Smart( 'some.xml' , 'XML::Parser' ) ;
## and
my $xml = new XML::Smart( 'some.xml' , 'XML::Smart::Parser' ) ;
XML::Smart also has an extra parser, XML::Smart::HTMLParser, that can be used to load HTML as XML, or to load wild XML data:
my $xml = new XML::Smart( 'some.xml' , 'XML::Smart::HTMLParser' ) ;
Aliases for the parser options:
SMART|REGEXP => XML::Smart::Parser
HTML => XML::Smart::HTMLParser
So, you can use as:
my $xml = new XML::Smart( 'some.xml' , 'smart' ) ;
my $xml = new XML::Smart( 'some.xml' , 'html' ) ;
Customizing the Parser.
You can customize the way that the parser will treat the XML data:
Forcing nodes/tags and arguments/attributes to lowercase or upercase:
## For lower case:
my $xml = new XML::Smart( 'some.xml' ,
lowtag => 1 ,
lowarg => 1 ,
) ;
## For uper case:
my $xml = new XML::Smart( 'some.xml' ,
upertag => 1 ,
uperarg => 1 ,
) ;
Loading arguments without values (flags) as a TRUE boolean:
** Note, this option will work only when the XML is parsed by XML::Smart::HTMLParser, since only it accept arguments without values!
my $xml = new XML::Smart(
'<root><foo arg1="" flag></root>' ,
'XML::Smart::HTMLParser' ,
arg_single => 1 ,
) ;
Here's the tree of the example above:
'root' => {
'foo' => {
'flag' => 1,
'arg1' => ''
},
},
Customizing the parse events:
XML::Smart can redirect the parsing process to personalized functions:
my $xml = XML::Smart->new( 'some.xml' ,
on_start => &on_start ,
on_char => &on_char ,
on_end => &on_end ,
) ;
sub on_start {
my ( $tag , $pointer , $pointer_back ) = @_ ;
$pointer->{$tag}{type_user} = 1 if $tag =~ /(?:name|age)/ ;
}
sub on_char {
my ( $tag , $pointer , $pointer_back , $content) = @_ ;
$$content =~ s/s+/ /gs ;
}
sub on_end {
my ( $tag , $pointer , $pointer_back ) = @_ ;
$pointer->{$tag}{type_extra} = 1 if $tag =~ /(?:more|tel|address)/ ;
}
AUTHOR
Graciliano M. P. <gm@virtuasites.com.br>
I will appreciate any type of feedback (include your opinions and/or suggestions). ;-P
Enjoy and thanks for who are enjoying this tool and have sent e-mails! ;-P
ePod
This document was written in ePod (easy-POD), than converted to POD, and from here you know the way.
perl v5.10.1 2004-12-08 XML::Smart::Tutorial(3pm)