I have done what I could. I deleted and corrected as guided.
It is still showing
error. I will be thankful for your help which I
am unable to find. Thanks
I hope I have been able to present my difficulties correctly.
Thanks
Amitava
#!/usr/local/bin/perl -w
push (@INC,"/usr/localbusiness/http/accn.com/cgi-bin");
require("cgi-lib.pl");
print &PrintHeader;
&ReadParse(*registration-data);
print<<"EOP";
<html>
<head>
<title>Aztec Registration Form</title>
</head>
<body>
if (length($registration-data{"FirstName"})>0 &&
length($registration-data{"Last Name"})>0){
print<<"EOP";
<h3>
Thank you $registration-data{"FirstName"} $registration-data{"LastName"}
for registering your name with Aztec. You will now verify
the
information entered in the form. Please Correct if necessary</h3>
EOP
$Registration_Type="Confirm Registration Data";
print"<ul>";
====================================================================
# Type of arg 1 to keys must be hash (not subtraction), near "data)"
File 'LC 2:MacPerl ƒ: formregistration.pl'; Line 22
====================================================================
foreach $var(keys(%registration-data)){
if (length($registration-data{"$var"})==0){
print"<li>Your<em>$var</em>will
be used to help confirm your order
Please fill in the
<em>$var</em>field";}
}
print "</ul>";
}
=====================================================================
# Unmatched right bracket, at end of line
File 'LC 2:MacPerl ƒ: formregistration.pl'; Line 28
# syntax error, near "}"
=====================================================================
else
{$Registration_Type="Submit Registration"}
if (defined($registration-data{"Phone
Number"}))
{$PhoneNumber=$registration-data{"Phone Number"};}
else
{$PhoneNumber="(999) 999-999";}
print <<'TEST';
<hr noshade>
<center>
<Form Method=POST Action="/cgibook/regs.cgi">
<input type=hidden name=SavedName value="registration-data{'First
Name'}$registration-data {'Last Name'}">
<table border=0 width=60%>
caption align = top><h3>Aztec Registration Form</h3></caption>
<th ALIGN LEFT>First Name
<th ALIGN LEFT colspan=2>Last Name<tr>
<td>
<input type=text size=32 maxlength=20
name="First Name" value=Registration data{"First Name"}>
<td colspan=2>
<input type=text size=32 maxlength=40
name="Last Name" value=$registration-data{"Last Name"}
><tr>
<th ALIGN=LEFT colspan=3>
Street Address <td><td><tr>
<td colspan=3>
<input type=text size=61 maxsize=61
name"Street" value:$registration-data {'Street'}"><tr>
<th ALIGN LEFT>City
<th ALIGN LEFT>State
<th ALIGH LEFT>Zip <tr>
<td><input type =text sixe=20 maxlength=30
name=="City" value="$registration-data{'City'}">
<td><input type =text sixe=20 maxlength=20
name=="State" value="$registration-data{'State'}">
<td><input type =text size=5 maxlength=10
name=="Zip" value="$registration-data{'Zip'}"><tr>
<th ALIGN=LEFT colspan=1>Phone Number
<th ALIGN=LEFT colspan=2>E-Mail Address<tr>
<td colspan=1><input type=test size=15 maxlength=15
name="Phone Number" value="$PhoneNumber">
<td colspan=2><input type=test size=32 maxlength=32
name="E-Mail Address" value={"$EmailAddress"} ><tr>
<td width=50%><input type="submit" name="simple"
value=$Registration-Type>
<td width=50%><input type="reset"><tr>
</table>
</FORM>
</center>
<hr noshade>
</body>
</html>
TEST