[Perl] Mail Sender en Perl

[Pablo Fischer]

Aqu=ED de nuevo...

> Primero una aclaraci=F3n conceptual:
>
> El software que anotas NO es un MTA, es simplemente un _cliente_ SMTP.
>
> Un MTA (Mail Transfer Agent), para calificar como tal debe incluir
> cuando menos: cliente, server, encolador y despachador; Perfectamente
> posible de hacerse en perl, pero no es un proyecto trivial.
S=ED, perd=F3n, me enrrede cuando estaba escribiendo el Correo, pero a=FAn =
as=ED=20
gracias, a este punto es al que queria llegar, a la partes que tiene un MTA=
 y=20
si esto es posible hacerse en Perl.=20

Lo que ando buscando es eso, un MTA.. pero err.. que solamente va a enviar,=
 no=20
va a servir para comunicarse con un POP3, 'ora si que de pura _salida_'. Pe=
ro=20
implementando todas sus funciones de encolado y despachador.

Tienen alguna URL de referencia donde se explique o vengan codigos de=20
ejemplo?.

salu2!

>
> Lo que es trivial es hacer tu Mail Sender que le entrege a tu MTA
> (postfix, senmail, etc) propio o de terceros un mensaje, pues todo lo
> que necesitas es Net::SMTP:
>
>   #!/usr/local/bin/perl -w
>   use Net::SMTP;
>
>   $smtp =3D Net::SMTP->new('some.host.com'); # Tu servidor
>
>   $smtp->mail($ENV{USER}); # Qui=E9n env=EDa
>   $smtp->to('usuario@un.dominiox.com'); # Destinatario
>
>   $smtp->data();  # Comienzan los datos
>   $smtp->datasend("To: postmaster\n");  # Headers
>   $smtp->datasend("Subject: Prueba\n");
>   ...
>   $smtp->datasend("\n"); # Fin de headers
>   $smtp->datasend("Un simple mensaje de prueba\n");
>   $smtp->dataend(); # Fin de los datos.
>
>            $smtp->quit;
Pablo Fischer Sandoval