I have a CGI script with 865 lines that I am trying to debug for syntax
errors. The top few lines are:
#!/usr/local/bin/perl -c
#
# Title: jd_application.cgi
#
use strict;
use warnings;
use CGI;
use LWP::UserAgent;
use lib '/opt/content/web/www-https/secure-docs/perl-api';
use CCMckDirectLib3_2 qw(SendCC2_1Server);
use CCMckLib3_2 qw(InitConfig);
When I execute the script, ./jd_application.cgi, on the command line, I
get the following error message:
Bad name after question_19_date_one' at ./jd_application.cgi line 361.
I did a cut-n-paste with the error message, I don't know it the single
quote is meaningful.
Some lines starting at line 358:
$MESSAGE .= "<HR>\n";
$MESSAGE .= "<P><H3>Test Scores</H3>\n";
if ($query->param('question_19_date_one'))
{
$MESSAGE .= "
<P><B>19.</B> When did you take, or do you plan to take, the Law School
Admission Test? Provide all dates and scores.<P>(The law school
requires
all applicants to take this test. Until we have received official
scores and
LSDAS reports directly from LSDAS, we will not consider an
application.)
<P>Date: <B>" . $query->param('question_19_date_one') . "</B>";
}
else
{
$MESSAGE .= "
<P><B>19.</B> When did you take, or do you plan to take, the Law School
Admission Test? Provide all dates and scores.<P>(The law school
requires
all applicants to take this test. Until we have received official
scores and
LSDAS reports directly from LSDAS, we will not consider an
application.)
<P>Date: ";
}
if ($query->param('question_19_score_one'))
{
$MESSAGE .= "\tScore: <B>" . $query->param('question_19_score_one') .
"</B>\n";
}
else
{
$MESSAGE .= \tScore:"\n";
}
if ($query->param('question_19_date_two'))
{
$MESSAGE .= "<BR>Date: <B>" . $query->param('question_19_date_two') .
"</B>";
}
else
{
$MESSAGE .= "<BR>Date: ";
}
if ($query->param('question_19_score_two'))
{
$MESSAGE .= " Score: <B>" . $query->param('question_19_score_two') .
"</B>\n";
}
else
{
$MESSAGE .= \tScore:"\n";
}
$MESSAGE .= "<HR>\n";
$MESSAGE .= "<P><H3>Education</H3>\n";
What does "Bad name after question_19_date_one' " mean? I went thru the
CGI code and the html code and the form names compare OK. Perldoc does
not have any entry on this topic unless I am looking for the wrong
things.
Larry
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
