X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy_xsltproc.pl;h=03e641df39c5ce6af43c3b1750cc9d0793c73fa4;hp=6de21da41b3213d79ead2cb88f62e4a32239bbe0;hb=e8692a780d3467b2028e6e1b6ea21acd634b9c0c;hpb=7f89f2b8fbbd92ec110c65aec9b1ead25e6aaec7;ds=sidebyside

diff --git a/bin/irspy_xsltproc.pl b/bin/irspy_xsltproc.pl
index 6de21da..03e641d 100755
--- a/bin/irspy_xsltproc.pl
+++ b/bin/irspy_xsltproc.pl
@@ -1,16 +1,28 @@
 #!/usr/bin/perl -w
 
-# $Id: irspy_xsltproc.pl,v 1.1 2007-02-02 12:38:48 sondberg Exp $
+# $Id: irspy_xsltproc.pl,v 1.4 2007-06-28 13:57:53 sondberg Exp $
+# ------------------------------------------------------------------
+# This script is only for debugging purposes - it takes a raw IRspy
+# xml output document as argument and executes the irspy2zeerex.xsl
+# transformation right in front of you:
+#
+# ./irspy_xsltproc.pl irspy_output_raw.xml
+#
 
 use strict;
 use warnings;
 use lib '../lib';
 use ZOOM::IRSpy;
 
+if (@ARGV && $ARGV[0] eq "-d") {
+    shift;
+    XML::LibXSLT->debug_callback(\&xslt_debug);
+}
+
 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();
+print $results->toString(1);