From 011aff8584a7757a86810e03b3496ef19cf3be76 Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Mon, 19 Apr 2010 19:58:51 +0000 Subject: [PATCH] consistent file name for scripts --- bin/irspy-xsltproc.pl | 55 +++++++++++++++++++++++++++++++++++++++++++++++++ bin/irspy_xsltproc.pl | 55 ------------------------------------------------- 2 files changed, 55 insertions(+), 55 deletions(-) create mode 100755 bin/irspy-xsltproc.pl delete mode 100755 bin/irspy_xsltproc.pl diff --git a/bin/irspy-xsltproc.pl b/bin/irspy-xsltproc.pl new file mode 100755 index 0000000..8f37204 --- /dev/null +++ b/bin/irspy-xsltproc.pl @@ -0,0 +1,55 @@ +#!/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 { + + < \$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); +} + 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 { - - < \$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); -} - -- 1.7.10.4