#!/usr/bin/perl
#
# search.pl
# Copyright (c) 1996 SurfUtah.Com
# written by Rus Berrett
#
# simple interface to SWISH
#

require 'util.pl';

$| = 1;  # unbuffer the data

# whereis swish
$swishexec = "/usr/bin/swish/swish";
unless (-e $swishexec) {
  &print_header_info("Cannot open $swishexec");
  print <<ENDERROR;
  <h2><u>Cannot open $swishexec</u></h2>
  Cannot open \"$swishexec\".  File not found or permission denied.
  <p>
ENDERROR
  &print_footer_info();
  exit(0);
}

# get the form data
&parse_form_data(*array);

# required variable in the html form:
#    --swishindex, keywords
# optional fields:
#    --maxresults 
if ($array{'swishindex'} eq "") {
  # not happy crappy
  &print_header_info("Swishindex Variable Not Specified");
  print <<ENDERROR;
  <h2><u>Form Incomplete</u></h2>
  The form is incomplete.... no \"swishindex\" variable is
  available.  The \"swishindex\" variable specifies the
  pathname to the swish index.  
  <p>
ENDERROR
  &print_footer_info();
  exit(0);
}
if ($array{'keywords'} eq "") {
    # not happy crappy
  &print_header_info("Data Incomplete");
  print <<ENDERROR;
  <h2><u>Data Incomplete</u></h2>
  Your request to search has been
  rejected due to insufficient information.  To properly send
  your search request, please provide one or more keywords.  
  <p>
  search example 1: john and doe or jane<br>
  search example 2: john and (doe or jane)<br>
  search example 3: not (john or jane) and doe<br>
  search example 4: j* and doe<br>
  <p>
ENDERROR
  &print_footer_info();
  exit(0);
}

# everything is happy, open up a pipe to the swish executable
$command = "$swishexec -f $array{'swishindex'} -w \"$array{'keywords'}\""; 
if ($array{'maxresults'} ne "") {
  $command .= " -m $array{'maxresults'}";
}
&print_header_info("Search Results");
print "<h2><u>Search Results</u></h2>\n";
print "Keywords: <b>$array{'keywords'}</b>\n<p>\n";
open(SWISH, "$command|");
while (<SWISH>) {
  # results of swish can be-
  #         line beginning with "#"
  #         line beginning with "."
  #         line beginning with "err"
  #         line beginning with "search words:"
  #         line beginning with relevance rank [0-9]
  if (/^\./) {
    last;
  }
  elsif (/^err:/) {
    print "$_";
    last;
  }
  elsif (/^[0-9]/) {
    chop;
    # can't simply split because spaces can exit in title
    $firstspace = index("$_", "\ ", 0); 
    if ($firstspace == -1) {
      next;
    }
    $secondspace = index("$_", "\ ", ($firstspace+1)); 
    if ($secondspace == -1) {
      next;
    }
    $lastspace = rindex("$_", "\ ");
    if ($lastspace == -1) {
      next;
    }
    $rank = substr($_, 0, $firstspace);
    $url = substr($_, ($firstspace+1), ($secondspace-$firstspace-1));
    $title = substr($_, ($secondspace+1), ($lastspace-$secondspace-1));
    $numbytes = substr($_, ($lastspace+1));
    print "$rank <a href=\"$url\">$title</a> ($numbytes bytes)<br>\n";
  }
}
close(SWISH);
if ($ENV{'PATH_INFO'} ne "") {
  print <<RETURNURL;
  <p>
  <a href=\"$ENV{'PATH_INFO'}\">Back to search form</a>
  <p>
RETURNURL
}
print "<p>\n";
&print_footer_info();

##############################################################################
# eof search.pl