hey i fetch strange problem on my perl prpgramming,my programm is not
give the proper output which actually i want.when i put the correct username
and password but again my output is look like that "username or password
incorrect" Try again.
my code just as follows:
#!/usr/bin/perl
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use DBI;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $query = new CGI;
print $query->header();
warningsToBrowser(1);
print $query->start_html(-title=>'LOGIN PAGE');
$db="administrative";
$host="192.168.0.142";
$user="root";
$password=undef;
if(($query->request_method() eq "POST") && ($query->param("user") ne '') && ($query->param("password") ne ''))
{
$chkuser=$query->param("user");
$chkpassword=$query->param("password");
$md5password = md5($chkpassword);
$dbh = DBI->connect("DBI:mysql:database=$db:host=$host", $user, $password) or die "Can't connect to database:$DBI::errstr\n";
$qry = $dbh->prepare("SELECT emp_name, password FROM new_user where emp_name='$chkuser'");
$qry->execute;
@row=$qry->fetchrow_array;
$name=$row[0];
$pass=$row[1];
#print "name = $name , password = $pass, md5password = $md5password";
if (($chkuser eq $name) && ($md5password eq $pass))
{
print "<p> Thank You!<p>";
$dbh->disconnect;
print $query->end_html();
}
else
{
print "<HEAD> Username or Password Incorrect!</HEAD>";
print "<a href='/cgi-bin/test/project.pl'>Please Try Again</a>";
$dbh->disconnect;
print $query->end_html();
}
}
else
{
print "Content-type: text/html\n\n";
#print << EOF;
print "<HTML>";
print "<BODY>";
print "<FORM METHOD='POST' ACTION='/cgi-bin/test/project.pl'>";
print "<p>Username:</p>";
print "<input type='text' name='user'><br>";
print "<p>Password:</p>";
print "<input type='password' name='password'><br>";
print "<input type='submit' value='submit'><br>";
print "</FORM>";
print "</BODY>";
print "</HTML>";
#EOF
print $query->end_html();
}
if anybody there plz help me.
thanx