Hello Perl monks,
I was wondering, as a beginner, on how to make a Perl script that checks if the account and password match the stored values in the MySQL table so it will proceed? else, it won't proceed ?
#table
l---------l----------l
l_account_l_password_l
l---------l----------l
l__name___l___123____l
l---------l----------l
#form
<form method="get" action="" onsubmit="return formValidation(this)">
Account: <input type="text" name="account"><br>
Password: <input type="password" name="password"><br>
<input type="submit" value="login" name="check">
#perl
$account = param("account");
$password = param("password");
if($check)
{
$querycheck = $dbh->prepare("select * from data");
$querycheck->execute;
if($account != "account" and $password != "password")
{
print "Login failed. Account and password do not match.";
}
return true;
}
