Dear my friends...
I am trying to sending an e-mail with Perl::CGI.
But It does not work as I expect. This is the error message:
EHLO command failed: 220 We do not authorize the use of this system to
transport unsolicited,
at cgicgi-akun.cgi line 855
line 855 contains:
$smtp = Net::SMTP::TLS->new(
'mail.penguin-teknologi.com',
# may need a helo parameter here on some servers
Timeout => 9999,
Debug => 0,
);
What is my mistake?
Please tell me.
Thank you very much in advance.
ps: This is the routine.
====
#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use DBI;
use Net::SMTP::TLS;
use MIME::Base64;
......
&kirimemail($mynamalengkap,$myemail,$daslink);
......
sub kirimemail{
my $mymynamalengkap=shift;
my $mymyemail=shift;
my $mymylinknya=shift;
my $mymetaemail=&metaemail($mymyemail);
my $smtpserver="mail.penguin-teknologi.com";
my $smtpport=25;
my $sender="MOHON JANGAN REPLY E-MAIL INI
\<[EMAIL PROTECTED]>";
my $subject="Please confirm the registration for joining Online-Science.Org
Community";
my $header="X-Mailer";
my $headervalue="Perl SendMail Module 1.09";
my $berkas="akun/konfir-email";
my $user="[EMAIL PROTECTED]";
my $passwd="*****";
my($smtp,$mailbodydata,%mail);
open(MASUKAN, "<$berkas");
while(<MASUKAN>){
s/{{NamaLengkap}}/$mymynamalengkap/g;
s/{{Link-nya}}/$mymylinknya/g;
s/{{emailnya}}/$mymyemail/g;
$mailbodydata.=$_;
}
print "<tr><td align=\"center\" valign=\"top\" colspan=2>
<table border=1 cellspacing=0 cellpadding=0 width=400 align=\"center\"
bgcolor=\"purple\">
<tr><td align=\"center\">";
print header;
print start_html("Environment");
print "</td></tr>
</table>
</td></tr>";
#Keep debug off in order for web and email to both work correctly on large
messages
$smtp = Net::SMTP::TLS->new(
'mail.penguin-teknologi.com',
# may need a helo parameter here on some servers
Timeout => 9999,
Debug => 0,
);
$smtp->datasend("AUTH PLAINTEXT\n");
$smtp->response();
# -- Enter sending email box address username below. We will use this to
login to SMTP --
$smtp->datasend(encode_base64("$user"));
$smtp->response();
# -- Enter email box address password below. We will use this to login to
SMTP --
$smtp->datasend(encode_base64("$passwd"));
$smtp->response();
# -- Enter email FROM below. --
$smtp->mail("$sender");
# -- Enter email TO below --
# $smtp->to("$mymetaemail");
$smtp->to("$mymyemail");
$smtp->data();
#This part creates the SMTP headers you see
$smtp->datasend("To: $mymetaemail\n");
$smtp->datasend("From: $sender\n");
$smtp->datasend("Content-Type: text/html \n");
$smtp->datasend("Subject: $subject");
# line break to separate headers from message body
$smtp->datasend("\n");
$smtp->datasend("$mailbodydata");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
