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 |
|
|
|
} |
|