From: Anders S. Mortensen Date: Fri, 2 Feb 2007 12:41:16 +0000 (+0000) Subject: This has now changed name to irspy_xsltproc.pl. X-Git-Tag: CPAN-v1.02~631 X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=86e26bc846f97ad3572f20fb5f82a86c1cb9b281;p=irspy-moved-to-github.git This has now changed name to irspy_xsltproc.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; -}