/[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 27 by dpavlin, Sat May 8 20:34:26 2004 UTC revision 41 by dpavlin, Mon May 10 20:26:17 2004 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use MWS;  use lib '.';
4    
5    use MWS::SWISH;
6    #use MWS::Plucene;
7  use Data::Dumper;  use Data::Dumper;
8  use Date::Parse;  use Date::Parse;
9  use POSIX qw(strftime);  use POSIX qw(strftime);
10  use Getopt::Long;  use Getopt::Long;
11    
12    
13  # are we called from this script?  # are we called from this script?
14  my $recursive = 0;  my $recursive = 0;
15    
# Line 22  be used. Line 26  be used.
26          exit 1;          exit 1;
27  }  }
28    
29  my $mws = MWS->new($config_file);  my $mws = MWS::SWISH->new(config_file => $config_file);
30    #my $mws = MWS::Plucene->new(config_file => $config_file);
31    
32  $mws->create_index if (! $recursive);  $mws->create_index if (! $recursive);
33    
# Line 50  foreach my $mbox ($mws->{config}->Parame Line 55  foreach my $mbox ($mws->{config}->Parame
55    
56                  foreach my $direction (qw(to from cc bcc)) {                  foreach my $direction (qw(to from cc bcc)) {
57                          foreach my $part (qw(phrase address comment)) {                          foreach my $part (qw(phrase address comment)) {
58                                  $document->{$direction.'_'.$part} = join("##", $mws->unroll($message,$direction,$part));                                  my @data = $mws->unroll($message,$direction,$part);
59                                    $document->{$direction.'_'.$part} = join("##", @data) if (@data);
60                          }                          }
61                  }                  }
62    
Legend:
Removed from v.27  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26