mws/trunk/search.pl

#!/usr/bin/perl -w

BEGIN {
        my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$#lib#;
        unshift(@INC, $basedir);
}

=head1 NAME

search.pl - command-line search utility

=head1 SYNOPSYS

 search.pl [local.conf] 'subject:nice demo'

=head1 DESCRIPTION

This utility is useful mainly for debugging, but you can try quick-searches
using it.

=cut

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

my $debug = 1;

my $s = shift @ARGV;

my $config_file = 'global.conf';
if (-f $s) {
        $config_file = $s;
#       print STDERR "using $config_file\n";
        $s = '';
}

my $mws = MWS::SWISH->new(config_file=>$config_file);

$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	BEGIN {
4	my $basedir = readlink($0) \|\| $0; $basedir =~ s#/[^/]+$#lib#;
5	unshift(@INC, $basedir);
6	}
7
8	=head1 NAME
9
10	search.pl - command-line search utility
11
12	=head1 SYNOPSYS
13
14	search.pl [local.conf] 'subject:nice demo'
15
16	=head1 DESCRIPTION
17
18	This utility is useful mainly for debugging, but you can try quick-searches
19	using it.
20
21	=cut
22
23	use Data::Dumper;
24	use MWS::SWISH;
25	use Template;
26
27	my $debug = 1;
28
29	my $s = shift @ARGV;
30
31	my $config_file = 'global.conf';
32	if (-f $s) {
33	$config_file = $s;
34	# print STDERR "using $config_file\n";
35	$s = '';
36	}
37
38	my $mws = MWS::SWISH->new(config_file=>$config_file);
39
40	$s.=join(" ",@ARGV);
41
42	my $results = $mws->search($s);
43	print "$results results...\n";
44
45	my $t = Template->new({
46	INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
47	});
48
49	my @res = $mws->fetch_all_results();
50
51	$t->process("results.txt", {
52	query => $s,
53	results => \@res,
54	}) \|\| die $t->error();
55