3 # perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
9 use ZOOM::IRSpy::Utils qw(render_record validate_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\n" 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();
53 my ( $ok, $errors ) = validate_record($rec);
57 print "Id: $id => ", join( " / ", @e ), "\n";
60 ZOOM::IRSpy::_rewrite_zeerex_record( $spy->{conn}, $rec );
61 print STDERR "." if $debug == 1;
63 print STDERR "Done\n" if $debug;