Foro - Perl en Español

por **marfperu** » 2006-06-23 12:49 @576

Hola a todos. Soy algo nuevo en Perl y la vez pasada pude programar un envío de correo en Perl y la verdad me causó muchos problemas pero finalmente me funcionó. El problema es que ahora necesito que ese mismo código me sirva para enviar correos pero con archivos adjuntos.

Quisiera que me ayuden a ver cómo lo puedo hacer ya que no tengo idea y los ejemplos que encontré no son muy claros. Gracias de antemano. Acá les pego el código que uso para envío de correo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe -w 
 
use strict;
use Mail::Sendmail;
use CGI qw(:standard);
 
my $nombre = param('textnombre');
my $file = param('file');
my $mensaje =param('todo');
 
 
# Creamos el hash con nuestro mensajes
my %mail = (
    To => '[email protected]', 
    From => 'Web', 
    Subject => 'Consultas',
    Message => $mensaje, 
    file => $file,
    Smtp => 'smtpserver'
);
 
# Enviar el mensaje
unless (sendmail(%mail)) {
    print "Location: http://localhost/noenvio.htm \n\n";
    # Error!
    exit(1);
}
 
# Envío correcto.
print "Location: http://localhost/envio.htm \n\n";
 
exit(1);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bienvenido al foro. Aquí intentaremos ayudarte. Lo primero que deberías ver serían los tutoriales y si no encuentras nada, prueba a Buscar en este mismo foro. Por ejemplo, buscando por la palabra adjunto, ha salido la respuesta:

¡Respondida!

Más pistas:
* sendmail
* Problemas al enviar mail con Perl

Si esto no te lo soluciona, aquí te daremos más pistas.

por **marfperu** » 2006-06-23 15:52 @703

Bueno yo uso el módulo de Sendmail, no el MIME::Entity en todo caso guiandote del código que puse en el primer mensaje, podrias decirme como hacerlo con el MIME:Entity?

ok y ese modulo donde lo consigo lo estoy buscando en internet y no lo encuentro, otra pregunta seria, donde ubico el cuerpo del mensaje, no veo la variable que tenga ese valor.

por **explorer** » 2006-06-23 17:53 @786

El cómo instalarlo depende de tu sistema operativo.

Como regla general, primero debes buscar los módulos que se hayan empaquetado para tu sistema. En Windows, se suele usar el gestor ppm que viene con ActiveState.

En Linux, depende de tu distribución. Por ejemplo, en Debian, hay muchos paquetes con módulos. El que te interesa se llama libmime-perl, por lo que haciendo un apt-get install libmime-perl se instalará sin problemas. El resto de distribuciones puede tener el mismo nombre o no. En Suse se llama perl-MIME-tools.

Si no encuentras el nombre correcto del paquete, siempre se puede probar a instalar con el comando cpan MIME::Entity.

Como solución, final, queda bajárselo de donde están todos los paquetes, CPAN: MIME-tools.

por **marfperu** » 2006-06-23 19:17 @845

Primero bajé el archivo del módulo MIME:Entity. Es un archivo Entity.pm que lo ubiqué en la carpeta site/MIME de la carpeta principal del Perl.

Segundo, creé el archivo enviar.cgi que tiene este contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe -w 
 
use MIME::Entity;
 
my $file = param('file');
my $mensaje =param('todo');
 
my $msg = MIME::Entity->build( 
    From    => 'Web', 
    To      => '[email protected]', 
    Subject => "Únete a Nosotros-Curriculum", 
    Type    => 'text/plain', 
    Encoding => 'base64', 
    Data   => $mensaje, 
); 
 
$msg->attach( 
    Path     => $file, 
    Type     => 'application/msword', 
    Encoding => 'base64', 
); 
 
$msg->smtpsend( 
    Host  => 'mailserver', 
    Hello => 'localhost', 
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y luego de hacer la prueba me da una página de error que dice lo siguiente:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request

No sé dónde podría estar el error o de qué me estoy olvidando. Te agradecería cualquier ayuda extra, no sé de repente me estoy olvidando de algún módulo o no es solo copiarlo, o de repente hay algún error en el código.

Gracias.

por **explorer** » 2006-06-23 19:29 @853

Seguramente el módulo depende de otros.

Los métodos actuales de instalación de módulos no suelen llegar a la fase de "bajarme el módulo y copiarlo al disco", sino que con la ayuda de comandos como cpan o ppm, todo el proceso es automático, incluído la instalación de módulos adicionales.

Ejecuta perl -MMIME::Entity -e 1 para que veas qué módulos faltan.

Veo que estás en Windows. ¿Qué Perl tienes instalado? ¿ActivePerl?

En este foro encontrarás varios mensajes sobre cómo instalar módulos con
PPM.

Por ejemplo, este: viewtopic.php?t=673

por **marfperu** » 2006-06-23 19:36 @858

Sí, tengo el ActivePerl. Mira: la verdad soy muy nuevo en Perl. El primer código que cogí fue el de enviar correo y me trajo muchos problemas. Para mi buena suerte en ese entonces el módulo de sendmail sólo se tuvo que bajar y copiar para que funcione, y el código de envío que te mostré en el primer mensaje lo encontré en otro lado y lo pude entender. Ahora tengo un requerimiento que ahora sea el envío del correo pero con un adjunto. El problema de que este módulo de Entity si se tenga que instalar puede ser, pero no tengo idea de cómo instalarlo. Yo copié todos los módulos que vinieron en el archivo que me bajé pero aun así no funciona. Te agradecería me expliques cómo instalarlo en todo caso para seguir probando el envío, por lo que veo también el código que te envié. Está bien ya que no hay ninguna observación de tu parte, entonces el problema está en los módulos.

explorer: ya instalé el módulo con el ppm y probé el envío de correo y me vuelve a mostrar la misma pantalla de error. ¿Habrá algún error en el código? Algo anda mal. Ojalá puedas ayudarme.

por **explorer** » 2006-06-25 07:09 @339

Tu programa no funcionaba porque estabas usando la función param(), que viene importada al usar el módulo CGI, así que debes usarlo si quieres que este programa sea un cgi.

He vuelto a leer el primer mensaje y me he dado cuenta de que lo estábamos haciendo mal. Tu no quieres enviar un correo con un adjunto hacia el cliente, si no que quieres RECIBIR un correo electrónico con un texto y un fichero adjunto que te envian DESDE un cliente.

El siguiente ejemplo lo he probado en mi servidor y funciona, usando el módulo Mail::Sender

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI ':standard';
use Mail::Sender;
use warnings;
use strict;
 
# Variables
my $nombre  = "No hay nombre";
my $mensaje = "No hay mensaje";
my $fichero = "No hay fichero";
 
# Pintamos la página web
print
        header,
        start_html('Envío de consultas'),
            h1({align=>'center'},'Envío de consultas'),
            hr({width=>'80%'}),
            start_multipart_form,
                table(
                    Tr({valign=>'top'},
                        td("Nombre:"),
                        td(textfield(   -name=>'nombre',
                                        -size=>40,
                                        -maxlength=>80)),
                    ),
                    Tr({valign=>'top'},
                        td("Mensaje:"),
                        td(textarea(    -name=>'mensaje',
                                        -default=>'',
                                        -rows=>10,
                                        -columns=>50)),
                    ),
                    Tr({valign=>'top'},
                        td("Currículum:"),
                        td(filefield(   -name=>'fichero',
                                        -default=>'Nombre del fichero a enviar',
                                        -size=>50,
                                        -maxlength=>80)),
                    ),
                ),
                submit,
            end_form,
        ;
 
# Comprobamos si el usuario nos ha pasado algún parámetro
if ( param() ) {
 
    $nombre  = param('nombre');
    $fichero = param('fichero');
    $mensaje = param('mensaje');
 
    # Los sacamos en pantalla, para comprobar
    print
            hr,
            p("Datos enviados:"),
            p,"Nombre: $nombre",br,"Mensaje: $mensaje",br,"Fichero: $fichero",
    ;
 
    # Leemos el fichero enviado
    my $fh = upload('fichero');
    my $fichero_contenidos;
    my $fichero_type = "";
    if ( defined $fh ) {
        binmode $fh;
        while ( <$fh> ) {
            $fichero_contenidos .= $_;
        }
        $fichero_type = uploadInfo($fichero)->{'Content-Type'};
    }
 
    # Preparamos el correo electrónico
    my $msg = Mail::Sender->new({
        smtp    => 'correo.midominio.com',
        from    => '[email protected]',
        to      => '[email protected]',
        subject => 'Consulta enviada desde el web',
    });
    $msg->OpenMultipart({});
    $msg->Body({ msg => $mensaje });
    $msg->print("\r\n"x2);  # sobra?
    if ( defined $fh ) {
        $msg->Part({
            ctype => $fichero_type,
            description => $fichero,
            encoding => 'Base64',
            disposition => qq(attachment; filename="$fichero"; type="$fichero_type"),
            msg => $fichero_contenidos,
        });
    }
    $msg->Close();
}
 
print end_html;
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Pero tiene que haber formas mucho más cómodas...

por **explorer** » 2006-06-25 14:39 @652

Esta es otra forma, un poco más sencillo, pero a costa de instalar una docena de módulos, todos de los que depende Email::Stuff

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI ':standard';
use Email::Stuff;
use warnings;
use strict;
 
# Variables
my $nombre  = "No hay nombre";
my $mensaje = "No hay mensaje";
my $fichero = "No hay fichero";
 
# Pintamos la página web
print
        header,
        start_html('Envío de consultas'),
            h1({align=>'center'},'Envío de consultas'),
            hr({width=>'80%'}),
            start_multipart_form,
                table(
                    Tr({valign=>'top'},
                        td("Nombre:"),
                        td(textfield(   -name=>'nombre',
                                        -size=>40,
                                        -maxlength=>80)),
                    ),
                    Tr({valign=>'top'},
                        td("Mensaje:"),
                        td(textarea(    -name=>'mensaje',
                                        -default=>'',
                                        -rows=>10,
                                        -columns=>50)),
                    ),
                    Tr({valign=>'top'},
                        td("Currículum:"),
                        td(filefield(   -name=>'fichero',
                                        -default=>'Nombre del fichero a enviar',
                                        -size=>50,
                                        -maxlength=>80)),
                    ),
                ),
                submit,
            end_form,
        ;
 
# Comprobamos si el usuario nos ha pasado algún parámetro
if ( param() ) {
 
    $nombre  = param('nombre');
    $fichero = param('fichero');
    $mensaje = param('mensaje');
 
    # Los sacamos en pantalla, para comprobar
    print
            hr,
            p("Datos enviados:"),
            p,"Nombre: $nombre",br,"Mensaje: $mensaje",br,"Fichero: $fichero",
    ;
 
    # Leemos el fichero enviado
    my $contenido = '';
    my $fh = upload('fichero');
    my ($bytes,$buffer);
    while ( $bytes = read($fh,$buffer, 8192) ) {
        $contenido .= $buffer;
    }
 
    # Enviamos el correo electrónico
    Email::Stuff->from      ( '[email protected]'             )
                ->to        ( '[email protected]'             )
                ->subject   ( 'Fichero enviado desde web'    )
                ->text_body ( $mensaje                       )
                ->attach    ( $contenido, filename=>$fichero )
                ->using     ( SMTP => 'correo.midominio.com' )
                ->send;
}
 
print end_html;
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2006-06-25 18:08 @797

Bueno, por fin encontré la forma de hacerlo con el módulo MIME::Entity.

El truco consistió en meter dos adjuntos. Primero el $mensaje de texto y luego el $fichero.

Para enviar el correo pongo tres opciones:

La primera es llamando al método send(). El mensaje llegará con el remitente puesto al usuario que corre el servidor web.
La segunda es usando una llamada directa a sendmail.
Y la tercera es usando el smtpsend que ya tiene el MIME::Entity. Notar que me he visto obligado a poner un campo MailFrom, porque parece ser MIME::Entity no lo coge del From en la función build... La opción Hello depende de la configuración del servidor de correo, si la necesita o no...

El texto que pongo después del mensaje, "\r\n", es para que escriba dos finales de línea. El estándar MIME exige al menos uno, pero yo lo he puesto así porque veía que las partes MIME aparecen dentro del mensaje sin ninguna línea de separación. A mi no me ha dado problemas el quitar ese texto, pero está ahí por si da problemas en algún cliente de correo de Windows, por ejemplo. Yo las pruebas las estoy haciendo con Evolution en Linux y le da igual si está puesto ese texto o no.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
use MIME::Entity;
use warnings;
use diagnostics;
use strict;
 
# Variables
my $nombre  = undef;
my $mensaje = undef;
my $fichero = undef;
my $contenido = undef;
my $fh = undef;
 
# Pintamos la página web
print
        header,
        start_html('Envío de consultas'),
            h1({align=>'center'},'Envío de consultas'),
            hr({width=>'80%'}),
            start_multipart_form,
                table(
                    Tr({valign=>'top'},
                        td("Nombre:"),
                        td(textfield(   -name=>'nombre',
                                        -size=>40,
                                        -maxlength=>80)),
                    ),
                    Tr({valign=>'top'},
                        td("Mensaje:"),
                        td(textarea(    -name=>'mensaje',
                                        -default=>'',
                                        -rows=>10,
                                        -columns=>50)),
                    ),
                    Tr({valign=>'top'},
                        td("Currículum:"),
                        td(filefield(   -name=>'fichero',
                                        -default=>'Nombre del fichero a enviar',
                                        -size=>50,
                                        -maxlength=>80)),
                    ),
                ),
                submit,
            end_form,
        ;
 
# Comprobamos si el usuario nos ha pasado algún parámetro
if ( param() ) {
 
    $nombre  = param('nombre');
    $fichero = param('fichero');
    $mensaje = param('mensaje');
 
    # Leemos el fichero enviado
    if ( $fichero ) {
        $fh = upload('fichero');
        if ( $fh ) {
            my ($bytes,$buffer);
            while ( $bytes = read($fh, $buffer, 8192) ) {
                $contenido .= $buffer;
            }
        } else {
            print "ERROR: NO PUEDO LEER EL FICHERO ENVIADO<br>";
        }
    }
 
    # Sacamos en pantalla información de lo recibido
    print
            hr,
            p("Datos enviados:"),
            p,"Nombre: $nombre",br,"Mensaje: $mensaje",br,"Fichero: $fichero, tamaño: ", length($contenido)
    ;
 
    # Creamos el correo electrónico
    my $msg = MIME::Entity->build(
                    Type    => "multipart/mixed",
                    From    => '[email protected]',
                    To      => '[email protected]',
                    Subject => "Únete a nosotros - $nombre",
    );
 
    # Adjuntamos el mensaje si lo hay
    if ( $mensaje ) {
        $msg->attach(
                    Data    => [ $mensaje, "\r\n" ],
        );
    }
 
    # Adjuntamos el fichero si lo hay
    if ( defined($fh) ) {
        $msg->attach(
                    Type => uploadInfo($fichero)->{'Content-Type'} || 'application/octet-stream',
                    Data    => [ $contenido ],
                    Encoding=> 'base64',
        );
    }
    # Tercera forma de envío, con el smtpsend de Mail::Internet
    $msg->smtpsend(
                   Host    => 'mail.makkros.biz',
                   Hello   => 'mail.makkros.biz',
                   MailFrom=> '[email protected]',
   );
 
}
 
print end_html;
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Enviar Mail con archivo adjunto

Enviar Mail con archivo adjunto

Publicidad

Enviar Mail Con Archivo Adjunto

Enviar Mail Con Archivo Adjunto

Enviar Mail Con Archivo Adjunto

Solución con Mail::Sender

Solución con Email::Stuff

Solución con MIME::Entity

¿Quién está conectado?