remove stale $Id$

[irspy-moved-to-github.git] / bin / reindex.pl

diff --git a/bin/reindex.pl b/bin/reindex.pl
index a3079fb..b180026 100755 (executable)
--- a/bin/reindex.pl
+++ b/bin/reindex.pl
@@ -1,7 +1,5 @@
 #!/usr/bin/perl -w
 
 #!/usr/bin/perl -w
 

-# $Id: reindex.pl,v 1.2 2007-03-02 16:12:39 mike Exp $
-

 use strict;
 use warnings;
 use ZOOM;
 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();
     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);
 }
 print " $n/$n (100%)\n" if $n % 50 != 0;
 commit($conn);