#!/usr/local/bin/perl
do "cgi-lib.pl" || die "Cannot do cgi-lib.pl\n";
&ReadParse;
use Oraperl;
$ENV{"ORACLE_HOME"} = "/opt/oracle/product/8.1.5";
$sUsername = "cs290w\@csdb";
$sPassword = "cs290w";
print "Content-type: text/html \n\n";
print "Big Ten Search Engine Results\n";
print "\n";
print "Big Ten Search Engine Results
\n";
$sStateCode = $in{"st"};
$iEnr = $in{"enr"};
$iFound = $in{"found"};
$sStateCode = "%$sStateCode%";
if ($iEnr == 0) {$iEnr = 0;}
if ($iFound == 0) {$iFound = 5000;}
$hConnection = &ora_login( "", $sUsername, $sPassword );
$hQuery =
&ora_open($hConnection,
"SELECT * FROM cs290adm.big_ten WHERE
state LIKE '$sStateCode'
AND enrolled > $iEnr
AND founded < $iFound");
&fDisplay;
&ora_close($hQuery);
&ora_logoff($hConnection);
print "\n";
print "\n";
sub fDisplay
{
@amValues = &ora_fetch($hQuery);
if (@amValues == 0)
{
print "Your search did not produce any results.
The information you are seeking may not exist,
your query string may have been too specific,
or you may simply be a moron. \n";
}
else
{
do
{
$sName=$amValues[0];
$sCity=$amValues[1];
$sState=$amValues[2];
$iEnrolled=$amValues[3];
$iFounded=$amValues[4];
$sNickname=$amValues[5];
$sColors=$amValues[6];
$iJoined=$amValues[7];
print "$sName $sCity $sState $iEnrolled $iFounded
\n";
print "$sNickname $sColors $iJoined
\n\n";
@amValues = &ora_fetch($hQuery);
}
while (@amValues != 0);
}
}