/[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 3 by dpavlin, Tue May 4 14:00:03 2004 UTC revision 4 by dpavlin, Tue May 4 15:47:14 2004 UTC
# Line 2  Line 2 
2    
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.3  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26