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