From: Anders S. Mortensen <sondberg@indexdata.dk>
Date: Tue, 12 Dec 2006 10:45:04 +0000 (+0000)
Subject: Added command line xslt processor which sets up the IRSpy environment and show
X-Git-Tag: CPAN-v1.02~686
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=b3162cb8332961ed57cb9094a1494b52c7637106;p=irspy-moved-to-github.git

Added command line xslt processor which sets up the IRSpy environment and show
debugging messages.
---

diff --git a/bin/xslt_process.pl b/bin/xslt_process.pl
new file mode 100755
index 0000000..55aa826
--- /dev/null
+++ b/bin/xslt_process.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+# $Id: xslt_process.pl,v 1.1 2006-12-12 10:45:04 sondberg Exp $
+
+use strict;
+use warnings;
+use lib '../lib';
+use Getopt::Std;
+use ZOOM::IRSpy;
+use XML::LibXSLT;
+
+XML::LibXSLT->debug_callback(\&xslt_debug);
+
+my $dbname = 'localhost:3313/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(), "\n\n";
+
+
+
+sub xslt_debug {
+    my ($msg) = @_;
+
+    print STDERR $msg;
+}