Recojer archivo adjunto

Orkua · #1 (**permalink**) 14/06/2002, 06:00

Hola a todos,

Tengo un CGI que me recoje la información enviada desde un formulario con la siguiente sintaxis:

print MAIL "Persona de contacto: $FORM{'contacto'}\n\n";

Si en el formulario quiero introducir un campo del tipo:

input type="file"

Como tengo que hacer para recoger este archivo y adjuntarlo al cgi?

Les adjunto un ejemplo del CGI, que estoy usando:

Código:

 #!/usr/bin/perl -- -*-perl-*-
$mailprog = '/usr/lib/sendmail';

$recipient = '[email protected]';


print &quot;Content-type: text/html\n\n&quot;;
print &quot;&lt;html&gt;&lt;body&gt;&quot;;

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&amp;/, $buffer);

# $FORM{'consulta_exterior'} = &quot;&quot;;




foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(&quot;C&quot;, hex($1))/eg;
	$FORM{$name} = $value;
}

open (MAIL, &quot;|$mailprog $recipient&quot;) || die &quot;No se pudo abrir $mailprog!\n&quot;;
print MAIL &quot;From: orkua &lt;orkua\@wanadoo.es&gt;\n&quot;;
print MAIL &quot;Subject: Preguntas al foro de CGI&quot;;

print MAIL &quot;Codigo del cliente: $FORM{'codigo'}\n&quot;;


close (MAIL);

print &quot;&lt;HTML&gt;&lt;BODY&gt;&quot;;
print &quot;&lt;P&gt;&lt;CENTER&gt;&lt;FONT COLOR='#000066' SIZE='+2'&gt;Gracias&quot;;
print &quot;&lt;/FONT&gt;&lt;/CENTER&gt;&lt;/P&gt;&lt;P&gt;&lt;CENTER&gt;&lt;HR WIDTH='75%'&gt;&quot;;
print &quot;&lt;/CENTER&gt;&lt;/P&gt;&lt;BR&gt;&lt;BR&gt;&quot;;
print &quot;&lt;CENTER&gt;Gracias por su inter&amp;eacute;s, gestionaremos inmediatamente su solicitud.&lt;/CENTER&gt;&lt;/B&gt;&lt;/BODY&gt;&lt;/HTML&gt;&quot;;

Gracias por todo y saludos! ;)