#!/usr/local/bin/perl

require 'parseform.pl';

$query=$ENV{'QUERY_STRING'};
print("Content-type: text/html\n\n");
$query =join(' ', @ARGV) if $ARGV[0];
print("\n");
%form = &parseform($query);

if($query) {
	if($form{"search"}){
		print("Search for \"",$form{"search"},"\" yielded:\n<dl>\n");
		for $file (</var/local/httpd/who-dict/dict.*>){
			open(FILE, $file);
			while(<FILE>){ 
				if(/$form{"search"}/i){
					&present($_);
				}
			}
			close(FILE);
		}
		print("</dl>\n");
	}
	else{
		print("Search for \"",$form{"name"},"\" yielded:\n<dl>\n");
		$flet = substr($form{"name"}, 0 ,1);
		$flet =~ y/A-Z/a-z/;
		open(FILE, "/var/local/httpd/who-dict/dict.$flet");
		while(<FILE>){ 
			($nstr, $rest) = split(/  /, $_);
			if($nstr =~/$form{"name"}/i) {
				&present($_);
		 	}
		}
		close(FILE);
		print("</dl>\n");
	}
}
else{
print <<EndOfForm;
<title>Biographical information</title>
<form method="GET">
<h1>Search Full Text</h1>
Search for: <input name="search"><p>
</form>
<hr>
<form method="GET">
<h1>Search For Last Name (faster)</h1>
Last name: <input name="name"><p>
</form>
EndOfForm
}

sub present {
	local($name) = @_;
	($fname, $desc) = split(/  /, $name);
	$desc =~ s/_(\d+\-\-?\d*)/<em>(\1)<\/em>/;
	(@descs) = split(/; /, $desc);
	print("<dt>$fname\n");
	for $d (@descs){
		print("<dd>$d\n");
	}
}
