#!/usr/local/bin/perl -w
# search.cgi

# script which is passed a parameter to search in a flatfile and come up with
# right links all prettied up. typically used for subjectarea/author/keyword
# search (meta tags are parsed to create the flatfile).

chdir "/usr/local/httpd/docs/cespubs/pest";
$flatfile = "index.data";
$delim = "\|";

my @months = qw(January February March April May June July August September
		October November December);

print "Content-type: text/html\n\n";

if(&CGIParse) {
  $CGI = 1;
  while (($cgi_name,$cgi_value) = each %cgi_vars) {
    ${$cgi_name}=$cgi_value if ($cgi_value);
  }
}

open(FLAT,$flatfile) || die "Can't open $flatfile: $!\n";

   
if(($method eq "get") && (($subjectarea) || ($keyword) || ($author))) {
    &print_header;
    while (<FLAT>) {
        chop;
       my ($filename,$oauthor,$otitle,$okeywords,$osubjectarea,$odate) = split(/\|/,$_,6);
#       print "$filename - $osubjectarea<br>\n";
       $match = 1;
       if($author) {
          $match = 0 unless ($author =~ /$oauthor/i);
       }
       if($title) {
          $match = 0 unless ($title =~ /$otitle/i);
       }
       if($subjectarea) {
          $obsubjectarea =~ s/\s*$//;
#          $sub = $subjectarea;
#	  $osub = $osubjectarea;
#          $sub =~ tr/A-Z/a-z/;
#          $osub =~ tr/A-Z/a-z/;
          $match = 0 unless ($osubjectarea =~ /$subjectarea/i);
#          print "$sub--$osub--$match<br>\n";
       }
       if ($match) {
#          print "$filename - $otitle - $odate<br>\n";
#          $hit_title{$filename} = $otitle;
          push @data,"$otitle|$filename|$odate";
          $count++;
       }
    }
    if($subjectarea) {
#       $subjectarea =~ tr/a-z/A-Z/;
       print<<"TAG_1";
	<H2><FONT COLOR="#FF3300">$subjectarea Related Articles</FONT></H2>
<UL TYPE=DISC>
TAG_1
       foreach $entry (sort nice_title @data) {
          ($title,$file,$date) = split(/\|/,$entry,3);
          if ($date !~ /[A-Za-z]/) {	  # date is numeric YYYYMMDD
#             print qq($title-$date<BR>\n);
             $date =~ /^(\d{4})(\d{2})(\d{2})/;
             $date = qq($months[$2-1] $3 $1);
          }
          $file .= qq(.html) if $file !~ /\.html$/;
	  print "<LI><A HREF=\"articles/$file\">$title</A>, <font size=\"-1\">$date</font>\n";
       }
       print "Nothing Found\n" if !$count;
       print "</UL>\n";
    }
    &print_footer;
}

###############################################################
#  CGIParse                                                   #
#                                                             #
#    Reads in CGI variables to %cgi, and records method.      #
###############################################################

sub CGIParse {
  *cgi = @_ if @_;
  local ($i, $key, $val);

  # Read in text
  if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $cgi = $ENV{'QUERY_STRING'};
    $method="get" if $cgi;
  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN,$cgi,$ENV{'CONTENT_LENGTH'});
    $method="post";
  }

  @cgi = split(/&/,$cgi);

  foreach $i (0 .. $#cgi) {
    # Convert plus's to spaces
    $cgi[$i] =~ s/\+/ /g;

    # Split into key and value.
    ($key, $val) = split(/=/,$cgi[$i],2); # splits on the first =.

    # Convert %XX from hex numbers to alphanumeric
    $key =~ s/%(..)/pack("c",hex($1))/ge;
    $val =~ s/%(..)/pack("c",hex($1))/ge;

    # Associate key and value
    $cgi_vars{$key} .= "|" if (defined($cgi_vars{$key}));
    $cgi_vars{$key} .= $val;

  }
  return length($cgi);
}

######################################################################
#  print_header:: prints the header to our pages. all nice and neat. #
#                 no rocket science.                                 #
######################################################################
sub print_header {
   if($subjectarea eq "Insect") {
       $insect = "linsect2.jpg";
   }
   else {
       $insect = "insect2.jpg";
   }
   if($subjectarea eq "Plant Diseases") {
       $plant = "lplant2.jpg";
   }
   else {
       $plant = "plant2.jpg";
   }
   if($subjectarea eq "Crop Development") {
       $crop = "lcrop2.jpg";
   }
   else {
       $crop = "crop2.jpg";
   }
   if($subjectarea eq "Weeds") {
       $weeds = "lweeds2.jpg";
   }
   else {
       $weeds = "weeds2.jpg";
   }

   print<<"TAG_1";
<HTML>
<HEAD><TITLE>Pest Management & Crop Development Bulletin</TITLE></HEAD>

<BODY BACKGROUND="images/background2.gif" link="#006600" vlink="#CC9900">

<TABLE WIDTH=540 CELLPADDING=0 CELLSPACING=0 BORDER=0>
<TR>
<TD WIDTH=131 ALIGN=CENTER VALIGN=TOP>
<IMG SRC="images/1pixelclear.gif" ALIGN=TOP WIDTH="1" HEIGHT="260" BORDER="0"><BR>
<A HREF="welcome.html"><IMG SRC="images/home.gif" ALIGN=TOP WIDTH="101" HEIGHT="23" BORDER="0"></A><BR>
<IMG SRC="images/rule.gif" ALIGN=TOP WIDTH="15" HEIGHT="20" BORDER="0"><BR>
<A HREF="articles"><IMG SRC="images/current.gif" ALIGN=TOP WIDTH="101" HEIGHT="23" BORDER="0"></A><BR>
<IMG SRC="images/rule.gif" ALIGN=TOP WIDTH="15" HEIGHT="10" BORDER="0"><BR>
<A HREF="articles/pastissues.html"><IMG SRC="images/pastissues.gif" ALIGN=TOP WIDTH="101" HEIGHT="23" BORDER="0"></A><BR>
<IMG SRC="images/rule.gif" ALIGN=TOP WIDTH="15" HEIGHT="10" BORDER="0"><BR>
<A HREF="key.html"><IMG SRC="images/search.gif" ALIGN=TOP WIDTH="101" HEIGHT="23" BORDER="0"></A>
<A HREF="../updates/update.html"><IMG SRC="images/UPDATE.gif" ALIGN=TOP WIDTH="101" HEIGHT="34" BORDER="0"></A>
<P>
</P>
<IMG SRC="images/logo-portrait-112.gif" ALIGN=TOP WIDTH="112" HEIGHT="117" BORDER="0">
<P>
</TD>

<TD WIDTH=409 ALIGN=LEFT VALIGN=TOP>
	<TABLE WIDTH=409 CELLPADDING=0 CELLSPACING=0 BORDER=0>
	<TR>
	<TD WIDTH=100 ALIGN=LEFT VALIGN=TOP>
TAG_1
        
	print "<A HREF=\"search.cgi?subjectarea=Crop+Development\"><IMG SRC=\"images/$crop\" ALIGN=TOP WIDTH=\"100\" HEIGHT=\"50\" BORDER=\"0\">";
        print<<"TAG_2";
	</TD>
	<TD WIDTH=3 ALIGN=LEFT VALIGN=TOP>
	</TD>
	<TD WIDTH=100 ALIGN=LEFT VALIGN=TOP>
TAG_2
	print "<A HREF=\"search.cgi?subjectarea=Insect\"><IMG SRC=\"images/$insect\" ALIGN=TOP WIDTH=\"100\" HEIGHT=\"50\" 	BORDER=\"0\"></A>";
        print<<"TAG_2";
	</TD>
	<TD WIDTH=3 ALIGN=LEFT VALIGN=TOP>
	</TD>
	<TD WIDTH=100 ALIGN=LEFT VALIGN=TOP>
TAG_2
	print "<A HREF=\"search.cgi?subjectarea=Plant+Diseases\"><IMG SRC=\"images/$plant\" ALIGN=TOP WIDTH=\"100\" HEIGHT=\"50\" BORDER=\"0\">";
        print<<"TAG_2";
	</TD>
	<TD WIDTH=3 ALIGN=LEFT VALIGN=TOP>
	</TD>
	<TD WIDTH=100 ALIGN=LEFT VALIGN=TOP>
TAG_2
	print "<A HREF=\"search.cgi?subjectarea=Weeds\"><IMG SRC=\"images/$weeds\" ALIGN=TOP WIDTH=\"100\" HEIGHT=\"50\" BORDER=\"0\">";
   print<<"HEAD";
	</TD>
	</TR>
	</TABLE>
	
	<TABLE WIDTH=409 CELLPADDING=0 CELLSPACING=0 BORDER=0>
	<TR>
	<TD ALIGN=LEFT VALIGN=TOP>
	<IMG SRC="images/1pixelclear.gif" ALIGN=TOP WIDTH="1" HEIGHT="2" BORDER="0"><BR>

HEAD
}


######################################################################
#  print_footer:: prints the footer to our pages. all nice and neat. #
#                 no rocket science.                                 #
######################################################################
sub print_footer {
   print<<"FOOT";
	</TD>
	</TR>
	</TABLE>
</TD>
</TR>
</TABLE>

</BODY>
</HTML>
FOOT
}

sub nice_title {
# sort records to omit A/An/The and also " and ' out.
  my ($tmp1, $tmp2);
  ($tmp1 = $a) =~ s/^(An|A|The) //; ($tmp2 = $b) =~ s/^(An|A|The) //;
  $tmp1 =~ s/^[\'\"]//;   $tmp2 =~ s/^[\'\"]//;
  return $tmp1 cmp $tmp2;
}