3 # $Id: xslt_process.pl,v 1.3 2007-02-02 11:30:50 mike Exp $
12 if (@ARGV && $ARGV[0] eq "-d") {
14 XML::LibXSLT->debug_callback(\&xslt_debug);
17 my $dbname = 'localhost:8018/IR-Explain---1';
18 my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
19 my $source_file = shift || die("$0: Please specify xml instance file");
20 my $source_doc = $spy->{libxml}->parse_file($source_file);
21 my $results = $spy->{irspy_to_zeerex_style}->transform($source_doc);
23 print $results->toString(), "\n\n";