«

Hi, I am new to perl, and dont know much about CPAN and modules... What
am I doing wrong in the Net::SMTP::SSL constructor?!

This works fine:

my $smtp_port=465;
my $smtp = Net::SMTP::SSL->new(Host => "smtp.gmail.com", Port =>
$smtp_port);
die "Couldn't connect to server" unless $smtp;


But, this does NOT work:

my $smtp_port=465;
my $smtp_server="smtp.google.com";
my $smtp = Net::SMTP::SSL->new(Host => $smtp_server, Port =>
$smtp_port);
die "Couldn't connect to server" unless $smtp;


Error:

Couldn't connect to server at ./process_sweep.pl line 1298.


The documentation says:

Host - SMTP host to connect to. It may be a single scalar, as defined
for the PeerAddr option in IO::Socket::INET, or a reference to an array
with hosts to try in turn. The "host" method will return the value
which was used to connect to the host.


I have tried using:

my $smtp_port=465;
my @smtp_server;
push(@smtp_server,"smtp.google.com");
my $smtp = Net::SMTP::SSL->new(Host => \@smtp_server, Port =>
$smtp_port);
die "Couldn't connect to server" unless $smtp;


But it doesn't work either...

"Kamil" <> wrote in news:1127286563.416133.57220
@g43g2000cwa.googlegroups.com:

> Hi, I am new to perl, and dont know much about CPAN and modules... What
> am I doing wrong in the Net::SMTP::SSL constructor?!
>
> This works fine:
>
> my $smtp_port=465;
> my $smtp = Net::SMTP::SSL->new(Host => "smtp.gmail.com", Port =>
> $smtp_port);
> die "Couldn't connect to server" unless $smtp;
>
>
> But, this does NOT work:
>
> my $smtp_port=465;
> my $smtp_server="smtp.google.com";
> my $smtp = Net::SMTP::SSL->new(Host => $smtp_server, Port =>
> $smtp_port);
> die "Couldn't connect to server" unless $smtp;
>
>
> Error:
>
> Couldn't connect to server at ./process_sweep.pl line 1298.

The most obvious thing I see is that you're trying to connect to two
different SMTP servers. Does your first attempt work if you substitute
"smtp.google.com" for "smtp.gmail.com"?

Thanks for the suggestion Eric. It works fine now. Dunno how I missed
that... lack of sleep maybe... Thanks again.