#!/usr/local/bin/perl
# 
#
# Code by Steve Foster, University of Nevada
#

$tmp = "/tmp/gsd$$";
$DataDir = "/Net/acrobat/foster/treedata-s100";
open (SPEC, ">$tmp" ) || die "cant open SPEC\n";

$query = <STDIN>;

chop($query);
chop($query);
$test = $query;
$test =~ s/^\s*//;

return 1 if (-t STDIN);
$sockaddr = 'S n a4 x8';
$hersockaddr = getpeername(STDIN);
($ramily,$rport,$raddr) = unpack($sockaddr,$hersockaddr); 
($a, $b, $c, $d) = unpack('C4', $raddr);
open (LOG, ">>/Net/acrobat/foster/Gopher-Test/dl-search1.log" ) || die "cant open SPEC\n";
print LOG $a,".",$b,".",$c,".",$d    ;
print LOG "  ", $test, "\n";
close (LOG);

print SPEC   $test,"\n";
close (SPEC);
open (TMP, "/usr/lib/indexing/ixFind ".$DataDir." < ".$tmp."  |") || die " cant make gopher-temp\n";
while ( <TMP>)
{
   if (/\cA(\S+)\cB/) {
	$cmd = "grep -i  "."'^[^\t]*".$test."[^\t]*\t' $DataDir/".$1;
	open (TMP2, $cmd."  |") || die " cant make gopher-temp2\n";
	while ( <TMP2> )
	{
   		chop;
   		print $_, "\r\n";
	}
    }
}

unlink $tmp;
#close(LOG);
exit;


