--- trunk/search.pl	2004/05/04 15:47:14	4
+++ trunk/search.pl	2004/05/25 18:55:46	52
@@ -1,14 +1,43 @@
 #!/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;
+use MWS::SWISH;
 use Template;
 
 my $debug = 1;
 
-my $mws = MWS->new('global.conf');
+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);
 
-my $s=join(" ",@ARGV);
+$s.=join(" ",@ARGV);
 
 my $results = $mws->search($s);
 print "$results results...\n";