#!/usr/bin/perl -w

use strict;
use XML::LibXML;

@ARGV == 1 or die("Usage: $0 data file\n");

my $parser = XML::LibXML->new(XML_LIBXML_RECOVER => 2);
   $parser->recover_silently(1);

my $data_file = $ARGV[0];
my $doc = $parser->parse_file( $data_file );

foreach ('root_detail_risklevel_1', 'root_detail_risklevel_2', 'root_detail_risklevel_3', 'root_detail_risklevel_4') {
			
	my($risk_level) = $_;
	print $risk_level . "\n";
	
	foreach ($doc->findnodes("//".$_."/data")) {
		
		my($risk) = $_->findnodes('./risk');
		my($check) = $_->findnodes('./checkname');
		my($desc) = $_->findnodes('./description');
		my($version) = $_->findnodes('./version');
		my($cve) = $_->findnodes('./cve');
		my($cce) = $_->findnodes('./cce');
		my($summary) = $_->findnodes('./summary');
		my($overview) = $_->findnodes('./overview');
		my($fix) = $_->findnodes('./fix');
		
		foreach ($_->findnodes('./details')) {
			my($detail) = $_->findnodes('./vulnDetail');
			print $detail . "\n";
		}
	}
}