Foro - Perl en Español

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()

Al coloacar die en el constructor no me muestra nada, solo

SOFTWARE ERRROR

En algunos casos TIME OUT

si lo quito en el constructor y solo dejo el die de defined me muestra

Can't call method "auth" on an undefined value at

Es decir, el die en el constructor me detiene el proceso sin mensajes por pantalla.

Hola, explorer...

Disculpa por la tardanza en pasar la prueba luego de tu sugerencia.

El mensaje arrojado en pantalla es:




Espero que esto ayude a diagnosticar el problema.


Gracias

Hola, explorer...

Muchas gracias por responder...

De las soluciones dadas no creo pueda aplicar ninguna que sea modificar módulo o instalar nuevas versiones. El proveedor de servicios Web no creo que lo permita.

Lo que yo aún no me puedo explicar es por qué si la rutina que te envié la ejecuto desde mi servidor de desarrollo (Ubuntu 13.10) hacia ese servidor de correo la misma sí funciona...

Sin embargo, creo que lo mejor sera probar las rutinas sugeridas con TLS y aplicar una nueva rutina de envío.

Te informaré cómo me va...

Gracias por tomarte el tiempo en este asunto.