Repository List / mws / trunk / search.pl @ HEAD

#!/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();