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 ";

my $search = Grep::Search->new();

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

        $search->add( $i, $i->in_feed->owner->id );

        print $i->id, ' ';
}

print "\n";

$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	dpavlin	110	my $search = Grep::Search->new();
22
23	dpavlin	47	while ( my $i = $coll->next ) {
24
25	dpavlin	110	$search->add( $i, $i->in_feed->owner->id );
26	dpavlin	47
27			print $i->id, ' ';
28			}
29
30			print "\n";
31
32	dpavlin	110	$search->finish;