--- trunk/search.pl	2004/05/04 14:00:03	3
+++ trunk/search.pl	2004/05/04 15:47:14	4
@@ -2,17 +2,25 @@
 
 use Data::Dumper;
 use MWS;
+use Template;
 
 my $debug = 1;
 
-my $mws = MWS->new('index');
+my $mws = MWS->new('global.conf');
 
 my $s=join(" ",@ARGV);
 
 my $results = $mws->search($s);
 print "$results results...\n";
 
-while (my $r = $mws->fetch_result()) {
-	print Dumper($r);
+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();
 
-}