6 |
use warnings; |
use warnings; |
7 |
use Carp; |
use Carp; |
8 |
|
|
9 |
|
use Plucene::Simple; |
10 |
|
use Mail::Box::Manager; |
11 |
|
|
12 |
require Exporter; |
require Exporter; |
13 |
|
|
14 |
our @ISA = qw(Exporter); |
our @ISA = qw(Exporter); |
91 |
sub fetch_result { |
sub fetch_result { |
92 |
my $self = shift; |
my $self = shift; |
93 |
|
|
94 |
|
my $args = {@_}; |
95 |
|
|
96 |
croak "results called before search!" if (! $self->{'index_ids'}); |
croak "results called before search!" if (! $self->{'index_ids'}); |
97 |
|
|
98 |
my $curr = $self->{'curr_result'}++; |
my $curr = $self->{'curr_result'}++; |
107 |
|
|
108 |
$row->{'from'} = unroll($message,'from','phrase'); |
$row->{'from'} = unroll($message,'from','phrase'); |
109 |
$row->{'subject'} = $message->get('Subject'); |
$row->{'subject'} = $message->get('Subject'); |
110 |
|
if (! $message->isMultipart) { |
111 |
|
$row->{'body'} = $message->decoded->string; |
112 |
|
} else { |
113 |
|
foreach my $part ($message->parts) { |
114 |
|
if ($part->body->mimeType eq 'text/plain') { |
115 |
|
$row->{'body'} = $part->decoded->string; |
116 |
|
last; |
117 |
|
} |
118 |
|
} |
119 |
|
} |
120 |
|
|
121 |
return $row; |
return $row; |
122 |
|
|