From: Wolfram Schneider <wosch@indexdata.dk>
Date: Tue, 6 Apr 2010 15:25:54 +0000 (+0000)
Subject: Merge branch 'master' into nigiri
X-Git-Tag: CPAN-v1.02~148^2~42
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=7cb6db9edc5505af42944852f8d99ac8152a1b2b;hp=9b37f461bfc578baad03482677015b3524f71404

Merge branch 'master' into nigiri
---

diff --git a/bin/irspy-dump.pl b/bin/irspy-dump.pl
new file mode 100755
index 0000000..a87177b
--- /dev/null
+++ b/bin/irspy-dump.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+
+# Invoke as:
+#	$ mkdir records-2010-04-06
+#	$ cd records-2010-04-06
+#	$ irspy-dump.pl irspy.indexdata.com:8018/IR-Explain---1
+#	$ cd ..
+#	$ tar cfz records-2010-04-06.tar.gz records-2010-04-06
+
+use strict;
+use warnings;
+use ZOOM;
+
+if (@ARGV != 1) {
+    print STDERR "Usage: $0 target\n";
+    exit 1;
+}
+
+my $conn = new ZOOM::Connection($ARGV[0]);
+$conn->option(preferredRecordSyntax => "xml");
+$conn->option(elementSetName => "zebra::data");
+my $rs = $conn->search_pqf('@attr 1=_ALLRECORDS @attr 2=103 ""');
+my $n = $rs->size();
+$| = 1;
+print "$0: dumping $n records\n";
+foreach my $i (1..$n) {
+    print ".";
+    print " $i/$n (", int($i*100/$n), "%)\n" if $i % 50 == 0;
+    my $rec = $rs->record($i-1);
+    my $xml = $rec->render();
+    open F, ">$i.xml";
+    print F $xml;
+    close F;
+}
+print " $n/$n (100%)\n" if $n % 50 != 0;
+print "complete\n";