Apache+Perl Net::SMTP Strange problem

zhaoningli · May 16, 2007

I am setting up a web application using apache 2.2 + perl v5.8.8 on
FC5. The application needs to send out email using a SMTP server as
mail relay (MTA). I wrote a test perl script test.cgi. Run the script
as CGI, it always return with errors. The code fails at:

my $smtp=new Net::SMTP($smtpserver, Timeout =>60) || die 'Cannot
connect to smtp server';

The apache server is configured to run at apache:apache. The above
script works well if I use

bash# sudo -u apache perl test.cgi.

Please advise how to fix this. Thanks a lot.

zhaoningli · May 16, 2007

The full script I wrote is as the following:

#!/usr/bin/perl

use Net::SMTP;
use MIME::Base64;

print "Content-Type: text/html; charset=UTF-8\n\n\n";

print "\n\n<html><body>Hello</body></html>\n\n";
MessageToMTA();
exit;

sub trim {
my ($str) = @_;
if ($str) {
$str =~ s/^\s+//g;
$str =~ s/\s+$//g;
}
return $str;
}

sub MessageToMTA {
my $rcpt_to = trim('(e-mail address removed)');

my $smtp_server = '192.168.1.100';
my $smtp_user = '(e-mail address removed)';
my $smtp_pass = '123';

my $encode_smtpuser = trim(encode_base64($smtp_user));
my $encode_smtppass = trim(encode_base64($smtp_pass));

my $smtp = Net::SMTP->new($smtp_server, Timeout => 60, Debug
=> 1) || die 'Cannot connect to smtp server';

my $result = $smtp->command('AUTH', 'LOGIN');
my $answer = $smtp->getline();

$result = $smtp->command($encode_smtpuser);
$answer = $smtp->getline();

$result = $smtp->command($encode_smtppass);
$answer = $smtp->getline();

$smtp->mail($smtp_user);
$smtp->to($rcpt_to);
$smtp->data();
$smtp->datasend('here');
$smtp->dataend();
$smtp->quit;
}

J. Gleixner · May 17, 2007

First, can you send e-mail through $smtpserver directly?

Second, have die() show you why the method failed:

my $smtp=new Net::SMTP($smtpserver, Timeout =>60)
or die "Error for $smtpserver: $!";

Third, try the Debug parameter.

zhaoningli · May 18, 2007

Problem has been resolved. Because I enabled SELiunx in FC5, if I
setenforce to 0, there will be no problem.

Net::SMTP problem	1	Aug 30, 2006
Net::SMTP module error	5	Sep 28, 2006
Net::SMTP connection problems	4	Mar 8, 2007
Net::SMTP - "Bad File Number" error ?	2	Mar 8, 2008
NET::SMTP and Authentication	1	Jul 20, 2007
CGI NET::SSH browser problem	1	Nov 10, 2012
Perl On Apache	5	Aug 10, 2007
Perl and SMTP mail problems	1	Jun 24, 2005

Apache+Perl Net::SMTP Strange problem

zhaoningli

zhaoningli

J. Gleixner

zhaoningli

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads