#!/usr/bin/perl -w 
#
# a CRUDE example for SWISH::HiLiter -- don't really use this
# takes two CGI parameters: q and index
   
use CGI qw(:all);
$| = 1;
print header();

print start_html();

my $index = param( 'index' ) || 'index.swish-e';

my $query = param( 'q' );

require SWISH::API;
my $swish = SWISH::API->new( $index );

$swish->RankScheme( 1 );

require SWISH::HiLiter;

my $hiliter = SWISH::HiLiter->new( swish=>$swish, query=>$query );

print "looking for '$query'\n";

my $results = $swish->Query( $query );

print "Sorry, no hits" unless $results->Hits;
      
while ( my $result = $results->NextResult )
{
	
	my $path 	= $result->Property( "swishdocpath" );
	my $title 	= $hiliter->light( $result->Property( "swishtitle" ) );
	my $snip 	= $hiliter->light( $hiliter->snip( $result->Property( "swishdescription" ) ) );
	my $rank 	= $result->Property( "swishrank" );
	my $file	= $result->Property( "swishreccount" );
        
	print "<p>$file. <a href='$path'>$title</a><br/>$snip<br />$rank</p>";
	
}


print end_html();