#!/usr/bin/perl

# (c) Fluffy Clouds Ltd
# http://www.fluffy.co.uk/
# author: Ben Summers

# Fluffy Search Home page at http://www.fluffy.co.uk/fs/
# email: fluffysearch@fluffy.co.uk

# Launch your web graphics... fast!  http://www.ignite-it.co.uk/

#use CGI::Carp qw(Fatals_To_Browser);
 require 'fluffysearch.config';
&parse_form;
print "Content-Type: text/html\n\n";
if(!open(FL, $page_model))
{print "Couldn't open page model\n"; exit(1);}
read FL,$model,-s $page_model;
close FL;
($model_top, $model_bot) = split /#####/, $model;
$extra = '';
$title = '';
@words = ();
if(exists $form{'words'})
{ $search_words = $form{'words'};
if($form{'wt'} eq 'be') {$search_wb = ' checked'; $search_ew = '';}
else {$search_wb = ''; $search_ew = ' checked';}
if($form{'bl'} eq 'an') {$search_bAND = ' checked'; $search_bOR = ''; $search_bPHR = '';}
elsif($form{'bl'} eq 'ph') {$search_bAND = ''; $search_bOR = ''; $search_bPHR = ' checked';}
else {$search_bAND = ''; $search_bOR = ' checked'; $search_bPHR = '';}
$wl = lc $search_words;
$wl =~ tr/a-z0-9/ /c;
$wl =~ s/(\A\s+)|(\s+\Z)//g;
@words = split /\s+/, $wl;
if($wl eq '' || $#words < 0)
{ $extra = "<font color=red>Please enter some words in the search box.</font><br>";
@words = ();
} else
{ $title = join ' ', 'Search results for', @words;
} $search_q = $ENV{'QUERY_STRING'};
$search_q =~ s/\&pg=\d+//;
} else
{ $search_words = '';
$search_wb = ' checked';
$search_ew = '';
$search_bAND = '';
$search_bOR = ' checked';
$search_bPHR = '';
} if($title ne '') {$model_top =~ s~<title>(.+?)</title>~<title>$title</title>~si;}
print $model_top;
if($#words >= 0)
{ %pages = ();
$go = 1;
for($word = 0; $word <= $#words && $go; $word++)
{ ($i,$gs) = split //, $words[$word], 3;
$g = $grains[ord($gs)];
if(open(FL, "$index_loc/$i.$g"))
{ $found = 0;
$pat = "\\A$words[$word]";
if($search_wb eq '')
{ $pat .= '\\s';	
} %pages2 = ();
while(<FL>)
{ if(m/$pat/)
{ $found = 1;
($wd, $pg) = split / /, $_, 2;
@vp = split /#/, $pg;
$mul = ($#words + 1) - $word;
if($word > 0 && $search_bOR eq '')
{ for(@vp)
{ /\A(.+):(\d+?)\Z/;
if(exists $pages{"I$1"})
{ $pages2{"I$1"} = $pages{"I$1"} * ($2 * $mul);								
} } } else
{ for(@vp)
{ /\A(.+):(\d+?)\Z/;
if(exists $pages{"I$1"})
{ $pages{"I$1"} *= ($2 * $mul);
} else
{ $pages{"I$1"} = ($2 * $mul);
} } } } } if($word > 0 && $search_bOR eq '')
{ %pages = %pages2;
%pages2 = ();
} close FL;
} else
{ if($search_bAND ne '' || $search_bPHR ne '')
{ $pages = ();
$go = 0;		
} } } if($search_bPHR ne '' && $#words > 0)
{ if($search_wb ne '')
{ $pat = '\b' . join('\w*?\s+', @words);
} else
{ $pat = '\b' . join('\s+', @words) . '\b';
} @ps = keys %pages;
for $pg (@ps)
{ if($pg =~ m/I(.+)/)
{ if(open FL, "$docroot_disc/$1")
{ read FL,$pt,-s "$docroot_disc/$1";
close FL;
$pt =~ s/<.+?>//gs;
if(!($pt =~ m/$pat/gis))
{ delete $pages{$pg};
} } else
{ delete $pages{$pg};
} } } } @pages = sort {$pages{$b} <=> $pages{$a}} keys %pages;
$found = $#pages + 1;
$page_begin = 0;
$this_page = 0;
if($res_per_page != -1)
{ $end = ($res_per_page - 1);
if(exists $form{'pg'})
{ $this_page = $form{'pg'};
$this_page =~ tr/0-9//cd;
if($this_page eq '') {$this_page = 0}
$page_begin = $this_page * $res_per_page;
$end = ($page_begin + $res_per_page - 1);
} if($end > $#pages) {$end = $#pages}
@pages = @pages[$page_begin .. $end];
} $shown = $#pages + 1;
if($high_results)
{ $disp_root = "$page_script?$search_q&d=";
} else
{ $disp_root = $docroot_web;
} if($#pages >= 0)
{ print "<b>Search results ($found found, $shown shown)</b><p>\n";
$n = $page_begin + 1;
for $pg (@pages)
{ if($pg =~ m/(\w)(.+)/)
{ if($1 eq 'I')
{ $fn = $2;
if(open FL, "$docroot_disc/$fn")
{ read FL,$pt,1024;
close FL;
if($pt =~ m~<title>(.+?)</title>~gis)
{$title = $1}
else {$title = '(no title)'}
print qq~$n - <a href="$disp_root$fn"$link_target>$title</a><br>\n~;
} } else
{ print "(result type not known)<br>\n";
} } $n++;
} print "<p>\n";
} else
{ print "<b>No matching pages found.</b><p>\n";
} if($res_per_page != -1)
{ if($found != $shown)
{ $pages = int(($found / $res_per_page) + 1);
print "<i>$pages pages</i> : <tt>\n";
if($this_page != 0)
{ $p = $this_page - 1;
print qq~<a href="$search_script?$search_q&pg=$p">&lt;</a> ~;
} else
{ print "&lt; ";
} for($p = 0; $p < $pages; $p++)
{ $n = $p+1;
if($p == $this_page)
{ print " <b>$n</b> ";
} else
{ print qq~ <a href="$search_script?$search_q&pg=$p">$n</a> ~;
} } if($this_page != ($pages - 1))
{ $p = $this_page + 1;
print qq~ <a href="$search_script?$search_q&pg=$p">&gt;</a></tt><p>\n~;
} else
{ print " &gt;</tt><p>\n";
} } else
{ print "1 page of results only<p>\n";
} } } print <<__EOF;
<form method=GET action="$search_script">
$extra
Search for:<br>
<input type=text name="words" value="$search_words"><input type=submit value="Search"><br>
<font size="-1">(put most important words first)<br></font>
Find: <input type=radio name="wt" value="be"$search_wb>Words beginning
<input type=radio name="wt" value="ew"$search_ew>Entire words<br>
Require: <input type=radio name="bl" value="an"$search_bAND>All words
<input type=radio name="bl" value="or"$search_bOR>Any word
<input type=radio name="bl" value="ph"$search_bPHR>Phrase<br>
</form><p>
<font size="-1">Search by <a href="http://www.fluffy.co.uk">Fluffy Clouds</a><p></font>
__EOF
print $model_bot;
exit(0);
sub parse_form
{ %form = ();
my $buffer;
if($ENV{'REQUEST_METHOD'} eq 'POST')
{ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else
{ $buffer = $ENV{'QUERY_STRING'};
} @pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{ ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$name} = $value;
} }