bin/irspy-rewrite-records.pl

   1 #!/usr/bin/perl
   2 #
   3 # perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
   4
   5 use lib '../lib';
   6 use ZOOM::IRSpy;
   7 use ZOOM::IRSpy::Utils qw(render_record);
   8
   9 use strict;
  10 use warnings;
  11
  12 my($dbname) = @ARGV;
  13 die "$0 no database name specified" if !defined $dbname;
  14
  15 my $irspy_to_zeerex_xsl = $ARGV[1] || '../xsl/irspy2zeerex.xsl';
  16
  17 $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
  18   if $irspy_to_zeerex_xsl;
  19
  20 my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
  21 my $rs = $spy->{conn}->search(new ZOOM::Query::CQL("cql.allRecords=1"));
  22 print STDERR "rewriting ", $rs->size(), " target records";
  23
  24 foreach my $i (1 .. $rs->size()) {
  25     my $xml = render_record($rs, $i-1, "zeerex");
  26     my $rec = $spy->{libxml}->parse_string($xml)->documentElement();
  27     ZOOM::IRSpy::_rewrite_zeerex_record($spy->{conn}, $rec);
  28     print STDERR ".";
  29 }
  30 print STDERR "\nDone\n";