X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy_xsltproc.pl;h=8f372047ca695a41ac5cb8f021f21f3dc89a2ea9;hp=30869bea247a32a0884de2100cf9b727414bb9bc;hb=60ac227b4a81f6d5f5b60bce0dc6321a9008e82f;hpb=45680371004a552b60c1253cd4d7c17d01ea2301

diff --git a/bin/irspy_xsltproc.pl b/bin/irspy_xsltproc.pl
index 30869be..8f37204 100755
--- a/bin/irspy_xsltproc.pl
+++ b/bin/irspy_xsltproc.pl
@@ -1,28 +1,55 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
-# $Id: irspy_xsltproc.pl,v 1.3 2007-02-02 12:44:43 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
-#
+# ./irspy_xsltproc.pl irspy_output_raw.xml ...
 
-use strict;
-use warnings;
+use Getopt::Long;
+use Data::Dumper;
 use lib '../lib';
 use ZOOM::IRSpy;
 
-if (@ARGV && $ARGV[0] eq "-d") {
-    shift;
-    XML::LibXSLT->debug_callback(\&xslt_debug);
+use strict;
+
+#use warnings;
+
+sub usage {
+
+    <<EOF
+usage $0 [ options ] file.xml ...
+
+-d		enable xslt debug
+-v		verbose level
+-f irspy.xsl	set irspy_to_zeerex_xsl
+EOF
 }
 
+my $irspy_to_zeerex_xsl;
+my $xslt_debug;
+my $verbose = 0;
+
+GetOptions(
+    "d"   => \$xslt_debug,
+    "v"   => \$verbose,
+    "f=s" => \$irspy_to_zeerex_xsl,
+);
+
+die usage if $#ARGV < 0;
+XML::LibXSLT->debug_callback( \&xslt_debug ) if defined $xslt_debug;
+
+$ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
+  if $irspy_to_zeerex_xsl;
+
 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);
+my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
+
+warn Dumper($spy) if $verbose;
+foreach my $source_file (@ARGV) {
+    my $source_doc = $spy->{libxml}->parse_file($source_file);
+    my $results    = $spy->{irspy_to_zeerex_style}->transform($source_doc);
+
+    print $results->toString(1);
+}
 
-print $results->toString();