#!/usr/bin/perl
use CGI qw/:standard/;
use XML::LibXSLT;
use XML::LibXML;

my $cgi = new CGI;
my $filename = $cgi->param('file');
$filename = 'tamination/adv/checkmatexml.xml' unless $filename;
print $cgi->header("text/html");

my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();

my $style_doc = "tamination/tamination.xsl";
my $xml = $parser->parse_file($filename);

my $style = $parser->parse_file($style_doc);

my $stylesheet = $xslt->parse_stylesheet($style);

my $results = $stylesheet->transform($xml,ext=>"'html'");

print $stylesheet->output_string($results);