X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy-rewrite-records.pl;h=a560db93b2a813c372f83347ff4495bcd274162e;hp=bcc58e75a8b87da9a31840ca2e9954676b5c6919;hb=4fdf1f84eb8cc80dbdae303e92526e4d255eed61;hpb=f01e52b20eaac746a863f8a7b9102c6bf2e22f5a

diff --git a/bin/irspy-rewrite-records.pl b/bin/irspy-rewrite-records.pl
old mode 100644
new mode 100755
index bcc58e7..a560db9
--- a/bin/irspy-rewrite-records.pl
+++ b/bin/irspy-rewrite-records.pl
@@ -1,14 +1,22 @@
-#!/usr/bin/perl -w
-
+#!/usr/bin/perl
+#
 # perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
 
-use strict;
-use warnings;
+use lib '../lib';
 use ZOOM::IRSpy;
 use ZOOM::IRSpy::Utils qw(render_record);
 
+use strict;
+use warnings;
+
 my($dbname) = @ARGV;
 die "$0 no database name specified" if !defined $dbname;
+
+my $irspy_to_zeerex_xsl = $ARGV[1] || '../xsl/irspy2zeerex.xsl';
+
+$ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
+  if $irspy_to_zeerex_xsl;
+
 my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
 my $rs = $spy->{conn}->search(new ZOOM::Query::CQL("cql.allRecords=1"));
 print STDERR "rewriting ", $rs->size(), " target records";