-1

使用 Perl CGI，我正在尝试使用 db 连接创建登录页面。我正在使用 IDE 日食。在运行它时，我收到错误：

Server Error
while trying to obtain /sssss/login.cgi
Missing header from cgi output

这是我的代码：

#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Pretty qw(:all);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use DBD::mysql;
use DBI qw(:sql_types);
use DBD::ODBC;
use CGI qw/:standard/;
use CGI;


my $cgi = CGI->new();

my $user='root';
my $pass='123';
my $dsn = 'DBI:mysql:delve:server';
my $dbh = &sql_connect;
$dbh-> {'LongTruncOk'} = 1;
$dbh-> {'LongReadLen'} = 90000;
print "Content-type: text/html\n\n";
print "<html><h1>OTT Login</h1></html>\n";
print '<body bgcolor="gray">';


#start a form----------------

print '<form method=POST>';


print '<p>';
print 'Employee Name: <p><INPUT type="text" name="User" size=25 maxlength=25></p>';
print '</p>';

# Create a text box for Password:---------------

print '<p>';
print 'Password:<p><INPUT TYPE=PASSWORD NAME="mypassword" id = "Password" size = "15" maxlength = "15" tabindex = "1"/></p>';
print '</p>';

#Create submit & reset button:-------------------

#print '<p><input type=" button" name="submitit"value="submit"onclick="formvalidation(myform)"/></p>';
print '<form name="input" method="post">';
print '<p><input type="submit" value="Submit" /><INPUT TYPE="reset" name = "Reset" value = "Reset"></p>';

#Create Change Password & Reset Password link:------------
print '<p><a href="changepwd.cgi">Change Password</a></p>';
print '<p><a href="userlogin.cgi">Reset Password</a></p>';
print '</form>';

#logic for submit button functionality :-----------------


if (param('User') and param('mypassword'))
{
my $usr=ucfirst(lc(param('User')));
my $pwd=ucfirst(lc(param('mypassword')));

my $query="select username from login where username='$usr'";
my $data=$dbh->prepare($query)  or die $dbh->errstr;
$data->execute()                or die $data->errstr;
my ($x,$y);
my $query1="select password from login where password='$pwd'";
my $data1=$dbh->prepare($query1)    or die $dbh->errstr;
$data1->execute()               or die $data->errstr;


if ($x=$data->fetchrow())
                {
                 if ($y=$data1->fetchrow())
                 {

                 print "Correct Password";
                 print $cgi->redirect("samp.html");
                 }
                    else
                   {
                   print "Incorrect Password";
                      }
        }
        else
        {

            print "Invalid username";
        }
$dbh->disconnect || die "$DBI::errstr\n";



}
sub sql_connect
{
    Reconnect:
    my $dbh = DBI->connect($dsn, $user, $pass,{AutoCommit => 1}) or warn "$DBI::errstr\a\a\n";

    if(defined $dbh)
    {
        print "Data base Connected successfully\n";
    }
    else
    {
        print "Please Check Ur Database\n"; ### To handle Database Failure
        sleep(10);
        goto Reconnect;
    }
    return $dbh;
}


1;
4

2 回答 2

-1

您的子例程在发送正确的 HTTP 标头之前sql_connect生成输出。 要么将调试消息打印到日志文件，要么在生成其他内容之前先打印 HTTP 标头。print "...")

于 2012-04-18T13:01:04.103 回答
-2

当您发送 HTTP 响应（例如，向浏览器打印内容）时，您的应用程序必须发送响应标头，而不仅仅是正文。当您发送 HTML 时，您打印到 STDOUT 的第一件事应该是一个至少包含以下内容的标题：

 Content-type: text/html

标题后跟一个空行。

所以脚本中的第一个打印应该是：

 print 'Content-type: text/html',"\n\n";

（如果您要生成更多标题，则在每个标题之后仅打印一个 \n 直到最后一个。）

当然，如果你改用CGIorCGI::Simple模块，你的生活会轻松很多。CGI 有很多边缘情况和奇怪的行为，这些模块已经在这些模块中处理过了。

于 2012-04-18T13:21:55.710 回答