#!/usr/bin/perl

# Shortened for URL length with switch to GET method
# maxresults mr
# previews pr
# query q
# searchkind sk

#Keyword from html form for any kind of pet
$anykind = "any";

# My directory for the log file
$logdir = ".";

#Path to the index
$index = "petindex";

#Path to the configuration file
$config = "search.conf";

#- Main Program -------------------------------------------------------------#

#Parse the form data
&parse_form_data (*FORM);

#Construct a simple query

$query = $FORM{'q'};
$results = $FORM{'mr'};
$temp_previews = $FORM{'pr'};
$sk = $FORM{'sk'};


if ($temp_previews eq "ON")
  {
	$show_previews = 1;
  }
else
  {
	$show_previews = 0;
  }


if ($query || ($sk ne $anykind) ) 
  {
   &search_parse;
  }
else
  {
   &search_error("Please enter at least one word in the <B>\"Search for\"</B> box.");
  }


#- Subroutines ---------------------------------------------------------------#

#Subroutine for checking and parsing the incoming form data.

sub parse_form_data {

local (*FORM_DATA) = @_;
local ($request_method, $query_string, @key_value_pairs, $key_value, $key, $value);

$request_method = $ENV{'REQUEST_METHOD'};

if ($request_method eq "GET") {
   $query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
   read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
   &search_error ("Forms must use either GET or POST.");
}

@key_value_pairs = split (/&/, $query_string);

foreach $key_value (@key_value_pairs) {
   ($key,  $value) = split (/=/, $key_value);
   $value =~ tr/+/ /;
   $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
   if (defined ($FORM_DATA{$key})) {
      $FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
   } else {
      $FORM_DATA{$key} = $value;
   }
}

}

#Subroutine for constructing the search request and formating the results.

sub search_parse {

#Create your query command

if ($results < 1 || $results > 500) {$results = 10;};

$count=0;

if ($sk eq "Dogs") { $restriction = "kind=dog "; }
elsif  ($sk eq "Alpacas") { $restriction = "kind=Alpaca "; }
elsif  ($sk eq "Bats") { $restriction = "kind=bat "; }
elsif  ($sk eq "Birds") { $restriction = "kind=bird "; }
elsif  ($sk eq "Bisons") { $restriction = "kind=bison "; }
elsif  ($sk eq "Burros") { $restriction = "kind=burro "; }
elsif  ($sk eq "Camels") { $restriction = "kind=camel "; }
elsif  ($sk eq "Cats") { $restriction = "kind=cat "; }
elsif  ($sk eq "Cattle") { $restriction = "kind=cattle "; }
elsif  ($sk eq "Chickens") { $restriction = "kind=chicken "; }
elsif  ($sk eq "Chinchillas") { $restriction = "kind=chinchilla "; }
elsif  ($sk eq "Cows") { $restriction = "kind=cow "; }
elsif  ($sk eq "Deer") { $restriction = "kind=deer "; }
elsif  ($sk eq "Degus") { $restriction = "kind=degu "; }
elsif  ($sk eq "Dogs") { $restriction = "kind=dog "; }
elsif  ($sk eq "Donkeys") { $restriction = "kind=donkey "; }
elsif  ($sk eq "Ducks") { $restriction = "kind=duck "; }
elsif  ($sk eq "Duprasis") { $restriction = "kind=duprasi "; }
elsif  ($sk eq "Ferrets") { $restriction = "kind=ferret "; }
elsif  ($sk eq "Fish") { $restriction = "kind=fish "; }
elsif  ($sk eq "Frogs") { $restriction = "kind=frog "; }
elsif  ($sk eq "Gerbils") { $restriction = "kind=gerbil "; }
elsif  ($sk eq "Goats") { $restriction = "kind=goat "; }
elsif  ($sk eq "Guinea Pigs") { $restriction = "kind=guinea pig "; }
elsif  ($sk eq "Hamsters") { $restriction = "kind=hamster "; }
elsif  ($sk eq "Hedgehogs") { $restriction = "kind=hedgehog "; }
elsif  ($sk eq "Horses") { $restriction = "kind=horse "; }
elsif  ($sk eq "Iguanas") { $restriction = "kind=iguana "; }
elsif  ($sk eq "Lizards") { $restriction = "kind=lizard "; }
elsif  ($sk eq "Llamas") { $restriction = "kind=llama "; }
elsif  ($sk eq "Monkeys") { $restriction = "kind=monkey "; }
elsif  ($sk eq "Mice") { $restriction = "kind=mice "; }
elsif  ($sk eq "Mules") { $restriction = "kind=mule "; }
elsif  ($sk eq "Opossum") { $restriction = "kind=opossum "; }
elsif  ($sk eq "Parrots") { $restriction = "kind=parrot "; }
elsif  ($sk eq "Pigs") { $restriction = "kind=pig "; }
elsif  ($sk eq "Porcupines")    { $restriction = "kind=porcupine "; }
elsif  ($sk eq "Prairie Dogs")  { $restriction = "kind=prairiedog "; }
elsif  ($sk eq "Rabbits")       { $restriction = "kind=rabbit "; }
elsif  ($sk eq "Raccoons")      { $restriction = "kind=raccoon "; }
elsif  ($sk eq "Rats")          { $restriction = "kind=rat "; }
elsif  ($sk eq "Sheep")         { $restriction = "kind=sheep "; }
elsif  ($sk eq "Skunks")        { $restriction = "kind=skunk "; }
elsif  ($sk eq "Snakes")        { $restriction = "kind=snake "; }
elsif  ($sk eq "Spiders")       { $restriction = "kind=spider "; }
elsif  ($sk eq "Squirrels")     { $restriction = "kind=squirrel "; }
elsif  ($sk eq "Sugar Gliders") { $restriction = "kind=sugar glider "; }
elsif  ($sk eq "Toads")         { $restriction = "kind=toad "; }
elsif  ($sk eq "Tortoises")     { $restriction = "kind=tortoise "; }
elsif  ($sk eq "Turtles")       { $restriction = "kind=turtle "; }
elsif  ($sk eq "Wallabys")      { $restriction = "kind=wallaby "; }
elsif  ($sk eq "Whales")        { $restriction = "kind=whale "; }
else
	{ $restriction = ""; }


$restricted_query = $restriction . $query;

#
#
# logging

open(SEARCHLOG_FH,">> searchlog");
chdir $logdir;
# print SEARCHLOG_FH (localtime(time))," ",$ENV{'REMOTE_ADDR'}," ",$restricted_query,"\n";

($mysec,$mymin,$myhour,$mymday,$mymon,$myyear,$mywday,$myyday,$myisdst) = localtime(time);
$mymon += 1;
print SEARCHLOG_FH $myhour, ":", $mymin,":",$mysec,"   ",$mymon,"/",$mymday,"   ",$ENV{'REMOTE_ADDR'},"   ",$restricted_query,"\n";

close(SEARCHLOG_FH);
#
#
#

open(SEARCH_P, "./search -w $restricted_query -m $results -f $index|");


#Check for errors

$foundIt = 0;

while (<SEARCH_P>) {
   chop;

	if ($foundIt == 0 && m/Number of hits/) 
	  {
		($trash, $hitcount) = split /: /, $_, 2;
     	$foundIt = 1;
      }

   if ($_ eq "err: no results") 
   {&search_error("There are no items that matched your search request.");}

   if ($_ eq "err: could not open index file") 
   {&search_error("Something went wrong.");}
   
   if ($_ eq "err: no search words specified") 
   {&search_error("Please enter at least one word in the <B>\"Search for\"</B> box.");}

   if ($_ eq "err: a word is too common") 
   {&search_error("One of your search terms is too common, please try again.");}
  
   next if /^\D/;
   $count++;
   push(@results, $_);

}

#
#
#
if ($query eq "") { $query = "all ". $sk; }

#Print the results page

&html_header("Search Results");


print <<Search_Results;
<P ALIGN=CENTER>
Your search for <B>$query</B> returned $count items out of $hitcount items.
</P>
<HR ALIGN=CENTER WIDTH="70%" SIZE="2">
<CENTER>

Search_Results
 
$InLeftColumn = 1; 

if ($show_previews)
	{
		select(STDOUT);

 		print "<TABLE BORDER=0 CELLSPACING=3 CELLPADDING=3>";
#		print "<BLOCKQUOTE>";
		
		foreach (@results) {
 
		   ($stringone, $title, $filesize) = split(/\"/, $_);
		   ($rank, $url) = split(/ /, $stringone);
		   
		   ($PetName, $PetKind, $PetDate) = split(/ - /, $title);
			if ( $url =~ m#/archive/#)
			  {
				$preview_image_url = "\"" . $url . "\"";
				$preview_image_url =~ s/.html/s.jpg/;
				
				($Ua,$Ub,$Uc,$Ud,$Ue,$Uf,$Ug) = split("/",$url);
				$Uf_Images = $Uf . "Images";
				$preview_image_url =~ s/$Uf/$Uf_Images/;
				
				if ($InLeftColumn == 1)
				  {
					print "<TR><TD WIDTH=20>&nbsp;</TD>";
					# Change size below too			
					print "<TD><A HREF=\"$url\"><IMG SRC=$preview_image_url ALT=\"\" BORDER=0></A></TD>";
					print "<TD><A HREF=\"$url\">$PetName</A><BR>$PetKind<BR>$PetDate<BR></TD>\n";
					$InLeftColumn = 0;
				  }
				else
				  {
					print "<TD WIDTH=20>&nbsp;</TD>";
					print "<TD><A HREF=\"$url\"><IMG SRC=$preview_image_url ALT=\"\" BORDER=0></A></TD>";
					print "<TD><A HREF=\"$url\">$PetName</A><BR>$PetKind<BR>$PetDate<BR></TD></TR>\n";
					$InLeftColumn = 1;
				  }
				
			  }
			else
			  {
#				Killed printing of non PET archive pages for now.			  
# 				print "<TR><TD WIDTH=20>&nbsp;</TD>";
# 				print "<TD HEIGHT=60 WIDTH=60>&nbsp;</TD>";
# 				print "<TD><A HREF=\"$url\">$title</A><BR></TD></TR>\n";
			  }		   
		  }
		
		
		if ($InLeftColumn == 0)
		  {
					print "<TD WIDTH=20>&nbsp;</TD>";
					print "<TD></TD>";
					print "<TD></TD></TR>\n";
		  }
		  
#		print "</BLOCKQUOTE>";
	}
else
	{
	
	
		print "</CENTER>";
		print "<OL>";
		
		foreach (@results) {
		   select(STDOUT); 
		   ($stringone, $title, $filesize) = split(/\"/, $_);
		   ($rank, $url) = split(/ /, $stringone);
		   print "<LI><A HREF=\"$url\">$title</A><BR>\n";
		}
		print "</OL>\n";
		print "<CENTER>";		
	}


&html_trailer;

}

# Subroutine for printing a generic HTML header.

sub html_header {

# $document_title = $_[0];

print <<HTML_Header;
Content-type: text/html

<HTML>
<HEAD>
<TITLE>Search for: $query</TITLE>
<SCRIPT LANGUAGE="JavaScript" SRC="http://PetoftheDay.com/js/b.js"></SCRIPT>
<STYLE TYPE="text/css">
<!--
H1 {font-family: Georgia; font-size: 12pt; line-height: 16pt;}
LI {text-indent: 0px;}
.abox { font-family: Georgia; font-size: 9pt; padding: 3pt; background-color: #f7e3fb; border: solid #dd63f7; border-style:solid; border-width: 1px; width: 100px}
.bar {border-style:solid; border-color: black; border-width: 1px; border-right-width: 0px; border-left-width: 0px;}
.ctbox { background-color: #d4d8d9; border: solid #000000; border-style:solid; border-width: 1px; }
.h {font-family: Georgia; font-size: 12pt; line-height: 14pt;}
.likeb {}
.pollbox { background-color: #FFFFCC; border: solid #fbfb2d; border-style:solid; border-width: 1px; width: 110px; -webkit-border-radius: 9px; -moz-border-radius: 9px; border-radius: 9px;}
.polln { margin: 3px; }
.pollR {color: red; margin-right: 6px;}
.tin { font-family: verdana; font-size: 8pt;}
.socText {font-family: verdana; font-size: 10pt; margin-bottom: 2pt; margin-top: 4px; line-height: 14pt;}
.soc {line-height: 5pt; padding: 4px;
background-color: #ede4ff; border: solid #9c54ff; border-style:solid; border-width: 1px; width: 100px; -webkit-border-radius: 9px; -moz-border-radius: 9px; border-radius: 9px;}
-->
</STYLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000CC" VLINK="#CC0000" ALINK="#00CC00">
<CENTER>
<A HREF="http://PetoftheDay.com/search/">
<A HREF="http://PetoftheDay.com/"><IMG SRC="http://PetoftheDay.com/image/Pet.jpg" ALT="Pet" ALIGN="TOP" WIDTH="193" HEIGHT="76" HSPACE="0" VSPACE="0" BORDER="0"></A><A HREF="http://PetoftheDay.com/submit/"><IMG SRC="http://PetoftheDay.com/image/oftheday.jpg" ALIGN="TOP" ALT="of the Day" WIDTH="309" HEIGHT="95" HSPACE="0" VSPACE="0" BORDER="0"></A><BR>
<BR>

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="720">
<TR>
<TD VALIGN="TOP">
<A HREF="http://PetoftheDay.com/" onMouseOver="ro('i14', 'i14on')" onMouseOut="ro('i14', 'i14off')"><IMG SRC="http://PetoftheDay.com/image/w/TodaysPet.gif" ALT="Today's Pet" Name="i14" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/submit/" onMouseOver="ro('i1', 'i1on')" onMouseOut="ro('i1', 'i1off')"><IMG SRC="http://PetoftheDay.com/image/w/Nominate.gif" Name="i1" ALT="Nominate Your Pet" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/archive/" onMouseOver="ro('i2', 'i2on')" onMouseOut="ro('i2', 'i2off')"><IMG SRC="http://PetoftheDay.com/image/w/PreviousPet.gif" Name="i2" ALT="Previous Pets" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/talk/" onMouseOver="ro('i3', 'i3on')" onMouseOut="ro('i3', 'i3off')"><IMG SRC="http://PetoftheDay.com/image/w/PetTalk.gif" Name="i3" ALT="Pet Talk" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/poll/" onMouseOver="ro('i4', 'i4on')" onMouseOut="ro('i4', 'i4off')"><IMG SRC="http://PetoftheDay.com/image/w/PetPoll.gif" Name="i4" ALT="Poll" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/search/"><IMG SRC="http://PetoftheDay.com/image/c/Search.gif" ALT="Search" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/why/" onMouseOver="ro('i9', 'i9on')" onMouseOut="ro('i9', 'i9off')"><IMG SRC="http://PetoftheDay.com/image/w/Why.gif" Name="i9" ALT="Why?" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<A HREF="http://PetoftheDay.com/about/" onMouseOver="ro('i10', 'i10on')" onMouseOut="ro('i10', 'i10off')"><IMG SRC="http://PetoftheDay.com/image/w/About.gif" Name="i10" ALT="About Us" WIDTH="120" HEIGHT="18" BORDER="0" VSPACE="1"></A><BR>
<!-- spot -->
<BR><BR>


<CENTER>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=2 WIDTH="120">
<TR><TD ALIGN="CENTER"><A HREF="http://DogoftheDay.com/"><B>Dog of the Day</B></A></TD></TR>
<TR><TD ALIGN="CENTER"><A HREF="http://DogoftheDay.com/"><IMG SRC="http://DogoftheDay.com/preview/large.jpg" ALT="Dog of the Day" HSPACE="0" BORDER="0"></A></TD></TR>
<TR><TD ALIGN="CENTER">&nbsp;<BR><A HREF="http://CatoftheDay.com/"><B>Cat of the Day</B></A></TD></TR>
<TR><TD ALIGN="CENTER"><A HREF="http://CatoftheDay.com/"><IMG SRC="http://CatoftheDay.com/preview/large.jpg" ALT="Cat of the Day" HSPACE="0" BORDER="0"></A></TD></TR>
<TR><TD ALIGN="CENTER">&nbsp;<BR><A HREF="http://PetoftheDay.com/"><B>Pet of the Day</B></A></TD></TR>
<TR><TD ALIGN="CENTER"><A HREF="http://PetoftheDay.com/"><IMG SRC="http://PetoftheDay.com/preview/large.jpg" ALT="Pet of the Day" HSPACE="0" VSPACE="0" BORDER="0"></A></TD></TR>
</TABLE>
</CENTER>

</TD>

<TD WIDTH="100%" VALIGN="TOP">


HTML_Header

# if ($show_previews)
# 	{
# 		print "<TABLE BORDER=0 CELLSPACING=3 CELLPADDING=3>";
# 	}
 
 }

# Subroutine for printing the HTML trailer.

sub html_trailer {


if ($show_previews)
	{
		print "</TABLE>";
	}

print <<HTML_Trailer;

<BR>
<A HREF="http://PetoftheDay.com/search/">Return to the Search page</A>
</CENTER>
<BR></TD></TR>
</TABLE>
</CENTER>
</BODY>
</HTML>

HTML_Trailer

exit;

}

# Subroutine for printing error messages.

sub search_error {

&html_header("Search Error");
$error_message = $_[0];
print "<P ALIGN=CENTER>\n$error_message</P>\n";
&html_trailer;

}