/[mws]/trunk/MWS.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/MWS.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Mon May 3 21:28:46 2004 UTC revision 3 by dpavlin, Tue May 4 14:00:03 2004 UTC
# Line 6  use strict; Line 6  use strict;
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);
# Line 88  sub unroll($$$) { Line 91  sub unroll($$$) {
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'}++;
# Line 102  sub fetch_result { Line 107  sub fetch_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                    
Legend:
Removed from v.2  
changed lines
  Added in v.3
  ViewVC Help
Powered by ViewVC 1.1.26