/[mws]/trunk/mbox2index.pl
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/mbox2index.pl

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

revision 12 by dpavlin, Thu May 6 12:40:11 2004 UTC revision 13 by dpavlin, Thu May 6 16:53:40 2004 UTC
# Line 4  use MWS; Line 4  use MWS;
4  use Data::Dumper;  use Data::Dumper;
5  use XML::Simple;  use XML::Simple;
6  use Text::Iconv;  use Text::Iconv;
7    use Date::Parse;
8    use POSIX qw(strftime);
9    
10  my $iso2utf = Text::Iconv->new('ISO-8859-2','UTF-8');  my $iso2utf = Text::Iconv->new('ISO-8859-2','UTF-8');
11    
# Line 21  foreach my $mbox ($mws->{config}->Parame Line 23  foreach my $mbox ($mws->{config}->Parame
23          foreach my $message ($folder->messages) {          foreach my $message ($folder->messages) {
24    
25                  my $id = $message->messageId;                  my $id = $message->messageId;
                 print STDERR "## $id\n";  
26    
27                  my $document = {                  my $document = {
28                          id => $id,                          id => $id,
# Line 29  foreach my $mbox ($mws->{config}->Parame Line 30  foreach my $mbox ($mws->{config}->Parame
30                  };                  };
31    
32                  foreach my $direction (qw(to from cc bcc)) {                  foreach my $direction (qw(to from cc bcc)) {
33                          foreach my $f ($message->$direction) {                          foreach my $part (qw(phrase address comment)) {
34  #                               print STDERR "$direction: ";                                  my @mail_fullnames = $mws->unroll($message,$direction,$part);
35                                  foreach my $part (qw(phrase address comment)) {                                  $document->{$direction.'_'.$part} = join("##",@mail_fullnames);
                                         next if (! $f->$part);  
 #                                       print STDERR "[$part]",$f->$part," ";  
                                         $document->{$direction.'_'.$part} .= $f->$part."\n";  
                                 }  
 #                               print STDERR "\n";  
         #                       push @{$document->$d.'_phrase'}, $f->phrase,  
         #                       push @{$document->$d.'_address'}, $f->address,  
         ##                      push @{$document->$d.'_comment'}, $f->comment,  
36                          }                          }
37                  }                  }
38    
39                  $document->{'subject'} = $message->get('Subject') || 'no subject';                  $document->{'subject'} = $message->get('Subject') || 'no subject';
40                  $document->{'body'} = $mws->plain_text_body($message);                  my $body = $mws->plain_text_body($message);
41                    $body =~ s,[\n\r],<br/>,gs;
42    
43                    $document->{'body'} = $body;
44    
45                    my $utime = str2time($message->date);
46    
47                    $document->{'date_utime'} = $utime;
48                    $document->{'date'} = strftime("%Y-%m-%d %H:%M:%S", localtime($utime));
49    
50  #               print Dumper($document);  #               print Dumper($document);
51  #               $mws->add_index("$mbox $id" => $document);  #               $mws->add_index("$mbox $id" => $document);
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26