Foro - Perl en Español

Buenas,

necesito ayuda en la creación de un script de envío de datos de un formulario vía mail.

Os comento: tengo un formulario HTML en mi web, a través del cual los usuarios pueden contactar conmigo y enviarme un archivo adjunto (puede ser de cualquier tipo) entre otros datos. Este formulario se comunica con un .pl que recoge todos los datos y debe enviármelos por correo (incluido el archivo adjunto).

Estoy haciendo uso del Mime::Lite. No obstante no hay forma de que me llegue el archivo que adjuntan. ¿Es necesario subir físicamente el archivo al servidor donde se ejecuta el .pl?

A ver si me podéis ayudar. Gracias.

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

Efectivamente: el adjunto, con el resto de los datos del formulario es enviado al servidor al que pertenece el formulario (o, más exactamente, a donde el atributo action del formulario haya indicado).

Una vez arriba, solo tienes que crear un mensaje, adjuntar el archivo, y mandártelo.

Con el método attach() del módulo MIME::Lite puedes adjuntarlo. Pero... parece que el problema está antes, en la recepción del fichero.

Si nos dices cómo lo estás haciendo, podríamos tener más pistas.

En el action de mi formulario no tengo nada, pues llamo vía AJAX a una página HTML que se comunica directamente con el .pl pasándole los datos que tiene que enviar. ¿Hay alguna manera de indicar dónde debe subir el archivo a mi servidor?

Gracias por su respuesta.

Eso depende de lo que pueda hacer el .pl, que no sabemos cuál es, por lo que es difícil dar una solución.

A continuación te indico cómo lo tengo estructurado:

Formulario HTML:

<form id="mailform" action="" ENCTYPE="multipart/form-data" method="post" >

<input type="hidden" class="text" id="mailTo" value="[email protected]" readonly>

<table border="0">

<tr>
<td>Email*</td>
<td><input class="itext" type="text" name="email" id="email" /></td>
</tr>

<tr>
<td>Asunto*</td>
<td><input name="asunto" type="text" class="itextarea" id="asunto" value="" /></td>
</tr>

<tr>
<td>Mensaje*</td>
<td> <textarea class="itextarea" name="comentarios" id="comentarios"></textarea></td>
</tr>

<tr>
<td>Archivo adjunto*</td>
<td><input name="archivo" id="archivo" type="file" size="40" /></td>
</tr>


<tr>
<td colspan="2"><input type=button onclick="checkFields();" name=Enviar value="Enviar"></td>
</tr>
</table>

</form>


La función JS checkFields realiza las validaciones y llama por AJAX a una página html con los valores del formulario:
ESta página html, llama a contacto.pl pasando las variables que éste necesita.


contacto.pl

use MIME::Lite;

use Net::POP3;

my $asun = "$ARGV[0]";
my $to = "$ARGV[1]";
my $from = "$ARGV[2]"."@"."$ARGV[3]";
my $mensa = "$ARGV[4]";
my $archivo = "$ARGV[5]";


#Directorio donde queremos estacionar los archivos
my $dir = "/ficheros";


##### CONEXION POP AUTENTIFICADA

$pop = Net::POP3->new('miservidor.mail.com');

if ($pop->login('[email protected]','xxxx') > 0)
{
print "va....\n";
}
else
{
print "no va...\n";
}

$pop->quit();

##### FIN CONEXION POP AUTENTIFICADA


$mime_msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $asun,
Type =>'multipart/mixed'
);

$mime_msg->attach(
Type => 'text/html',
Data => $mensa

);


##### ENVIO SMTP

$mime_msg -> send('smtp', 'miservidor.mail.com', AuthUser=>'[email protected]', AuthPass=>'xxxx',Timeout=>60 );


Necesito subir el archivo adjunto al servidor linux, para después enviarlo también como adjunto en el correo. Si el archivo está en C:, pues al .pl le llega $archivo='C:\nomarchivo.txt'. No sé qué estoy haciendo mal, pero necesito hacer el upload al servidor (no lo consigo) y después enviarlo.

Es decir: que el html intermedio llama a contacto.pl pasándole sólo el nombre del fichero... por lo que entonces NO está subiendo el fichero al servidor.

Para realizar la operación de subida, se debe crear una conexión HTTP de tipo POST, en que los datos de un formulario han de ser codificados en formato "multipart/form-data". Mira un ejemplo:

El action indica qué programa recibirá los datos, por la entrada estándar.

En Perl, con el módulo CGI, recibirá esos datos. Esto es un extracto del último programa que he hecho para recoger ficheros desde la web:


El nombre del fichero que nos manda el usuario no nos interesa porque es relativo al disco duro del usuario. Podríamos quedarnos con el nombre real del fichero extrayéndolo con File::Basename u obteniendo más información llamando a $cgi->uploadInfo(), que devuelve la cabecera HTTP completa.

Como ves, el uso de CGI ayuda bastante. Si no lo usáramos, tendríamos que leer toda la entrada estándar, tanto los parámetros normales del formulario como todo el flujo que compone el fichero.

En tu programa solo veo que recibe el nombre del fichero, pero no su contenido.

No estoy muy seguro si por Ajax se puedan subir archivos así de forma convencional...

Lo que sí es seguro es que tienes que hacer el envió del archivo por medio del formulario vía POST y con enctype="multipart/form-data" en los parámetros del formulario.

Ajax intercambia información HTML o XML con el servidor, para actualizar las páginas o informar al servidor de lo que está haciendo el usuario, y responder casi inmediatamente.

Lo que sí se suele hacer es lanzar el proceso de subida, de la forma clásica, y al mismo tiempo hay un Ajax que, periódicamente, pregunta al servidor cuánto del fichero ha subido, para actualizar la barra de progreso.

No sé, técnicas hay muchas. Quizás sí se pueda hacer.