#!/usr/local/bin/perl
#searchpartic.pl
#copyright CSNET written by Brian Maguire 


# Define the location of the database
$DATABASE="/export/home/www/mirroreddns/secure/partnerdata.list";

# Define the path to cgiparse
$CGIPATH="/export/home/httpd/cgi-bin/";
eval `$CGIPATH/test/cgiparse -form -prefix $`;

@query = ("$grade_level", "$student_number", "$country", "$language");

Search for <B>@query</B> yields these entries:

$answer = "grep -i "@query" $DATABASE";
		
		#Inform user if search is unsuccessful
if (!$answer)
	 { print "Search was unsuccessful\n" ;}

else { print "$answer\n" ; }


