FormMail within a CGI Script

[Mike Flannigan]

Within a "start_html" block in a CGI script I do this:
       button(-name=>'button_name',
               -value=>'I have info to contribute',
               -onClick=>"redirectmail()"),


In "redirectmail()" is have:

sub redirectmail {
print header,
   start_html('Mail Info'),
       h1('Mail Info'),
       <FORM 
ACTION="http://somewebhost/forms?login=myusername&to=myaddress&confirm=confirmed.html&error=error.html"; 
METHOD="POST">,
        <INPUT NAME="recipient" TYPE="HIDDEN" VALUE="myaddress">,
        <TABLE>,
        <TR>,
         <TD valign=middle>Your Name:</TD>,         <===THIS LINE GIVES 
ERROR
         <TD><INPUT NAME="name" SIZE="30"></TD>,
        </TR>,
        <TR>,
         <TD valign=middle>Your E-mail:</TD>,
         <TD><INPUT NAME="e-mail" SIZE="30"></TD>,
        </TR>,
       <TR>,
         <TD valign=middle>Cemetery Link:</TD>,
         <TD><INPUT NAME="link" SIZE="60" VALUE="Some Subject"></TD>,
        </TR>,
        <TR>,
         <TD valign=middle>Subject:</TD>,
         <TD><INPUT NAME="subject" SIZE="60"></TD>,
        </TR>,
        <TR>,
         <TD valign=top><BR>Comments:</TD>,
         <TD><TEXTAREA NAME="body" VALUE="" cols=60 
rows=10></TEXTAREA></TD>,
        </TR>,
        <INPUT NAME="followup-page" TYPE="HIDDEN" VALUE="myfollowuppage">,
        <TR>,
         <TD></TD>,
         <TD><INPUT TYPE="submit" name="submit" VALUE="Send"></TD>,
        </TR>,
        </TABLE>,
        </FORM>;
        end_html;
}


When I run the CGI file is gives Software error:
syntax error at /dir/test.pl line 125, near "<TD valign=middle>Your Name"
Execution of /dir/test.pl aborted due to compilation errors.

I am very new at CGI, but not Perl.  Can anybody explain
what I am doing wrong?  It may be something very basic.

I get the digest version of this list, so I'd appreciate it if
you sent it to me directly along with sending it to the list.


Mike Flannigan




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/