Grep/bin/reindex.pl

#!/usr/bin/perl

# helper script to re-index full text index

use strict;

use lib 'lib';

use Jifty;
use Lucene;
use Grep::Search;
use Data::Dump qw/dump/;

BEGIN { Jifty->new; };

my $coll = Grep::Model::ItemCollection->new( results_are_readable => 1 );
$coll->unlimit;

print "indexing ", $coll->count, " items ";

while ( my $i = $coll->next ) {

        Grep::Search->add( $i );

        print $i->id, ' ';
}

print "\n";

Grep::Search->finish;
1	dpavlin	47	#!/usr/bin/perl
2
3			# helper script to re-index full text index
4
5			use strict;
6
7			use lib 'lib';
8
9			use Jifty;
10			use Lucene;
11			use Grep::Search;
12			use Data::Dump qw/dump/;
13
14			BEGIN { Jifty->new; };
15
16			my $coll = Grep::Model::ItemCollection->new( results_are_readable => 1 );
17			$coll->unlimit;
18
19			print "indexing ", $coll->count, " items ";
20
21			while ( my $i = $coll->next ) {
22
23			Grep::Search->add( $i );
24
25			print $i->id, ' ';
26			}
27
28			print "\n";
29
30			Grep::Search->finish;