X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Freindex.pl;h=b180026caa1ce8ae536bf463ab5c3072244a3a5a;hp=a3079fb34d9243185072ab31e349abf5b27b8826;hb=51263462a77dba19f5913881429b92833072286f;hpb=a13aacfc6c2399576b0484823355f688f7f41710 diff --git a/bin/reindex.pl b/bin/reindex.pl index a3079fb..b180026 100755 --- a/bin/reindex.pl +++ b/bin/reindex.pl @@ -1,7 +1,5 @@ #!/usr/bin/perl -w -# $Id: reindex.pl,v 1.2 2007-03-02 16:12:39 mike Exp $ - use strict; use warnings; use ZOOM; @@ -23,10 +21,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);