mws/trunk/search.pl

#!/usr/bin/perl -w

use Data::Dumper;
use MWS;
use Template;

my $debug = 1;

my $mws = MWS->new('global.conf');

my $s=join(" ",@ARGV);

my $results = $mws->search($s);
print "$results results...\n";

my $t = Template->new({
        INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
});

my @res = $mws->fetch_all_results();

$t->process("results.txt", {
        query   => $s,
        results => \@res,
}) || die $t->error();

1	#!/usr/bin/perl -w
2
3	use Data::Dumper;
4	use MWS;
5	use Template;
6
7	my $debug = 1;
8
9	my $mws = MWS->new('global.conf');
10
11	my $s=join(" ",@ARGV);
12
13	my $results = $mws->search($s);
14	print "$results results...\n";
15
16	my $t = Template->new({
17	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