CGI Error The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are: Can't locate auto/Win32/ODBC/mysql.al in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) ##

##

#!c:/perl/perl/bin/perl

require "cgi-lib.pl";
&ReadParse;

$login = $in{'login_id'};
$pw = $in{'password'};

use Win32::ODBC;

if (!($Db=new Win32::ODBC("dsn=testdns;UID=root;PWD=mysql")))
{
$a = Win32::ODBC::Error();
print "Content-type: text/html\n\n";
print "";
print "";
print " $a ";
print "";
exit;
}

if(!$Db->mysql("select * from employee_info where login_id = \'$login\' and password = \'$pw\'" ))
{
if ($Db->FetchRow())
{
undef%Data;
%Data = $Db->DataHash();
print "Content-type: text/html\n";
print "Set-cookie: fname = $Data{'FIRST_NAME'}\n";
print "Set-cookie: lname = $Data{'LAST_NAME'}\n";
print "Set-cookie: loginid= $Data{'LOGIN_ID'}\n";
print "Set-cookie: passwd = $Data{'PASSWORD'}\n\n";

&LoginPage;
close($Db);
exit;
}
}

print "content-type: text/html\n\n";
print "";
print "";
print "";
print "";
print "";


close($Db);
exit;

sub LoginPage
{
print <<"DISPLAY";










DISPLAY
}