error in Net::SMTP Can't open server

[jcor]

Hi, I'm trying some code to send a mail with my script. This is it:

#!/usr/bin/perl
use Net::SMTP;
 
my $smtp_server='62.193.245.15';
my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open server\n";
$smtp->mail('[e-mail]');
$smtp->to('[e-mail]');
$smtp->auth("[e-mail]","*password*");
$smtp->data();
$smtp->datasend("To: [e-mail]\n");
$smtp->datasend("From: [e-mail]\n");
$smtp->datasend("Subject: test\n");
$smtp->datasend("\n");
$smtp->datasend("some test text");
$smtp->dataend();
 
$smtp->quit;

My problem is that it allways die when creating the object. It's not possible to create the objectwith the IP instead of smtp."something "?
Is this IP that I have in my thunderbird and it works perfectly!

Am I failing something?

Can someone give me an hand?

Thanks,

João Correia

[numberwhun]

Hi, I'm trying some code to send a mail with my script. This is it:

#!/usr/bin/perl
use Net::SMTP;
 
my $smtp_server='62.193.245.15';
my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open server\n";
$smtp->mail('[e-mail]');
$smtp->to('[e-mail]');
$smtp->auth("[e-mail]","*password*");
$smtp->data();
$smtp->datasend("To: [e-mail]\n");
$smtp->datasend("From: [e-mail]\n");
$smtp->datasend("Subject: test\n");
$smtp->datasend("\n");
$smtp->datasend("some test text");
$smtp->dataend();
 
$smtp->quit;

My problem is that it allways die when creating the object. It's not possible to create the objectwith the IP instead of smtp."something "?
Is this IP that I have in my thunderbird and it works perfectly!

Am I failing something?

Can someone give me an hand?

Thanks,

João Correia

How about this, change this line:

my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open server\n";
 

to be:

my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open server: $!\n";
 

and let us know what is printed out for the error after "Can't Open server". That will be the error that is being kicked back.

Regards,

Jeff

[numberwhun]

Just to let you know, when I telnet, it doesn't let me in:

>>telnet 62.193.245.15 25

Connecting To 62.193.245.15.. .Could not open connection to the host, on port 25:
Connect failed

If this holds true, I don't think it is accepting connections from outside. Is this an internal SMTP server for tvnet.pt?

Regards,

Jeff

[jcor]

It should retrieve in my console, right?
I got nothing, I run only this code:

use Net::SMTP;
my $smtp_server='62.193.245.15';
my $smtp = Net::SMTP->new($smtp_server) or die "Can't Open server: $!\n";
$smtp->quit;
 

and this is my console:

joao@joao-UBUNTU:~/Desktop$ perl Net_SMTP 
Can't Open server: 
joao@joao-UBUNTU:~/Desktop$ 

Should I see the error in some filehandle, or something?

[jcor]

answering to your second post,I use that IP in my thunderbird smtp server and I send mails everywhere, I guess it's the correct smtp server.

[numberwhun]

answering to your second post,I use that IP in my thunderbird smtp server and I send mails everywhere, I guess it's the correct smtp server.

You will have to bear with me as I don't have a ton of experience with this module, but from the documentation on CPAN, why not try this:

 
$smtp = Net::SMTP->new('mailhost',
                           Hello => 'my.mail.domain',
                           Timeout => 30,
                           Debug   => 1,
                          );
 

If you read the link, you will see what each of the options does for you.

Regards,

Jeff

[jcor]

Hi, I decided to use other email account because maybe my smtp vould be with any problem, I don't know.
My code now is this:

#!/usr/bin/perl
 
use Net::SMTP;
 
my $smtp_server='smtp.mail.yahoo.com.br';
my $smtp_to='[e-mail]';
my $smtp_auth='joao_correia_0509';
my $smtp_pass='***password****';
my $smtp_mail="yahoo";
 
my $smtp = Net::SMTP->new($smtp_server,
              Timeout => 30,
              Debug => 1,
              ) or die "Can't Open server: $!\n";
$smtp->auth($smtp_auth,$smtp_pass) or die "in auth: $!\n";
$smtp->to($smtp_to) or die "in to: $!\n";
$smtp->data();
$smtp->datasend("test it ");
$smtp->dataend();
print $smtp->domain();
print "it's gone!!!\n";
$smtp->quit;
 

Now it connects to the server but gives a error in the authorization. This is the output with the debug:

joao@joao-UBUNTU:~/Desktop$ perl Net_SMTP
Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>>   Net::Cmd(2.29)
Net::SMTP>>>     Exporter(5.58)
Net::SMTP>>>   IO::Socket::INET(1.29)
Net::SMTP>>>     IO::Socket(1.29)
Net::SMTP>>>       IO::Handle(1.25)
Net::SMTP=GLOB(0x82da17c)<<< 220 smtp108.mail.mud.yahoo.com ESMTP
Net::SMTP=GLOB(0x82da17c)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x82da17c)<<< 250-smtp108.mail.mud.yahoo.com
Net::SMTP=GLOB(0x82da17c)<<< 250-AUTH LOGIN PLAIN XYMCOOKIE
Net::SMTP=GLOB(0x82da17c)<<< 250-PIPELINING
Net::SMTP=GLOB(0x82da17c)<<< 250 8BITMIME
in auth: Ficheiro ou directoria inexistente
 

The last line translation is "in auth: file or folder nonexistent", or something similar.

Can you help in this?

Or, in last case, can someone give me another module or something to send a mail from the script?

Thanks,

João
thanks

[eWish]

I too have not messed with Net::Smtp, I prefer Mail::Sendmail or Mime::Lite. In addition to those, there are many modules for email on CPAN. Here is an excerpt from the Mail::Sendmail module.

  use Mail::Sendmail;
 
  %mail = ( To      => '[e-mail]',
            From    => '[e-mail]',
            Message => "This is a very short message"
           );
 
  sendmail(%mail) or die $Mail::Sendmail::error;
 
  print "OK. Log says:\n", $Mail::Sendmail::log;

What OS are you using? Don't think that the authentication works correctly on a windows machine. If that is the case that you might look at Net::SMTP::TLS.

--Kevin

[numberwhun]

The only time I did play with this module, it was with a mail server that was internal and on the network that I was connected with. So, connecting and sending email was a breeze and it worked like a charm, I must say. Unfortunately, I haven't done anything with authentication, although I should. I would check the module(s) that Kevin suggested and see if any of them work for you.

Regards,

Jeff

[jcor]

I'm using Ubuntu 7.04

I'll take a look in the modules you told me.
But to use Mail::SendMail I'll have to configure "sendmail" in my ubuntu, right?
I'll try that

Thanks for your help,

João