X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy_xsltproc.pl;fp=bin%2Firspy_xsltproc.pl;h=6de21da41b3213d79ead2cb88f62e4a32239bbe0;hp=0000000000000000000000000000000000000000;hb=e7d24f3cae08d1b10b8134b850449e8c86f3a072;hpb=590cadab4a73c2eda6c3395f23326eaa1a3d3e53

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();