/[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 6 by dpavlin, Tue May 4 15:47:14 2004 UTC revision 7 by dpavlin, Wed May 5 15:38:35 2004 UTC
# Line 46  sub new { Line 46  sub new {
46          return $self;          return $self;
47  }  }
48    
49    sub open_folder {
 sub fetch_message {  
50          my $self = shift;          my $self = shift;
51    
52          my $mbox_id = shift || die "need mbox_id!";          my $mbox = shift || croak "open_folder needs mbox name";
         my ($mbox,$id) = split(/ /,$mbox_id);  
53    
54          if (! $self->{folder}->{$mbox}) {          if (! $self->{folder}->{$mbox}) {
55                  my $mbox_path = $self->{config}->val('folders', $mbox) || croak "comeone removed folder $mbox from config?";                  my $mbox_path = $self->{config}->val('folders', $mbox) || croak "comeone removed folder $mbox from config?";
# Line 59  sub fetch_message { Line 57  sub fetch_message {
57                  print STDERR "## open($mbox)\n" if ($debug);                  print STDERR "## open($mbox)\n" if ($debug);
58          }          }
59    
60          my $message = $self->{folder}->{$mbox}->find($id) ||          return $self->{folder}->{$mbox};
61    
62    }
63    
64    sub fetch_message {
65            my $self = shift;
66    
67            my $mbox_id = shift || die "need mbox_id!";
68            my ($mbox,$id) = split(/ /,$mbox_id);
69    
70            # return message with ID
71            return $self->open_folder($mbox)->find($id) ||
72                  print STDERR "can't find message $id in $mbox. Time to re-index?\n";                  print STDERR "can't find message $id in $mbox. Time to re-index?\n";
           
         return $message;  
73  }  }
74    
75    
# Line 89  sub unroll($$$) { Line 96  sub unroll($$$) {
96          my @arr;          my @arr;
97    
98          foreach my $from ($message->$part) {          foreach my $from ($message->$part) {
99                  push @arr, $from->$sub;                  my $tmp = $from->$sub;
100                    $tmp =~ s/^\s*["'](.*)["']\s*$/$1/;
101                    push @arr, $tmp;
102          }          }
103          return \@arr;          return \@arr;
104  }  }
# Line 122  sub fetch_result { Line 131  sub fetch_result {
131          return $self->fetch_result_by_id($id);          return $self->fetch_result_by_id($id);
132  }  }
133    
134    sub plain_text_body {
135            my $self = shift;
136            my $message = shift || croak "plain_text_body needs message!";
137    
138            if (! $message->isMultipart) {
139                    return $message->decoded->string;
140            } else {
141                    foreach my $part ($message->parts) {
142                            if ($part->body->mimeType eq 'text/plain') {
143                                    return $part->decoded->string;
144                            }
145                    }
146            }
147    }
148    
149    
150  sub fetch_result_by_id {  sub fetch_result_by_id {
151          my $self = shift;          my $self = shift;
152    
# Line 131  sub fetch_result_by_id { Line 156  sub fetch_result_by_id {
156    
157          my $row;          my $row;
158    
159            $row->{'id'} = $id;
160          $row->{'from'} = unroll($message,'from','phrase');          $row->{'from'} = unroll($message,'from','phrase');
161          $row->{'subject'} = $message->get('Subject');          $row->{'subject'} = $message->subject;
162          if (! $message->isMultipart) {          $row->{'body'} = $self->plain_text_body($message);
                 $row->{'body'} = $message->decoded->string;  
         } else {  
                 foreach my $part ($message->parts) {  
                         if ($part->body->mimeType eq 'text/plain') {  
                                 $row->{'body'} = $part->decoded->string;  
                                 last;  
                         }  
                 }  
         }  
163    
164          return $row;          return $row;
165                    
Legend:
Removed from v.6  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.26