mws/trunk/search.pl

#!/usr/bin/perl -w

use Plucene::Simple;
use Mail::Box::Manager;

my $debug = 1;

my $index = Plucene::Simple->open( "index" ) || die "can't open index: $!";
my $mgr = Mail::Box::Manager->new;
my $folder;     # placeholder for folders

my @index_ids = $index->search(join(" ",@ARGV));

my $results = $#index_ids + 1;
print "$results results...\n";

foreach my $index_id (@index_ids) {
        my ($mbox,$id) = split(/ /,$index_id);

        if (! $folder->{$mbox}) {
                $folder->{$mbox} = $mgr->open($mbox);
                print STDERR "## open($mbox)\n" if ($debug);
        }

        my $message = $folder->{$mbox}->find($id) ||
                print STDERR "can't find message $id in $mbox. Time to re-index?\n";
        foreach my $from ($message->from) {
                print $from->phrase," [",$from->address,"] ",$from->comment,"\n";
        }
        print " ",$message->get('Subject'),"\n";

}
1	#!/usr/bin/perl -w
2
3	use Plucene::Simple;
4	use Mail::Box::Manager;
5
6	my $debug = 1;
7
8	my $index = Plucene::Simple->open( "index" ) \|\| die "can't open index: $!";
9	my $mgr = Mail::Box::Manager->new;
10	my $folder; # placeholder for folders
11
12	my @index_ids = $index->search(join(" ",@ARGV));
13
14	my $results = $#index_ids + 1;
15	print "$results results...\n";
16
17	foreach my $index_id (@index_ids) {
18	my ($mbox,$id) = split(/ /,$index_id);
19
20	if (! $folder->{$mbox}) {
21	$folder->{$mbox} = $mgr->open($mbox);
22	print STDERR "## open($mbox)\n" if ($debug);
23	}
24
25	my $message = $folder->{$mbox}->find($id) \|\|
26	print STDERR "can't find message $id in $mbox. Time to re-index?\n";
27	foreach my $from ($message->from) {
28	print $from->phrase," [",$from->address,"] ",$from->comment,"\n";
29	}
30	print " ",$message->get('Subject'),"\n";
31
32	}