projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Lose extraneous debugging
[irspy-moved-to-github.git]
/
bin
/
reindex.pl
diff --git
a/bin/reindex.pl
b/bin/reindex.pl
index
a3079fb
..
969eaf3
100755
(executable)
--- a/
bin/reindex.pl
+++ b/
bin/reindex.pl
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#!/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;
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();
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);