On Mon, 17 May 2004 12:44:54 -0400, <[EMAIL PROTECTED]> wrote:
Can I define a subroutine in embperl and call it when the submit button
is clicked..? How do I do event handling in embperl (or modperl)..?
Thanks,
Sreeram
Web applications are different from common apps. I will give you a simple
example but if you intend to build a more complex application you will
have to learn a lot more.
In your Embperl page, test.epl:
[!
use Mail::Sendmail;
!]
[-
$req = shift;
-]
<html>
...
[$ if ( $fdat{send} ) $]
[-
%email = (
To => "[EMAIL PROTECTED]",
From => "[EMAIL PROTECTED]",
Subject => "Form data",
Body => "New post:\n\nName: $fdat{Name}\nAge: $fdat{Age}",
);
-]
[$ if ( sendmail(%email) ) $]
<p>Thanks [+ $fdat{Name} +]</p>
[$ else $]
<h2>Sorry, could not deliver your message</h2>
[$ endif $]
[$ else $]
<form action="test.epl">
Name: <input type="text" name="Name" />
Age: <input type="text" name="Age" />
<input type="submit" name="send" value="Send now" />
</form>
[$ endif $]
...
</html>
--
Luiz Fernando B. Ribeiro
Engenho Soluções para a Internet
+55 11 4485-0136
-----Original Message-----
From: Luiz Fernando B. Ribeiro [mailto:[EMAIL PROTECTED]
Sent: Monday, May 17, 2004 12:24 PM
To: Lista Embperl
Subject: Re: Emailing the form data on submit
On Mon, 17 May 2004 10:26:24 -0400, <[EMAIL PROTECTED]> wrote:
Hello,
Is there any way to email the form data on submit either in embperl or
> modperl..? I appreciate your help.
The form data is available to you in %fdat so you can use any module from
CPAN to send an e-mail, do it by hand or open a pipe to sendmail or mail.
From CPAN the easiest modules are Mail::Sendmail (for simple messages)
and MIME:Lite (for more options, like attachments).
Embperl has a bult-in feature for doing this but I am not familiar with
it, try reading the manual pages for this.
Good luck,
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
