#! /usr/bin/perl
require "cgi-lib.pl";
###&ReadParse(*cgi);
&parse_form;
$results = &PrintVariables(%cgi);
sub parse_form {

   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # Split the name-value pairs
   @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;

      $cgi{$name} = $value;
   }
}
# load in the form contents
printf("%s", &PrintHeader);
printf("<BODY bgcolor=\"#000000\" text=\"#00FFFF\" vlink=#00FFFF link=\"#00FFFF\"> \n");
$area = $cgi{'place'};
open(F,$cgi{'seeking'});
print "<CENTER>\n";
print "<H1>Your search result is:</H1>\n";
print "<TABLE width=500>\n";
print "<TR><TD>Name</TD><TD>AGE</TD><TD>Place</TD></TR>\n";
while(<F>)
{	
	@record = split(/:/);
	$checkage = @record[2];
	if( ($checkage >= $cgi{'agelow'}) && ($checkage <= $cgi{'agehigh'}) ) {
	if( @record[$#record] =~ /$area/ ){
		&output;
	}
	elsif( $area =~ /ALL/ )
		&output;
	}
}
close(F);
print "</TABLE></CENTER>\n";
sub output{
		@result = split(/:/,$_);
		print "<TR><TD>\n";
		print join('',"<A HREF=/tlcplus/",@result[0],">",@result[1],"</A>");
		print "</TD>\n";
		print "<TD>@result[2]\n";
		print "</TD>\n";
		print "<TD>@result[3]\n";
		print "\n</TD></TR>\n";
		#print "<A HREF=/tlcplus/@result[0]> @rusult[1]</A>\n";
}
