sileeem
New User
Nov 21, 2011, 11:15 AM
Post #1 of 1
(126 views)
|
|
Extend Email Form
|
Can't Post
|
|
Hi there,
I`m a Perl-Newbee try to extend an existing perl script. Could anybody help me please?
The script send an email text by a form. I want to add a field to the form and attach the text to the email.
---------- Form Var 1
$emailtextLabel='your text';
$emailtextBox='<input name="et" type="text" size=24 maxlength=255>';
---------- Form Var 2
$emailtextLabel='your text';
$emailtextBox='<textarea name="et" rows=2 cols=15 maxlength=255></textarea>';
==> Both Variations add the new field to the form. So this part works. But how can I add now the text to the email?
----------
sub notify{
my ($title)=@_;
my ($et)=param("et");
if (... snip ...)
print MAIL "Subject: $title \n";
print MAIL (... snip...)
print MAIL "\n$et\n";
}
The code has been abridged here to make it easier to understand.
These twor rows are my part:
my ($et)=param("et");
print MAIL "\n$et\n";
and of course ist doesn't work. What am I doing wrong? What can I do to add the text to a variable to add it to the email?
Thanks :-)
|
MAIN
SEARCH
WHO'S 
LOG 