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	dpavlin	1	#!/usr/bin/perl -w
2
3	dpavlin	2	use Data::Dumper;
4	dpavlin	3	use MWS;
5	dpavlin	4	use Template;
6	dpavlin	1
7			my $debug = 1;
8
9	dpavlin	4	my $mws = MWS->new('global.conf');
10	dpavlin	1
11	dpavlin	2	my $s=join(" ",@ARGV);
12	dpavlin	1
13	dpavlin	2	my $results = $mws->search($s);
14	dpavlin	1	print "$results results...\n";
15
16	dpavlin	4	my $t = Template->new({
17			INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
18			});
19	dpavlin	1
20	dpavlin	4	my @res = $mws->fetch_all_results();
21
22			$t->process("results.txt", {
23			query => $s,
24			results => \@res,
25			}) \|\| die $t->error();
26