[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] syntax error



Hello everybody:

I am having a lot of problem trying to fix the program.
When I run the following program, macperl window shows 
the following error. It is in line #7.  
Can someone please help.

Amitava

========================================================
# Can't find string terminator "EOP" anywhere before EOF.
File 'LC 2:MacPerl ƒ: formregistration.pl'; Line 7
========================================================


 #!/usr/bin/perl -w
 push (@INC,"/usr/localbusiness/http/accn.com/cgi-bin");
 require("cgi-lib.pl");
 print &PrintHeader;

 &ReadParse(*regitration-data);
 print<<"EOP";
 <html>
 <head><title>Aztec Registration Form</title>
 </head>
 <body>
 EOP
 if (length($registration-data{"FirstName"})> 0 &&
length($registration-data{"Last Name"})> 0)
{
 print<<"EOP";
 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>";
 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>";
 }
 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


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org