From a13aacfc6c2399576b0484823355f688f7f41710 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 2 Mar 2007 16:12:39 +0000 Subject: [PATCH] Merely dumps records, does not reindex. --- bin/reindex.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/bin/reindex.pl b/bin/reindex.pl index c802fe3..a3079fb 100755 --- a/bin/reindex.pl +++ b/bin/reindex.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: reindex.pl,v 1.1 2007-03-02 15:14:13 mike Exp $ +# $Id: reindex.pl,v 1.2 2007-03-02 16:12:39 mike Exp $ use strict; use warnings; @@ -23,7 +23,10 @@ foreach my $i (1..$n) { print " $i/$n (", int($i*100/$n), "%)\n" if $i % 50 == 0; my $rec = $rs->record($i-1); my $xml = $rec->render(); - update($conn, $xml); + open F, ">$i.xml" or die "can't open\n"; + print F $xml; + close F; + #update($conn, $xml); } print " $n/$n (100%)\n" if $n % 50 != 0; commit($conn); -- 1.7.10.4