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=0000000000000000000000000000000000000000;hp=8f372047ca695a41ac5cb8f021f21f3dc89a2ea9;hb=011aff8584a7757a86810e03b3496ef19cf3be76;hpb=60ac227b4a81f6d5f5b60bce0dc6321a9008e82f

diff --git a/bin/irspy_xsltproc.pl b/bin/irspy_xsltproc.pl
deleted file mode 100755
index 8f37204..0000000
--- a/bin/irspy_xsltproc.pl
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/perl
-
-# 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 Getopt::Long;
-use Data::Dumper;
-use lib '../lib';
-use ZOOM::IRSpy;
-
-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" );
-
-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);
-}
-