- Código: Seleccionar todo
connect() failed: Descriptor de fichero erróneo
y no sé a qué fichero se refiere porque como pueden ver en el código que puse anteriormente no estoy enviando ningún fichero.
-
- Publicidad
Módulo de envío de emails + postfix
23 mensajes
• Página 2 de 3 • 1, 2, 3
por majitop1986 » 2008-08-12 12:03 @544
Gracias, explorer, y teco, por los tips, les cuento que seguí ambos consejos... y me genera este error.
y no sé a qué fichero se refiere porque como pueden ver en el código que puse anteriormente no estoy enviando ningún fichero.
y no sé a qué fichero se refiere porque como pueden ver en el código que puse anteriormente no estoy enviando ningún fichero.
- majitop1986
- Perlero nuevo
- Mensajes: 64
- Registrado: 2008-04-02 14:04 @628
Publicidad
por explorer » 2008-08-12 12:14 @552
Si estás usando MailFile(), precisamente por eso sale el error, porque no indicas ninguno. Mejor usa MailMsg() como te hemos indicado teco000 y yo.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por majitop1986 » 2008-08-12 12:22 @557
Claro que lo estoy haciendo, explorer, estoy usando MailMsg(), aquí te pongo el código para que veas:
Uso el MailMsg como me indicaron los dos... y me bota ese error...
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
use warnings;
use Mail::Sender;
my $sender = new Mail::Sender
{smtp => 'mail.tel.net', from => 'mjroman\@tel.net'};
my $err = $Mail::Sender::Error;
my $sendto = "mjroman\@tel.net";
my $copys = "mjroman\@tel.net";
my $subject = "prueba";
my $message = "esto es una prueba";
if($sender->MailMsg({to => $sendto,
cc => $copys,
subject => $subject,
msg => $message })<0)
{
die "$Mail::Sender::Error\n";
}
print "Mail sent OK.";
#$err = $Mail::Sender::Error;
#$sender->Close;
use strict;
use warnings;
use Mail::Sender;
my $sender = new Mail::Sender
{smtp => 'mail.tel.net', from => 'mjroman\@tel.net'};
my $err = $Mail::Sender::Error;
my $sendto = "mjroman\@tel.net";
my $copys = "mjroman\@tel.net";
my $subject = "prueba";
my $message = "esto es una prueba";
if($sender->MailMsg({to => $sendto,
cc => $copys,
subject => $subject,
msg => $message })<0)
{
die "$Mail::Sender::Error\n";
}
print "Mail sent OK.";
#$err = $Mail::Sender::Error;
#$sender->Close;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Uso el MailMsg como me indicaron los dos... y me bota ese error...
- majitop1986
- Perlero nuevo
- Mensajes: 64
- Registrado: 2008-04-02 14:04 @628
por explorer » 2008-08-12 12:58 @582
A mi me da otro error, pero creo que es debido a que no son reales los datos que has publicado (dirección de correo, servidor, etc), lo cual es normal:
Y lo del otro error, pues no sé... si al menos saliese el número de línea, tendríamos más pistas.
Yo lo ejecutaría paso a paso, con el depurador, para ver qué es lo que está haciendo, para ver dónde falla.
- Código: Seleccionar todo
Local user "[email protected]" unknown on host "mail.tel.net"
Y lo del otro error, pues no sé... si al menos saliese el número de línea, tendríamos más pistas.
Yo lo ejecutaría paso a paso, con el depurador, para ver qué es lo que está haciendo, para ver dónde falla.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por majitop1986 » 2008-08-12 13:16 @594
Es que a mi tampoco me sale la línea... lo puse tal cual me salió...
Mmm, una pregunta, explorer. Estaba viendo que también se puede usar este código:
Lo vi en uno de los tutoriales... Mmm... pero solo funciona con sendmail ¿no? ¡y yo estoy usando postfix! no me serviría de nada, ¿¿no??
Mmm, una pregunta, explorer. Estaba viendo que también se puede usar este código:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Asunto del mensaje\n\n";
print MAIL "Cuerpo del mensaje\n";
close(MAIL);
exit(1);
use strict;
open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Asunto del mensaje\n\n";
print MAIL "Cuerpo del mensaje\n";
close(MAIL);
exit(1);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Lo vi en uno de los tutoriales... Mmm... pero solo funciona con sendmail ¿no? ¡y yo estoy usando postfix! no me serviría de nada, ¿¿no??
- majitop1986
- Perlero nuevo
- Mensajes: 64
- Registrado: 2008-04-02 14:04 @628
por monoswim » 2008-08-12 13:58 @624
Using perl Syntax Highlighting
En centos es /usr/sbin/sendmail.
Si instalas postfix ya te funciona por default... No necesitas configurar nada, solo fíjate de no dejar un agujerote de seguridad y que todos los spammers usen tu server para enviar mails...
Saludos
PD: El programa /usr/sbin/sendmail funciona con cualquier MTA, yo lo uso con postfix perfectamente
MonoSwim
Perl Programming Language
Perl Programming Language
-
monoswim - Perlero nuevo
- Mensajes: 452
- Registrado: 2003-11-18 16:13 @717
- Ubicación: Buenos Aires
por explorer » 2008-08-12 14:41 @654
No, no creo que sea por la autenticación. Repito, que yo lo que haría sería ejecutarlo paso a paso para ver en qué línea ocurre el error.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
23 mensajes
• Página 2 de 3 • 1, 2, 3
¿Quién está conectado?
Usuarios navegando por este Foro: Google [Bot] y 9 invitados