#!perl -w
use strict;
use CGI q~:standard~;
use DBI;
use Digest::MD5 q~md5~;
use CGI::Carp q~fatalsToBrowser~;
my ($DBH, $STH, $Username, $Password, $Error, $Cookie);
$Username = param('Username');
$Password = param('Password');
$Password = md5($Password);
$DBH = DBI -> connect ('dbi:ODBC:SQLServer', '', '') or die "$DBI::errstr";
$STH = $DBH -> prepare (qq~exec FinalFantasyInfo.dbo.CheckLogIn ?, \@Username = '$Username', \@Password = '$Password'~) or die "DBI::errstr";
$STH -> bind_param_inout(1, \$Error, 1);
$STH -> execute or die "$DBI::errstr";
if ($Error == 1) {
	print redirect('http://admin.ffinfo.com/login2.html');
} else {
	$Cookie = new CGI::Cookie (-name => 'FFAdmin0229',
							   -value => ['$Username', '$Password']
							   );
	$Cookie -> bake;
	print redirect('http://admin.ffinfo.com/portal.html');
}