Edited by sspopuri on 08/26/04 08:54 AM (server time).
use TeamSite::Config;use TeamSite::XMLparser;use TeamSite::XMLnode;my $config_xml = <<EOF;<?xml version="1.0" encoding="UTF-8"?><deploymentConfiguration nodeSetFile="/opt/OpenDeployNG/etc/odnodes.xml" > <localNode host="interwoven01" /> <replicationFarmSet> <replicationFarm name="Development"> <nodeRef useNode="dev01"/> </replicationFarm> <replicationFarm name="Staging"> <nodeRef useNode="staging01"/> <nodeRef useNode="staging02"/> </replicationFarm> <replicationFarm name="Production"> <nodeRef useNode="prod01"/> <nodeRef useNode="prod02"/> <nodeRef useNode="prod03"/> </replicationFarm> </replicationFarmSet> <logRules maxBytes="32Mb" level ="VERBOSE" /></deploymentConfiguration>EOF# parse the config xml into an TeamSite::XMLnode object treemy $parser = TeamSite::XMLparser->new(); # create a XMLparser$root_node = $parser->parse($config_xml); # get root XMLnode objectundef $config_xml;my $nodeSetFile = $root_node->attrib('nodeSetFile');my $logRules = $root_node->get_xml('logRules');my $localNode = $root_node->get_xml('localNode');my $replicationFarmSet = $root_node->get_xml('replicationFarmSet');print "sf = $nodeSetFile\n";print "lr = $logRules\n";print "ln = $localNode\n";print "rf = $replicationFarmSet\n";
sf = /opt/OpenDeployNG/etc/odnodes.xmllr = <logRules maxBytes='32Mb' level='VERBOSE' />ln = <localNode host='interwoven01' />rf = <replicationFarmSet> <replicationFarm name='Development'> <nodeRef useNode='dev01' /> </replicationFarm> <replicationFarm name='Staging'> <nodeRef useNode='staging01' /> <nodeRef useNode='staging02' /> </replicationFarm> <replicationFarm name='Production'> <nodeRef useNode='prod01' /> <nodeRef useNode='prod02' /> <nodeRef useNode='prod03' /> </replicationFarm> </replicationFarmSet>