From: Anders S. Mortensen Date: Fri, 2 Feb 2007 12:38:48 +0000 (+0000) Subject: Added irspy_xsltproc script which has the right irspy environment. X-Git-Tag: CPAN-v1.02~633 X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=e7d24f3cae08d1b10b8134b850449e8c86f3a072 Added irspy_xsltproc script which has the right irspy environment. --- diff --git a/bin/irspy_xsltproc.pl b/bin/irspy_xsltproc.pl new file mode 100755 index 0000000..6de21da --- /dev/null +++ b/bin/irspy_xsltproc.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl -w + +# $Id: irspy_xsltproc.pl,v 1.1 2007-02-02 12:38:48 sondberg Exp $ + +use strict; +use warnings; +use lib '../lib'; +use ZOOM::IRSpy; + +my $dbname = 'localhost:8018/IR-Explain---1'; +my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat"); +my $source_file = shift || die("$0: Please specify xml instance file"); +my $source_doc = $spy->{libxml}->parse_file($source_file); +my $results = $spy->{irspy_to_zeerex_style}->transform($source_doc); + +print $results->toString();