#!/home/p1aldbw1/aldb/perl-5.12.2/bin/perl

use warnings;
use strict;
use XML::Twig;
use Data::Dumper;


 
my $xmlstr = <<EOF;
<AGENT hostname="viper3">
<NAMESPACE>
	<APPCLASS name="ORACLE_AVAILABILITY">
 		<INSTANCE name="atecr">
 			<PARAMETER name="InstanceStatus">
  			<TYPE>CONSUMER</TYPE> 
 				<BORDER>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</BORDER>
 				<ALARM1>
  				<ACTIVE>1</ACTIVE> 
  				<MIN>1</MIN> 
  				<MAX>1</MAX> 
  				<TRIGGER>After 7 times</TRIGGER> 
  				<RECOVERY>1</RECOVERY> 
  				<STATE>WARN</STATE> 
  			</ALARM1>
 				<ALARM2>
  				<ACTIVE>1</ACTIVE> 
  				<MIN>2</MIN> 
  				<MAX>2</MAX> 
  				<TRIGGER>After 7 times</TRIGGER> 
  				<RECOVERY>1</RECOVERY> 
  				<STATE>ALARM</STATE> 
  			</ALARM2>
  		</PARAMETER>
 			<PARAMETER name="RSSpaceLeft">
  			<TYPE>CONSUMER</TYPE> 
 				<BORDER>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</BORDER>
 				<ALARM1>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</ALARM1>
 				<ALARM2>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</ALARM2>
  		</PARAMETER>
 			<PARAMETER name="CannotExtend">
  			<TYPE>CONSUMER</TYPE> 
 				<BORDER>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</BORDER>
 				<ALARM1>
  				<ACTIVE>1</ACTIVE> 
  				<MIN>1</MIN> 
  				<MAX>1</MAX> 
	  			<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>1</RECOVERY> 
  				<STATE>ALARM</STATE> 
  			</ALARM1>
	 			<ALARM2>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
	  			<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</ALARM2>
			</PARAMETER>
		</INSTANCE>
	</APPCLASS>
	<APPCLASS name="ORACLE_CAPACITY">
 		<INSTANCE name="atecq">
 			<PARAMETER name="FreeSpace">
  			<TYPE>CONSUMER</TYPE> 
 				<BORDER>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</BORDER>
 				<ALARM1>
  				<ACTIVE>1</ACTIVE> 
  				<MIN>1</MIN> 
  				<MAX>1</MAX> 
  				<TRIGGER>After 7 times</TRIGGER> 
  				<RECOVERY>1</RECOVERY> 
  				<STATE>WARN</STATE> 
  			</ALARM1>
 				<ALARM2>
  				<ACTIVE>1</ACTIVE> 
  				<MIN>2</MIN> 
  				<MAX>2</MAX> 
  				<TRIGGER>After 7 times</TRIGGER> 
  				<RECOVERY>1</RECOVERY> 
  				<STATE>ALARM</STATE> 
  			</ALARM2>
  		</PARAMETER>
 			<PARAMETER name="ExtentsLeft">
  			<TYPE>CONSUMER</TYPE> 
 				<BORDER>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</BORDER>
 				<ALARM1>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</ALARM1>
 				<ALARM2>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</ALARM2>
  		</PARAMETER>
 			<PARAMETER name="CursorsLeft">
  			<TYPE>CONSUMER</TYPE> 
 				<BORDER>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</BORDER>
 				<ALARM1>
  				<ACTIVE>1</ACTIVE> 
  				<MIN>1</MIN> 
  				<MAX>1</MAX> 
	  			<TRIGGER>Immediate</TRIGGER> 
  				<RECOVERY>1</RECOVERY> 
  				<STATE>ALARM</STATE> 
  			</ALARM1>
	 			<ALARM2>
  				<ACTIVE>0</ACTIVE> 
  				<MIN>0</MIN> 
  				<MAX>0</MAX> 
  				<TRIGGER>Immediate</TRIGGER> 
	  			<RECOVERY>0</RECOVERY> 
  				<STATE>OK</STATE> 
  			</ALARM2>
			</PARAMETER>
		</INSTANCE>
	</APPCLASS>	
</NAMESPACE>
</AGENT
EOF


my $twig = XML::Twig->new(twig_handlers => {NAMESPACE => \&namespace});

$twig->parse($xmlstr);



my(@NAMESPACE,$APPCLASS,$INSTANCE,$PARAMETER,$PARAM_TYPE);

sub namespace 
{
	my ($t, $elt) = @_;
	for my $appclass ( $elt->children() )
	{
		$APPCLASS = $appclass->att('name');
		for my $instance ($appclass->children())
		{
			$INSTANCE = $instance->att('name');
			for my $parameter ($instance->children())
			{
				$PARAMETER = $parameter->att('name');
				$PARAM_TYPE = $parameter->field('TYPE');
				
				@NAMESPACE = $APPCLASS . "~" . $INSTANCE . "~" . $PARAMETER . "~" . $PARAM_TYPE;
			}
		}
	}
}

print Dumper @NAMESPACE;
print "\n\n";