projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e7d24f3
)
Applied Mike's nice -d option thing.
author
Anders S. Mortensen
<sondberg@indexdata.dk>
Fri, 2 Feb 2007 12:40:51 +0000
(12:40 +0000)
committer
Anders S. Mortensen
<sondberg@indexdata.dk>
Fri, 2 Feb 2007 12:40:51 +0000
(12:40 +0000)
bin/irspy_xsltproc.pl
patch
|
blob
|
history
diff --git
a/bin/irspy_xsltproc.pl
b/bin/irspy_xsltproc.pl
index
6de21da
..
e2cf45d
100755
(executable)
--- a/
bin/irspy_xsltproc.pl
+++ b/
bin/irspy_xsltproc.pl
@@
-1,12
+1,17
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
-# $Id: irspy_xsltproc.pl,v 1.1 2007-02-02 12:38:48 sondberg Exp $
+# $Id: irspy_xsltproc.pl,v 1.2 2007-02-02 12:40:51 sondberg Exp $
use strict;
use warnings;
use lib '../lib';
use ZOOM::IRSpy;
use strict;
use warnings;
use lib '../lib';
use ZOOM::IRSpy;
+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 $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");