-foreach my $i (1 .. $rs->size()) {
- my $xml = render_record($rs, $i-1, "zeerex");
+sub usage {
+ my $message = shift;
+
+ warn "$message\n" if defined $message;
+
+ <<EOF
+usage $0 [ options ] database
+
+--xslt=$irspy_to_zeerex_xsl set xslt sheet
+--debug=0..2 verbose level
+--query=$cql_query
+EOF
+}
+
+GetOptions(
+ "xslt" => \$irspy_to_zeerex_xsl,
+ "debug=i" => \$debug,
+ "query=s" => \$cql_query,
+);
+
+my $dbname = shift;
+die usage("no database name specified\n") if !defined $dbname;
+
+$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_query) );
+print STDERR "rewriting ", $rs->size(), " target records\n" if $debug;
+
+foreach my $i ( 1 .. $rs->size() ) {
+ my $xml = render_record( $rs, $i - 1, "zeerex" );