#!/usr/bin/perl -w
-# $Id: irspy_xsltproc.pl,v 1.2 2007-02-02 12:40:51 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;
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);