#!/usr/bin/perl
#print "Content-type: text/html\n\n";
##################################################
# Make sure these paths are correct ##############
##################################################
require 'config.pl';
&config_dat;
require 'functions.pl';
##################################################
# Get Form Input #################################
##################################################


#
#  Added the header & footer section for the pages
#

$headerfile="/home/family/htdocs/header.txt";
$footerfile="/home/family/htdocs/footer.txt";


open(HEADER,$headerfile);
@header=<HEADER>;
close(HEADER);

open(FOOTER,$footerfile);
@footer=<FOOTER>;
close(FOOTER);


#
#  End of the additions
#

use CGI;
$inform = new CGI;
$search = $inform->param('search');
$searchtype = $inform->param('searchtype');
$start = $inform->param('start');
unless($disptype){
$disptype = $inform->param('disptype');
}
$advca = $inform->param('lastsearch');
$lsearch = $inform->param('search');
unless($disptype){$disptype = "disp1";}

if($searchtype eq "adv"){
	$urlsearch = "$advca+$search";
	$urlsearch =~ s/ /+/g;
	$prisearch = $advca;
}else{
	$urlsearch = "$search";
	$urlsearch =~ s/ /+/g;
}

unless($start){$start = 1;}







##################################################

#if($search eq ""){&error("You didn't enter any search criteria.");}

#
#  If nothing, do nothing, but at least recover better
#

if($search eq ""){
	&output; 
	exit();
}

#
#  Done with cleaner error exit.
# 

	$search =~ s/\W/ /g; $search =~ s/\s+/ /g;
	@searchwords = split(/ /, $search);
	$advca =~ s/\W/ /g; $advca =~ s/\s+/ /g;
	@oldsearch = split(/ /, $advca);

$cachename = $search;$cachename =~ s/\s+/_/g;
$lcachename = $advca;$lcachename =~ s/\s+/_/g;

if($searchtype ne "adv"){
	if(-f "cache/$cachename"){
		if((-C "cache/$cachename") > $cache_exp){
			&namedata;
			&newsearch;
		}else{
			&getcache;
		}
	}else{
		&namedata;
		&newsearch;
	}
	&output;
}
else{
	&newadvsearch;
	&output;
}


sub namedata {
	opendir(DIRECTORY, "data") || die "Can't open Database Directory";
	@datafiles = readdir(DIRECTORY);
}

sub newsearch {
	foreach $datafile (@datafiles){
		open(DAT, "data/$datafile");
		@entries = <DAT>;
		close(DAT);
		foreach $thisentry (@entries){
			$score = 0;
			($etime, $eurl, $etitle, $edescription, $ekeywords, $eemail, $ecattree, $elevel, $epassword) = split(/\|\|/, $thisentry);
	
			# Scoring...
			while($etitle =~ /$search/ig){$score = $score + $te;}
			while($edescription =~ /$search/ig){$score = $score + $de;}
			foreach $searchword (@searchwords){
				while($etitle =~ /$searchword/ig){$score = $score + $tc;}
				while($edescription =~ /$searchword/ig){$score = $score + $dc;}
				while($ekeywords =~ /$searchword/ig){$score = $score + $kc;}
				while($eurl =~ /$searchword/ig){$score = $score + $uc;}
				while($ecattree =~ /$searchword/ig){$score = $score + $cc;}
			}
			if($score > $highscore){$highscore = $score;}
			if($score > 0){&addtolist("$eurl|$etitle|$edescription|$ecattree|$score|$elevel|$eemail|$etime\n");}
		}
	}
	if(!@thelist){&noresults;}
	@thelist = sort relevant @thelist;
	@thelist = sort relevant2 @thelist;
	unshift(@thelist, "$highscore\n");	

	open(TCH, ">cache/$cachename");
	print TCH @thelist;
	close(TCH);

	opendir(CCC, "cache");
	@cachefiles = readdir(CCC);
	close(CCC);
	foreach $cachefile (@cachefiles){
		if((-C "cache/$cachefile") > $cache_exp){
			unlink("cache/$cachefile");
		}
	}

}

sub addtolist {
	$string = shift @_;
	push(@thelist, $string);
}


sub relevant {
	my @a = split /\|/, $a;
	my @b = split /\|/, $b;
	$b[4] <=> $a[4];
}
sub relevant2 {
	my @a = split /\|/, $a;
	my @b = split /\|/, $b;
	$a[5] <=> $b[5];

}

sub noresults {
	$outsource[$osc++] = "Sorry, we were unable to locate any sites using your search criteria.";
	&output;
	exit;
}

sub getcache {
	open(TLS, "cache/$cachename");
	@thelist = <TLS>;
	close(TLS);
}


sub output {

	if($webvertise == 1){
		$newtime = time;
		open(ZON, "$zoneinfo");
		@zlines = <ZON>;
		close(ZON);
		foreach $zline (@zlines){
			@zonedet = split(/\|/, $zline);
			foreach $searchword (@searchwords){
				if($searchword =~ /$zonedet[0]/ig){
					$usezone = $zonedet[0];
					$foundzone = 1;
					last;
				}
			}
			if($foundzone == 1){last;}
		}
		unless($foundzone){$usezone = "ROT";}
	}

	print "Content-type: text/html\n\n";
	$highscore = @thelist[0];
	chomp($highscore);
	$outsource[$osc++] = "<table width=100\%>\n";
	$cse[$cts++] = "<tr><td>Recommended Searches:<table width=100\%>\n";
	for($i = $start; ($i < $start + $numresults) && ($i - 1 < $#thelist);$i +=1){
		($eurl, $etitle, $edescription, $ecattree, $score, $elevel, $eemail, $etime) = split(/\|/, @thelist[$i]);
		$rank = sprintf("%.1f%%", ($score/$highscore)*100);
		if($elevel < 10){$rank = "100\%";}
		$entertime = localtime($etime);
		&cust_display;
		if($usecategories && ($ecattree gt " ")){
			$nodupcat = grep(/$ecattree/, @curcats);
			if($nodupcat < 1){
			$urlcat = $ecattree;
			$urlcat =~ s/ /_/ig;
			if($odd){
				$cse[$cts++] = "<td><a href=catsearch.pl?cat=$urlcat>$ecattree</a></td></tr>\n";
				$odd = 0;
			}else{
				$cse[$cts++] = "<tr><td><a href=catsearch.pl?cat=$urlcat>$ecattree</a></td><td width=10> </td>";
				$odd = 1;
			}
			push(@curcats, $ecattree);
			}
		}
	}
	if($odd){$cse[$cts++] = "<td></td></tr>\n";}
	$cse[$cts++] = "</table></td></tr>\n";
	$outsource[$osc++] = "</table>\n";
	$finish = $i - 1;
	unless(!@thelist){
	$resultstat = "$start - $finish of <b>$#thelist</b> results relevant to <b>$prisearch $search</b>\n";
	$next = $i;
	$fnext = $next;
	}
	
	# Nav Bar
	$navbar[$nb++] = "Result pages: ";
	$prevstart = $start - $numresults;
	$nbprev = "<a href=search.pl?search=$urlsearch&start=$prevstart&disptype=$disptype>&lt;&lt;Prev</a> ";
	$nbnext = " <a href=search.pl?search=$urlsearch&start=$next&disptype=$disptype>Next&gt;&gt; </a>";

	$totpages = int($#thelist / $numresults);
	if(($#thelist / $numresults) > $totpages){$totpages +=1;}
	$firstpage = int($start / $numresults);
	if($firstpage < 1){$firstpage = 1;}
	$navpgmax = $firstpage + ($navpgmax - 1);
#	$firstpage = 1;
	if($totpages > $navpgmax){
		$dotdotdot = 1;
#		$watch = (($navpgmax * $numresults) + 1);
#		if($start ge $watch){
#			$firstpage = $navpgmax + 1;
#			$navpgmax = $navpgmax * 2;
#		}
	}
	if($prevstart > 0){$navbar[$nb++] = "$nbprev";}else{$navbar[$nb++] = "&lt;&lt;Prev ";}
	for($p = $firstpage; ($p <= $navpgmax) && ($p <= $totpages); $p +=1){
		$pageholds = $p * $numresults;
		$newstart = $pageholds - ($numresults - 1);
		if($start eq $newstart){
			$navbar[$nb++] = "<b>$p</b> ";
		}
		if($start != $newstart){
			$navbar[$nb++] = "<a href=search.pl?search=$urlsearch&start=$newstart&disptype=$disptype>$p</a> ";
		}
	}
	if($dotdotdot && ($newstart + $numresults < $#thelist)){
		$newstart = $newstart + $numresults;
		$navbar[$nb++] = "<a href=search.pl?search=$urlsearch&start=$newstart&disptype=$disptype> ...</a> ";
	}
	if($#thelist > $next){$navbar[$nb++] = "$nbnext";}else{$navbar[$nb++] = " Next&gt;&gt;";}
	
			
	##
	open(TMP, "resulttemplate.html");
	@templines = <TMP>;
	close(TMP);
	foreach $templine (@templines){
		if($usecategories && $urlcat){
		$templine =~ s/<!-- Categories -->/@cse/ig;
		}
		if($webvertise){
		$templine =~ s/\%\%ZONE\%\%/$usezone/ig;
		$templine =~ s/\%\%TIME\%\%/$newtime/ig;
		}
		$templine =~ s/<!-- Header -->/@header/ig;
		$templine =~ s/<!-- Footer -->/@footer/ig;
		$templine =~ s/<!-- Last Search -->/<input type=hidden name=lastsearch value='$lsearch'>/ig;
		$templine =~ s/<!-- Result Stat -->/$resultstat/ig;
		$templine =~ s/<!-- Results -->/@outsource/ig;
		$templine =~ s/<!-- Nav Bar -->/@navbar/ig;
		print $templine;
	}
	
}

sub cust_display {
require "displays/$disptype.pl";
&tablerow;
}

sub newadvsearch {
		open(DAT, "cache/$lcachename");
		@entries = <DAT>;
		close(DAT);
		foreach $thisentry (@entries){
			unless($thisentry =~ /\|/g){next;}
			$score = 0;
			($eurl, $etitle, $edescription, $ecattree, $oldscore, $elevel, $eemail, $etime) = split(/\|/, $thisentry);
	
			# Scoring...
			while($etitle =~ /$search/ig){$score = $score + $te;}
			while($edescription =~ /$search/ig){$score = $score + $de;}
			foreach $searchword (@searchwords){
				while($etitle =~ /$searchword/ig){$score = $score + $tc;}
				while($edescription =~ /$searchword/ig){$score = $score + $dc;}
				#while($ekeywords =~ /$searchword/ig){$score = $score + $kc;}
				while($eurl =~ /$searchword/ig){$score = $score + $uc;}
				while($ecattree =~ /$searchword/ig){$score = $score + $cc;}
			}
			if($score > $highscore){$highscore = $score;}
			if($score > 0){&addtolist("$eurl|$etitle|$edescription|$ecattree|$score|$elevel|$eemail|$etime");}
		}

	if(!@thelist){&noresults;}
	@thelist = sort relevant @thelist;
	unshift(@thelist, "$highscore\n");	
	
	$newcachename = $lcachename . "_" . $cachename;	

	open(TCH, ">cache/$newcachename");
	print TCH @thelist;
	close(TCH);

	opendir(CCC, "cache");
	@cachefiles = readdir(CCC);
	close(CCC);
	foreach $cachefile (@cachefiles){
		if((-C "cache/$cachefile") > $cache_exp){
			unlink("cache/$cachefile");
		}
	}

}










1;