#!/perl/bin/perl

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use XML::XPath;
use XML::XPath::XMLParser;

print header();


my $xp = XML::XPath->new(filename => 'test_x.xml');

foreach my $row ($xp->findnodes('/HOME/Trans')) {

    # extract from the XML 
    my $trans = $row->find('//@ID')->string_value;
    my $cert  = $row->find('Cert')->string_value;
    my $cert  = $row->find('/AD/@XREF')->string_value;
    my $fname = $row->find('AD/FName')->string_value;
    my $lname = $row->find('AD/LName')->string_value;
    my $bdate = $row->find('AD/BDate')->string_value;
    my $no = $row->find('AD/No')->string_value;
    my $state = $row->find('AD/State')->string_value;
    my $ssss = $row->find('AD/SSSS')->string_value;
    my $train = $row->find('AD/Train')->string_value;
    my $volume = $row->find('AD/Volume')->string_value;
    my $cno = $row->find('AD/CNo')->string_value; 
    my $id = $row->find('AD/ID')->string_value;
    

print "1-$trans - 2-$cert - 3-$cert - 4-$fname - 5-$lname - 6-$bdate -   
       7-$no - 8-$state - 9-$ssss - 10-$train - 11-$volume - 12-$cno - 
       13-$id\n";
           
    }

=comment
test_x.xml
<?xml version="1.0"?>
<HOME>
 <Trans ID="0164754">
    <Cert>8280164754</Cert>
    <AD XREF="DELTA1">
	<FName>Joe</FName>
	<LName>Frost</LName>
	<BDate>19650420</BDate>
	<No>X0000000</No>
	<State>RI</State>
	<Date>19980401</Date>
	<SSSS>07</SSSS>
	<Train>N</Train>
	<Volume>N</Volume>
    </AD>
    <AD XREF="DELTA2">
	<FName>MARY </FName>
	<LName>FROST</LName>
	<BDate>19861107</BDate>
	<No>Y0000000</No>
	<State>NY</State>
	<Date>20030824</Date>
	<SSSS>00</SSSS>
	<Train>Y</Train>
	<CNo>153</CNo>
	<ID>WC204338</ID>
	<Volume>N</Volume>
     </AD>
    <Total>111</Total>
  </Trans>
</HOME>	
=cut