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

Bienvenido a los foros de Perl en Español, rqbit.

No muestras el código, pero el problema que indicas es muy común.

El error se produce porque llamas a la función o método donde vas a autenticarte, pero resulta que la variable que almacenaría el objeto Net::SMTP que creaste unas líneas antes, no contiene nada. Mejor dicho, contendrá el valor 'undef'.

Y eso es porque en el momento de la conexión, Net::SMTP no ha podido realizarla, y devuelve un 'undef' para indicar esa circunstancia.

Debes modificar el código para contemplar ese caso:
Además, hemos puesto la opción 'Debug => 1', con lo que se activa la depuración. Net::SMTP escupirá en la salida estándar mensajes con la actividad (lo que está haciendo) para conectarse al servidor. Con suerte, verás en qué paso y por qué se no es posible la conexión.

¡¡¡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.

Debes cambiar DEBUG por Debug. Y ejecutarlo desde la línea de comandos o ver lo que sale en el registro de actividad log del servidor web. Como es un CGI, usa CGI::Carp para que los errores salgan en la página web.

El código, en sí, no tiene problemas (te funciona en otro sitio). El problema es saber por qué el servidor de correo no deja conectarse con tu programa.

Con la opción de depurado verás qué es lo que pasa. Deberás ver en pantalla salidas parecidas a las que salen al final de este hilo.

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

Eso que sale no tiene nada que ver con el tema... hace referencia a cgiemail, que debe ser un CGI que viene preinstalado en el alojamiento que tienes contratado. Pero no es el nombre de tu formulario, ¿no?

Hay una forma de saber si ese módulo está instalado o no.

Puedes hacer la prueba siguiente: sube al servidor mi CGI mínimo y lo pruebas. Si sale correcto, funciona bien el servicio CGI. Luego, lo modificas para agregarle una línea así:

use Net::SMTP;

Y lo vuelves a probar. Si no sale ningún error, es que sí está instalado.

Lo mismo vale para cualquier otro módulo.

A propósito... si tu proveedor de alojamiento te da un programa ya hecho, pues puedes aprovecharlo

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.

Coloca la línea CGI::Carp en tu programa, y ejecútalo. Si salen errores o avisos, procedentes de la opción Debug, pues saldrán en la página web.

Debes mirar también los archivos de registro de actividad web (log) porque ahí también tendrás muchas pistas. En concreto, mira el error.log.

Otro módulo no resolverá tu problema, si antes no sabemos qué problema es.

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.

Mejor que vuelvas a publicar tu código, para ver cómo lo tienes ahora.

El por qué continúa después del new(), es porque hemos quedado en poner un warn(). Si lo cambias por un die(), entonces el programa morirá, y con la ayuda de CGI::Carp, el error saldrá en pantalla.

Y me extraña que los registros de actividad estén "limpios".