From cd09f256a7ebcbc650a62464480a77dbafa229b1 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 7 Mar 2007 11:35:38 +0000 Subject: [PATCH 1/1] Reindex rather than dumping records. --- bin/reindex.pl | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/bin/reindex.pl b/bin/reindex.pl index a3079fb..969eaf3 100755 --- a/bin/reindex.pl +++ b/bin/reindex.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: reindex.pl,v 1.2 2007-03-02 16:12:39 mike Exp $ +# $Id: reindex.pl,v 1.3 2007-03-07 11:35:38 mike Exp $ use strict; use warnings; @@ -23,10 +23,7 @@ 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(); - open F, ">$i.xml" or die "can't open\n"; - print F $xml; - close F; - #update($conn, $xml); + update($conn, $xml); } print " $n/$n (100%)\n" if $n % 50 != 0; commit($conn); -- 1.7.10.4