From: Mike Taylor <mike@miketaylor.org.uk>
Date: Tue, 13 Apr 2010 16:07:17 +0000 (+0100)
Subject: New script irspy-rewrite-records.pl that rewrites all the records in
X-Git-Tag: CPAN-v1.02~54^2~94
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=f01e52b20eaac746a863f8a7b9102c6bf2e22f5a

New script irspy-rewrite-records.pl that rewrites all the records in
an IRSpy database, causing reliability information to be set into
them.
---

diff --git a/bin/irspy-rewrite-records.pl b/bin/irspy-rewrite-records.pl
new file mode 100644
index 0000000..bcc58e7
--- /dev/null
+++ b/bin/irspy-rewrite-records.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+# perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
+
+use strict;
+use warnings;
+use ZOOM::IRSpy;
+use ZOOM::IRSpy::Utils qw(render_record);
+
+my($dbname) = @ARGV;
+die "$0 no database name specified" if !defined $dbname;
+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";
+
+foreach my $i (1 .. $rs->size()) {
+    my $xml = render_record($rs, $i-1, "zeerex");
+    my $rec = $spy->{libxml}->parse_string($xml)->documentElement();
+    ZOOM::IRSpy::_rewrite_zeerex_record($spy->{conn}, $rec);
+    print STDERR ".";
+}
+print STDERR "\nDone\n";