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
calc_reliability_stats() uses only probes within last 60 days.
[irspy-moved-to-github.git]
/
bin
/
reindex.pl
diff --git
a/bin/reindex.pl
b/bin/reindex.pl
index
a3079fb
..
67e4976
100755
(executable)
--- a/
bin/reindex.pl
+++ b/
bin/reindex.pl
@@
-1,6
+1,7
@@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
-# $Id: reindex.pl,v 1.2 2007-03-02 16:12:39 mike Exp $
+# Run as:
+# perl -I../lib reindex.pl user=admin,password=SWORDFISH,localhost:8018/IR-Explain---1
use strict;
use warnings;
use strict;
use warnings;
@@
-23,10
+24,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);