Embperl Examples - Input / Confirmation - Form
Please make sure you enter a valid email address in the
source before testing the mail function
[-
  $MailTo = 'richter at embperl dot org' ;
  @errors = () ;
  if (defined($fdat{check}) || defined($fdat{send}))
    {
    push @errors, "**Please enter your name" if (!$fdat{name}) ;
    push @errors, "**Please enter your e-mail address" if (!$fdat{email}) ;
    }
-]
[$if (defined($fdat{check}) and $#errors == -1)$]
[- delete $fdat{input} ; delete $fdat{check} ; delete $fdat{send} -]
 You have entered the following data:
  | Name | [+$fdat{name}+] | 
  | E-Mail | [+$fdat{email}+] | 
  | Message | [+$fdat{msg}+] | 
  |  | 
[$elsif defined($fdat{send}) and $#errors == -1$]
[- MailFormTo ($MailTo,'Formdata','email') -]
Your input has been sent
[$else$]
Please enter your data
[$endif$]
HTML::Embperl (c) 1997-1998 G.Richter