Foro - Perl en Español

Buenas tardes...

He consultado este foro por mucho tiempo y siempre consigo las soluciones en él. Aunque no estaba registrado. nuestro amigo Google siempre te trae por acá.

Soy programador de Perl y tengo mi rutina de envío de correos de una form simple y precisa con autenticación usando el módulo
Net::SMTP::SSL.

Les puedo decir que me funciona a la perfección tanto autenticando y enviando correos desde mi servidor personal usando como transporte a Gmail o usando el host de mi proveedor de servicio de hospedaje. Repito y recalco que la rutina funciona perfecto corriendo en mi servidor personal.

El problema se traduce al momento de llevar la rutina al servidor donde está alojado el sistema que estoy desarrollando. Es un servidor donde el cliente adquirió su hospedaje.

Al momento de intentar correr la rutina desde el servidor se produce el siguiente error:

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

y no envía el correo ni usando el servidor de Gmail o el servidor del propio ISP. Contactando al servicio de soporte del servidor de hospedaje el mismo indica que todo está bien pero yo sigo sin poder usar la rutina.

He leído infinidad de temas pero ninguno da con mi problema, que como indico funciona en mi servidor personal pero al colocarlo en el servidor del cliente da ese error.

He leído mucho las indicaciones del usuario explorer y siempre ha dado con muchas soluciones, espero me oriente al respecto o cualquier otro miembro del foro y lo agradecería.

Gracias

¡¡¡Hola, explorer!!! Gracias por responder.

El código que funciona en mi servidor es este:

!/usr/bin/perl
use warnings;
use strict;
use DBI;
use CGI;
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 = '[email protected]';
my $from_email = 'Webmaster Cresco <[email protected]>';
my $subject = $de_quien.' ha contactado a Cresco';
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->cc("$toc\n");
$smtps->data();

#Envia Encabezado
$smtps->datasend("From: $from_email\n");
$smtps->datasend("To: $to\n");
$smtps->datasend("Subject: $asunto\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();

Esta rutina envía perfectamente colocando el servidor que está allí donde está alojada la rutina, pero desde mi servidor al pasar la rutina al servidor es el error indicado.


De antemano, muchas gracias por tu atención.

Amigo explorer...

Se generó un archivo cgiemail. Te copio algo del contenido:

Me pregunto, por parte del ISP, ¿es posible que algún módulo no esté instalado?

Al no poder llamar a auth(), ¿será que no lo consigue en niguna parte?

Es probable que el módulo padre Net::SMTP no esté instalado?

¿Qué me dices?

Gracias

Buenos días...

Gracias, explorer.

Tienes razón con lo del cgiemail: no tiene nada que ver, no sé por qué se generó en ese directorio.

Probé tu rutina mínimo, y sí funciona bien; sí está instalado y cualquiera de los módulos que utiliza Net::SMTP.

Es una gran frustración no saber qué es lo que está incorrecto, pero insisto, que es parte del proveedor.

No puedo desgastarme en algo que funciona y en el proveedor no.

Te consulto: ¿me podrías sugerir algún otro módulo para envío de correo que involucre otro tipo de librerías y con el cual pueda enviar correo TLS/SSL autenticado?

Y muchas gracias de antemano.

Ya he realizado pruebas al colocar CGI::Carp. Éste no me arroja ningún mensaje de error.
Los log de errores del servidor está limpios. No hay nada.

He realizado las siguientes pruebas:
1. Llevar al código solo hasta la instrucción donde se define el constructor y
$smtps = Net::SMTP::SSL->new($server,
Port => 465,
Debug => 1,
) or warn "$!\n";
print "Fin de la rutina";

y colocando en comentario el resto del código.

La salida es solo la instrucción de impresión del mensaje, es decir, hasta allí funciona todo bien.


2. Siguiendo los pasos de anterior descomento la línea que dice
$smtps->quit();

y el resultado ahora es:
Can't call method "quit" on an undefined value at prueba3.pl line 43.

y no
Can't call method "auth" on an undefined value line 37.

que es el primer llamado de la rutina a un método
defined ($smtps->auth($user, $pass))


Es decir, no pueden llamar a ninguno de los métodos de la librería Net::SMTP, es como, que el módulo está pero no hay ningún método dentro de él.

Esto es lo que me tiene desconcertado... no tener indicadores que sirvan de guía.

¿Qué opinas al respecto?

¿Es posible que el objeto de Net::SMTP esté mal definido instalado o corrupto?

Gracias de antemano.