#!/usr/bin/perl -w
#
# Site search facility - UKS-MMS - 22/9/2003
#

use strict;

my $template="../template.html";
my $temphtml="";
print "Content-type: text/html\n\n";
#
# read in the template file
#
open (TEMPLATE,"$template");
my $htmlmain = join "", <TEMPLATE>;
close TEMPLATE;

my $query=$ENV{QUERY_STRING};
# Decode the form encoding
   $query =~ tr/+/ /;
   $query =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

my $dummy;
my $temp;
my $find;
($dummy,$temp)=split(/=/,$query);
($find,$dummy)=split(/&/,$temp);
$temphtml .= "<p><b>Pages containing:</b> $find</p>\n";

#
#  get list of html files
#
if ($find) {
#  my $dir="/bin/ls -R ../*.html|";
#  my $dir="/usr/bin/ls -R *|";
#  open(fhin,$dir) or die("Couldn't open input");

# Open the directory
  my $dir="..";
  opendir fhin, $dir || die("Could not open upload directory ($dir)");
  my $matches=0;
#  $temphtml .= "<p><b>Pages searched:</b></p>\n"; # debugging only
#
# for each file check it's contents
#
  while (my $file = readdir(fhin)) {
   unless (-d "$dir/$file") {
    if ($file=~/.html/) { # only html files
     open(fh2,"<$dir/$file");
     my $html;
     read(fh2,$html,999999);
     my $test=$html;
     $test =~ /title>(.*)<\/title/i;	# get page title
     my $title = $1;
     $html =~ s#<a.*?/a>##sgi;		# remove links
     $html =~ s#<form.*?/form>##sgi;	# remove forms
     $html =~ s#<applet.*?/applet>##sgi;	# remove applets
     $html =~ s#<img.*?>##sgi;		# remove images
     my $currfile=$file;
     my $html2=$html;
#     $temphtml .= "$currfile , \n"; # debugging only
#
#  for each match,print out the surrounding sentence along with a link to the page
#
     while ($html =~ /$find/i) {
	 if ($matches == 0) {
	   $temphtml .= "<table align='center' cellpadding='5' width='95%' border='1'><tr><td><b>Page Title</b></td><td><b>Page Content</b></td></tr>\n";
	 }
         $test=$html;
         $html = $';	# get rid of the previous match
         $test =~ /[^>]*$find[^<]*/si;
#         $test =~ /[^>]{0,30}$find[^<]{0,30}/si;  enforces max of 30 chars
         my $desc = $&;
         $temphtml .= "<tr><td width='33%'><a href='/$currfile'>$title</a></td><td width='66%'>$desc</td></tr>\n";
         $matches++;
     }
     close(fh2);
    } # eof if (html check)
   } # eof unless
  } # eof while
#     $temphtml .= "<p><b>end of file list.</b></p>\n"; # debugging only
  close (fhin);
  $temphtml .= "</table>\n";
  if ($matches == 0) {
     $temphtml .= "<br><p>No matches found!</p>\n";
  } else {
     $temphtml .= "<br><p>$matches matches found.</p>\n";
  }

} else {

  $temphtml .= "<p>Nothing specified!</p>\n";
}
#
# Now finish off the html with the search again form
#
my $formhtml = '<form name="searchForm" action="/cgi-bin/search.pl" method="get"><table width="60%"><tr><td align="center">';
$formhtml .= '<p align="center">&nbsp;&nbsp;Search again? </td><td align="center"><input id="query" type="text" name="query" value="" size="20" maxlength="50"></td>';
$formhtml .= '<td align="center"><input type="submit" name="qButton" value="Search" id="qButton"></td></tr></table></form>';

$temphtml .= "$formhtml\n";
#
# now insert the results page into the template and display
#
$htmlmain =~ s/<!--INSERT-->/$temphtml/;
print $htmlmain;