Foro - Perl en Español

por **marfperu** » 2006-06-28 11:56 @538

Sí, esa es la misma línea, la 88, y esa línea corresponde a toda la función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if ( $fichero ) { 
        $msg->attach(
                    Type => uploadInfo($fichero)->{'Content-Type'} || 'application/octet-stream', 
                    Data    => [ $contenido ], 
                    Encoding=> 'base64', 
        ); 
    }
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

No entiendo por qué a mi no me funciona, en todo caso no sé si podrías mandarme una copia del código que a ti sí te funciona. de repente algo se me está escapando.

En la sección de lectura de los parámetros, no coinciden los nombres que se usan en el formulario html con los que luego usas para intentar leerlos.
Así, en el formulario yo uso los campos 'nombre', 'mensaje' y 'fichero'. Pero en tu programa insistes en leer:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
1. $nombre = param('nombre');
2. $fichero = param('file');
3. $mensaje = param('todo');
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Solución:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
1. $nombre = param('nombre');
2. $fichero = param('fichero');
3. $mensaje = param('mensaje');
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
El otro problema está al final, que usas dos métodos para enviar el correo. Salvo que quieras recibir dos correos, es mejor que sólo uses un método cada vez.

Te sale mucho más rápido que copies el código que dejé en el mensaje 4409 de la página anterior, el que tiene puesto el asunto Solución con MIME::Entity, pues ese es el que funciona, y cambies los campos de correo electrónico con los tuyos.

por **marfperu** » 2006-06-28 12:43 @571

Hummmmm... no creo que ese sea el problema. Ya me había percatado de esos errores anteriormente y los había corregido. Puse todo exactamente como tu lo enviaste. Por si acaso este es mi código final. Con respecto a tus pruebas te cuento que me llegaron dos correos: uno sin adjunto y otro con adjunto que era un txt. Acá está mi código final por si acaso para que le des una mirada y a pesar de eso sigue mostrando ese mismo error. De repente acá encuentras algún error en mi código que está haciendo que no funcione bien.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!C:\perl\bin\perl.exe -w 
 
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser); 
use MIME::Entity; 
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'); 
    if ( defined($fh) ) { 
        my ($bytes,$buffer); 
        while ( $bytes = read($fh,$buffer, 8192) ) { 
            $contenido .= $buffer; 
        } 
    } 
 
    # 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"x2 ], 
        ); 
    } 
 
    # Adjuntamos el fichero si lo hay 
    if ( $fichero ) { 
        $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.makros.biz', 
                   Hello   => 'mail.makros.biz', 
                   MailFrom=> '[email protected]', 
   ); 
 
} 
 
print end_html; 
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **marfperu** » 2006-06-28 13:05 @586

Otra cosa que también probé fue enviarlo directamente de la línea de comando pensando que la transferencia de variables de mi formulario al código de enviar.pl estaba mal pero lo probé por línea de comandos y me botó exactamente el mismo error:

Can't use an undefined value as a HASH reference at c:\ARCHIV~1\APACHE~1\apache\cgi-bin\enviar.cgi line 88.

Tus correos sí me siguen llegando con los adjuntos pero acá no funcionan. No entiendo por qué.

por **explorer** » 2006-06-28 13:29 @603

He cambiado el código del mensaje 4409. He agregado y cambiado algunas cosas, sobre todo un par de controles para verificar que todo va bien. Y en caso de que algo falle, use diagnostics; nos de más información. Prueba...

Foro - Perl en Español

Enviar Mail con archivo adjunto

Publicidad

¿Quién está conectado?