3 # perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
9 use ZOOM::IRSpy::Utils qw(render_record);
14 my $irspy_to_zeerex_xsl = '../xsl/irspy2zeerex.xsl';
16 my $cql_query = "cql.allRecords=1";
21 warn "$message\n" if defined $message;
24 usage $0 [ options ] database
26 --xslt=$irspy_to_zeerex_xsl set xslt sheet
27 --debug=0..2 verbose level
33 "xslt" => \$irspy_to_zeerex_xsl,
35 "query=s" => \$cql_query,
39 die usage("no database name specified\n") if !defined $dbname;
41 $ZOOM::IRSpy::irspy_to_zeerex_xsl = $irspy_to_zeerex_xsl
42 if $irspy_to_zeerex_xsl;
44 my $spy = new ZOOM::IRSpy( $dbname, "admin", "fruitbat" );
45 my $rs = $spy->{conn}->search( new ZOOM::Query::CQL($cql_query) );
46 print STDERR "rewriting ", $rs->size(), " target records" if $debug;
48 foreach my $i ( 1 .. $rs->size() ) {
49 my $xml = render_record( $rs, $i - 1, "zeerex" );
50 my $rec = $spy->{libxml}->parse_string($xml)->documentElement();
51 ZOOM::IRSpy::_rewrite_zeerex_record( $spy->{conn}, $rec );
52 print STDERR "." if $debug;
54 print STDERR "\nDone\n" if $debug;