explorer, gracias por estar atento...
El código como está en este momento:
#!/usr/bin/perl
use warnings;
use strict;
use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP::SSL;
my $cgi=new CGI;
my $asunto_msg = $cgi->param('Asunto');
my $cuerpo_msg = $cgi->param('msg');
my $de_quien = $cgi->param('Nombre');
my $a_mail = $cgi->param('Email');
my $asunto = $de_quien.' ha contactado a Cresco';
my $user =
'[email protected]';
my $pass = '******';
my $server = 'casiquiare.tepuyserver.net';
my $to =
'r********[email protected]';
my $from_email = 'Webmaster Cresco <
[email protected]>';
my $subject = $de_quien.' ha contactado a Cresco';
my $retry = 10; # in seconds;
my $smtps = Net::SMTP::SSL->new($server, Port => 465, Debug => 1, )
or warn "$!\n";
# authenticate
defined ($smtps->auth($user, $pass))
or die "No puede autenticar: $!\n";
# Envia data Preliminar
$smtps->mail("$from_email\n");
$smtps->to("$to\n");
$smtps->data();
#Envia Encabezado
$smtps->datasend("From: $from_email\n");
$smtps->datasend("To: $to\n");
$smtps->datasend("Subject: $asunto\n");
#$smtps->datasend("Subject: $subject\n");
$smtps->datasend("Reply-To: $a_mail\n");
$smtps->datasend("MIME-Version: 1.0\n");
$smtps->datasend("Content-Type: text/html\n");
$smtps->datasend("\n");
$smtps->datasend("<strong>Enviado por: </strong> $de_quien <p> <strong>Titulo del Mensaje: </strong> $asunto_msg <p> $cuerpo_msg");
$smtps->datasend("\n");
$smtps->dataend();
$smtps->quit();
################################################################################
he usado también este código sin parámetros para hacer pruebas
################################################################################
#!/usr/bin/perl
use warnings;
use CGI qw(:standard );
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Net::SMTP::SSL;
print
header,
start_html('PRUEBA3');
my $user =
'[email protected]';
my $pass = '******';
my $server = 'casiquiare.tepuyserver.net';
my $to =
'r*********[email protected]';
my $from_name = 'yo';
my $from_email =
'[email protected]';
my $subject = 'Prueba de Autenticacion';
my $smtps = Net::SMTP::SSL->new($server,
Port => 465,
Debug => 1,
) or warn "$!\n";
print " Paso!!! $smtps";
#defined ($smtps->auth($user, $pass))
# or die "Sin Autenticar: $!\n";
#$smtps->mail($from_email);
#$smtps->to($to);
#$smtps->data();
#$smtps->datasend("To: $to\n");
#$smtps->datasend(qq^From: "$from_name" <$from_email>\n^);
#$smtps->datasend("Subject: $subject\n\n");
#$smtps->datasend("This will be the body of the message.\n");
#$smtps->datasend("\n--\nVery Official Looking .sig here\n");
#$smtps->dataend();
$smtps->quit();
print end_html;
#print "done\n";
Del cual he comentado las líneas para ir viendo hasta dónde llega pero con la primera llamada a un método de Net::SMTP falla la misma en este caso quit()