Software, Science, and other thoughts on life, the universe, and everything...
https://www.fincher.org/Blogger/Blogger02004a.shtml
Mitch Fincher's random bits on alternate energy, software development, Greek philosophy and history, and the state of the world.
#!/usr/bin/perl
use XML::XSLT;
MAIN:
{
require "XSLT.pm" || die "Cannot find XSLT.pm: $!";
require "./cgi-lib.pl" || die "Cannot find cgi-lib.pl: $!";
local(*in,$message,$command);
&ReadParse(*in);
print &PrintHeader;
$xmlfile = $in{xmlfile};
$xsltfile = $in{xsltfile};
if($xmlfile eq "") {
$xmlfile = $ARGV[0];
}
if($xsltfile eq "") {
$xsltfile = $ARGV[1];
}
my $xslt = XML::XSLT->new ($xsltfile, warnings => 1);
$xslt->transform ($xmlfile);
print $xslt->toString;
$xslt->dispose();
}