X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Firspy-dump.pl;h=e112b917e5945b4398f5c67d91eb1a13e35f04ae;hp=a87177b7239318dad7bed811d02aabc4b929fe09;hb=38bb5c4256a5dbcde5bba5d7ef46f92d515bb839;hpb=76d4a6613905aba040304535a233bf37a775df64

diff --git a/bin/irspy-dump.pl b/bin/irspy-dump.pl
index a87177b..e112b91 100755
--- a/bin/irspy-dump.pl
+++ b/bin/irspy-dump.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Invoke as:
 #	$ mkdir records-2010-04-06
@@ -6,6 +6,8 @@
 #	$ irspy-dump.pl irspy.indexdata.com:8018/IR-Explain---1
 #	$ cd ..
 #	$ tar cfz records-2010-04-06.tar.gz records-2010-04-06
+#
+# or: cd zebra; make dump
 
 use strict;
 use warnings;
@@ -23,14 +25,17 @@ my $rs = $conn->search_pqf('@attr 1=_ALLRECORDS @attr 2=103 ""');
 my $n = $rs->size();
 $| = 1;
 print "$0: dumping $n records\n";
+
+my $step = 200;
+my $step2 = 10;
 foreach my $i (1..$n) {
-    print ".";
-    print " $i/$n (", int($i*100/$n), "%)\n" if $i % 50 == 0;
+    print "." if $i % $step2 == 0;
+    print " $i/$n (", int($i*100/$n), "%)\n" if $i % $step == 0;
     my $rec = $rs->record($i-1);
     my $xml = $rec->render();
-    open F, ">$i.xml";
+    open F, ">$i.xml" or die "open $i.xml: $!\n";
     print F $xml;
     close F;
 }
-print " $n/$n (100%)\n" if $n % 50 != 0;
+print " $n/$n (100%)\n" if $n % $step != 0;
 print "complete\n";