#! /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'};
$area =~ s/\.//eg;
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><TD>Hobbies</TR>\n";
while(<F>)
{	
	@record = split(/:/);
	$checkage = @record[2];
	if( ($checkage >= $cgi{'agelow'}) && ($checkage <= $cgi{'agehigh'}) ) {
		$pp = @record[$#record-1];
		$pp =~ s/\.//eg;
#		print "$pp<BR>\n";
	if(( $pp =~ /$area/)|| ($area =~ /ALL/) ){
	#if(( @record[$#record] =~ /$area/)|| ($area =~ /ALL/) ){
		@result = split(/:/,$_);
		print "<TR><TD>\n";
		print join('',"<A HREF=/",@result[0],">",@result[1],"</A>");
		print "</TD>\n";
		print "<TD>@result[2]\n";
		print "</TD>\n";
		print "<TD>@result[3]\n";
		print "</TD><TD>@result[$#result]";
		print "\n</TD></TR>\n";
		#print "<A HREF=/@result[0]> @rusult[1]</A>\n";
	}
	}
}
close(F);
print "<H3><A HREF=/getmail.html>Get e-mail address</A></H3>\n";
print "</TABLE></CENTER>\n";
open(F,"tail.file");
while(<F>)
{
	print $_;
}
close(F);

