Populating new XML into existing DCR

System

Hello,

I have read quite a bit of documentation and have spent quite a bit of time with the experimentation. I'm wondering how to do the following...

Using (preferably) TeamSite::XMLnode or XMLparser, how can I (a) change a value in an existing DCR and (b) insert a new node/value in an existing DCR. Can this be done??

Thanks in advance!

Dave

iwovGraduate

a. Heres a simple example:

#----------------------------------------------
use TeamSite::XMLparser;
# pass the full path to DCR as command line argument
my $dcrfile = $ARGV[0];
my $value = get_dcr_attr($dcrfile, "fullname");
print "\n\n value: [$value] \n ";
exit();

sub get_dcr_attr {
my ($dcr,$element_name) = @_;
open DCR, $dcr;
local $/ = undef;
my $xml = <DCR>;
my $parser = TeamSite::XMLparser->new();
my $rootnode = $parser->parse($xml);
my $value = $rootnode->value("$element_name");
return $value;
}
#----------------------------------------------

b. I don't have an example handy, but there are a bunch of KBs for manipulating DCRs. See KB 2036 for example. Also see the perldocs for TeamSite::XMLnode, TeamSite::XMLparser, and XML:OM