/[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

trunk/mbox2swish.pl revision 15 by dpavlin, Thu May 6 22:52:19 2004 UTC trunk/mbox2index.pl 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;
11    
12    
13    # are we called from this script?
14    my $recursive = 0;
15    
16    my $r = GetOptions("recursive" => \$recursive);
17    
18    my $config_file = shift @ARGV || 'global.conf';
19    
20    if (! -f $config_file) {
21            print qq{Usage: $0 [/path/to/local.conf]
22    
23    If local.conf is not specified, global.conf in current directory will
24    be used.
25    };
26            exit 1;
27    }
28    
29    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);
33    
34  my $mws = MWS->new('global.conf');  print STDERR "starting indexing...";
35    
36  my $debug = 1;  my $debug = 1;
37    
# Line 29  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    
63                  $document->{'subject'} = $message->get('Subject') || 'no subject';                  $document->{'subject'} = $mws->decode_qp($message->subject) || 'no subject';
64    
65                  $document->{'body'} = $mws->plain_text_body($message);                  $document->{'body'} = $mws->plain_text_body($message);
66    
Legend:
Removed from v.15  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26