Send Email using Perl when the Submit button is pressed, in Windows.

Expand Post »

Hi Friends

I have a requirement to where my cgi program has to send an email when the "Submit" button is pressed.

Here is my cgi program, which has a text field to enter the username and a submit button.

Perl Syntax (Toggle Plain Text)
#!C:/Perl/bin/Perl.exe
 
use strict;
use CGI qw(:standard);
use CGI;
use check;
my $q = new CGI;
 
 
 
print $q->header("text/html");
my $action = param("action");
print button();
 
sub button {
return <<EOF;
<html>
 
<head>
<title></title>
</head>
 
<body bgcolor="#95CBE9">
 
<form>
 
<TABLE BORDER=0 align="center" cellpadding="20">
<TR>
  <TD>User Name</TD>
<TD>
<INPUT type=text size="40" name="username" value=""/>
</TD>
</TR>
<TR>
</TR>
</TABLE>
<br><br><br>
 
<p>
<center>
<input type="submit" value="Submit" onClick=?????>
</p>
</form>
 
</body>
</html>
EOF
}
#!C:/Perl/bin/Perl.exe

use strict;
use CGI qw(:standard);
use CGI;
use check;
my $q = new CGI;



print $q->header("text/html");
my $action = param("action");
print button();

sub button {
return <<EOF;
<html>

<head>
<title></title>
</head>

<body bgcolor="#95CBE9">

<form>

<TABLE BORDER=0 align="center" cellpadding="20">
<TR>
  <TD>User Name</TD>
<TD>
<INPUT type=text size="40" name="username" value=""/>
</TD>
</TR>
<TR>
</TR>
</TABLE>
<br><br><br>

<p>
<center>
<input type="submit" value="Submit" onClick=?????>
</p>
</form>

</body>
</html>
EOF
}

What I need to do is when the user hits the submit button an email has to be sent from Windows platform. I did a bit of googling and found out the perl script to send the mail as follows. This uses Net:

MTP

Perl Syntax (Toggle Plain Text)
use Net::SMTP;
my $smtpserver = 'xxx.xxx.xxx.xxx';
my $smtpuser = 'username';
my $fromemail = 'someone@somewhere.com';
 
    my $smtp = Net::SMTP-> new($smtpserver, Timeout => 10);
    $smtp-> mail($smtpuser);
    $smtp-> to('someoneelse@somewhere.cz');
    $smtp-> data();
    $smtp-> datasend("To: blblb\@blblbl.cz\n");
    $smtp-> datasend("From: psmejkal\@tesco.cz\n");
    $smtp-> datasend("\n");
    $smtp-> datasend("test\n");
    $smtp-> dataend();
    $smtp-> quit;
use Net::SMTP;
my $smtpserver = 'xxx.xxx.xxx.xxx';
my $smtpuser = 'username';
my $fromemail = 'someone@somewhere.com';

    my $smtp = Net::SMTP-> new($smtpserver, Timeout => 10);
    $smtp-> mail($smtpuser);
    $smtp-> to('someoneelse@somewhere.cz');
    $smtp-> data();
    $smtp-> datasend("To: blblb\@blblbl.cz\n");
    $smtp-> datasend("From: psmejkal\@tesco.cz\n");
    $smtp-> datasend("\n");
    $smtp-> datasend("test\n");
    $smtp-> dataend();
    $smtp-> quit;

But I have no idea on how to integrate it with the cgi script.

Any help would be really appreciated.

~Rose

Similar Threads

Generate automatic emails in C#
Send Excel Sheet on Submit Button without using database in ASP.NET
Form sends email for every page load in ASP
need help how to add multiple email addresses on a radio button in ASP
email sending from a jsp page after submit button in JSP

navarannan

Reputation Points: 3

Solved Threads: 0

Newbie Poster

Offline

12 posts
since Jul 2009

Permalink

Mar 11th, 2010

Better be late than never...

Rose,

I am not sure whether you have the solution by now. Cos, you have posted few days back. Please ignore if you already have a solution...

Alright, as per your research you already have entire solution. All you require is integration.

The <form> tag in html has attributes which will do it for you. All you need to do is write a script which sends a email(as you have given a code snippet at the bottom) and glue the script in the form tag.

Like:

<form name="name_of_the_form" action="[page containing the script which triggers the mail]" method="[get or post]">

action attribute takes the page name which needs to be invoked when the user submit the form(i.e. when the user hits the 'submit'[or whatever name you give to the submit button] button.

In your case, you need to call the page which sends out the mail.

Thanks,
~RDX~

rdxblast

Reputation Points: 11

Solved Threads: 0

Newbie Poster

Offline

16 posts
since Mar 2010

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: pattern matching

Next Thread in Perl Forum Timeline: page redirction in perl

DaniWeb Message

Cancel Changes

User Name
Password