From e5808d729b1c6e169bb564fbf3f477a5c3451f29 Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Fri, 2 Feb 2007 12:41:16 +0000 Subject: [PATCH] This has now changed name to irspy_xsltproc.pl. --- bin/xslt_process.pl | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100755 bin/xslt_process.pl diff --git a/bin/xslt_process.pl b/bin/xslt_process.pl deleted file mode 100755 index c3e246e..0000000 --- a/bin/xslt_process.pl +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/perl -w - -# $Id: xslt_process.pl,v 1.3 2007-02-02 11:30:50 mike Exp $ - -use strict; -use warnings; -use lib '../lib'; -use Getopt::Std; -use ZOOM::IRSpy; -use XML::LibXSLT; - -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(), "\n\n"; - - - -sub xslt_debug { - my ($msg) = @_; - - print STDERR $msg; -} -- 1.7.10.4