/[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 2 by dpavlin, Mon May 3 21:28:46 2004 UTC revision 4 by dpavlin, Tue May 4 15:47:14 2004 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
 use Plucene::Simple;  
 use Mail::Box::Manager;  
3  use Data::Dumper;  use Data::Dumper;
4  use MWS  use MWS;
5    use Template;
6    
7  my $debug = 1;  my $debug = 1;
8    
9  my $mws = MWS->new('index');  my $mws = MWS->new('global.conf');
10    
11  my $s=join(" ",@ARGV);  my $s=join(" ",@ARGV);
12    
13  my $results = $mws->search($s);  my $results = $mws->search($s);
14  print "$results results...\n";  print "$results results...\n";
15    
16  while (my $r = $mws->fetch_result()) {  my $t = Template->new({
17          print Dumper($r);          INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
18    });
19    
20    my @res = $mws->fetch_all_results();
21    
22    $t->process("results.txt", {
23            query   => $s,
24            results => \@res,
25    }) || die $t->error();
26    
 }  
Legend:
Removed from v.2  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26