mws/trunk/search.pl

#!/usr/bin/perl -w

BEGIN {
        my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##;
        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	dpavlin	1	#!/usr/bin/perl -w
2
3	dpavlin	47	BEGIN {
4			my $basedir = readlink($0) \|\| $0; $basedir =~ s#/[^/]+$##;
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	dpavlin	2	use Data::Dumper;
24	dpavlin	47	use MWS::SWISH;
25	dpavlin	4	use Template;
26	dpavlin	1
27			my $debug = 1;
28
29	dpavlin	47	my $s = shift @ARGV;
30	dpavlin	1
31	dpavlin	47	my $config_file = 'global.conf';
32			if (-f $s) {
33			$config_file = $s;
34			# print STDERR "using $config_file\n";
35			$s = '';
36			}
37	dpavlin	1
38	dpavlin	47	my $mws = MWS::SWISH->new(config_file=>$config_file);
39
40			$s.=join(" ",@ARGV);
41
42	dpavlin	2	my $results = $mws->search($s);
43	dpavlin	1	print "$results results...\n";
44
45	dpavlin	4	my $t = Template->new({
46			INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
47			});
48	dpavlin	1
49	dpavlin	4	my @res = $mws->fetch_all_results();
50
51			$t->process("results.txt", {
52			query => $s,
53			results => \@res,
54			}) \|\| die $t->error();
55