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

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

revision 1 by dpavlin, Mon May 3 20:40:40 2004 UTC revision 3 by dpavlin, Tue May 4 14:00:03 2004 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Plucene::Simple;  use Data::Dumper;
4  use Mail::Box::Manager;  use MWS;
5    
6  my $debug = 1;  my $debug = 1;
7    
8  my $index = Plucene::Simple->open( "index" ) || die "can't open index: $!";  my $mws = MWS->new('index');
 my $mgr = Mail::Box::Manager->new;  
 my $folder;     # placeholder for folders  
9    
10  my @index_ids = $index->search(join(" ",@ARGV));  my $s=join(" ",@ARGV);
11    
12  my $results = $#index_ids + 1;  my $results = $mws->search($s);
13  print "$results results...\n";  print "$results results...\n";
14    
15  foreach my $index_id (@index_ids) {  while (my $r = $mws->fetch_result()) {
16          my ($mbox,$id) = split(/ /,$index_id);          print Dumper($r);
   
         if (! $folder->{$mbox}) {  
                 $folder->{$mbox} = $mgr->open($mbox);  
                 print STDERR "## open($mbox)\n" if ($debug);  
         }  
   
         my $message = $folder->{$mbox}->find($id) ||  
                 print STDERR "can't find message $id in $mbox. Time to re-index?\n";  
         foreach my $from ($message->from) {  
                 print $from->phrase," [",$from->address,"] ",$from->comment,"\n";  
         }  
         print " ",$message->get('Subject'),"\n";  
17    
18  }  }
Legend:
Removed from v.1  
changed lines
  Added in v.3
  ViewVC Help
Powered by ViewVC 1.1.26