From: Wolfram Schneider <wosch@indexdata.dk>
Date: Fri, 23 Apr 2010 15:35:37 +0000 (+0200)
Subject: allow to set xslt sheet on commandline
X-Git-Tag: CPAN-v1.02~94
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=1cbc7922be98e2882860d9774caf203a66c51eb0;p=irspy-moved-to-github.git

allow to set xslt sheet on commandline
---

diff --git a/bin/irspy-rewrite-records.pl b/bin/irspy-rewrite-records.pl
index f994de6..c80b05d 100755
--- a/bin/irspy-rewrite-records.pl
+++ b/bin/irspy-rewrite-records.pl
@@ -9,6 +9,12 @@ use ZOOM::IRSpy::Utils qw(render_record);
 
 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";