El problema que tengo es que al intentar enviar los datos de un formulario hecho en HTML a un correo me manda solo el primer campo y su valor así:
Nombre de Centro : Ejemplo
Direccion
Poniéndome solo el primer campo del formulario, su valor y después el nombre del segundo campo pero no me envía nada más.
El formulario está en HTML y también validado en HTML, el proceso de envío a un correo lo realizo con el archivo correo.cgi que es un script en Perl.
Espero haberme explicado bien, os pongo el código ya que no encontré manera de adjuntar el archivo en Perl.
Muchísimas gracias a todos y a todas por adelantado.
Ahí va el código:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- $backurl = "http://www.ceida.org/form/form.htm";
- $backname = "Formulario";
- $mailprog = '/usr/lib/sendmail';
- $mail = meri\@yahoo.es';
- read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});
- open (MAIL, "|$mailprog $mail") || die "No se puede abrir $mailprog!\n";
- print MAIL ("To: $mail\n");
- print MAIL ("From: Usuario de Internet\n");
- print MAIL ("Subject: Datos de formulario\n\n");
- # Procesar informacion para llenar la forma
- @namevalues = split(/&/, $namevalues);
- foreach $namevalue (@namevalues) {
- ($name, $value) = split(/=/, $namevalue);
- $name =~ tr/+/ /;
- $value =~ tr/+/ /;
- $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
- $INPUT{$name} = $value;
- unless ($value eq "") {
- print MAIL ("$name: $value\n");
- }
- }
- close (MAIL);
- print ("Content-Type: text/html\n\n");
- print ("<html><head><title>Gracias</title></head>\n");
- print ("<body><h1>Gracias por su cooperacion</h1>\n");
- print ("La informacion ha sido enviada, esta es la forma que envio:<hr>\n");
- foreach $namevalue (@namevalues) {
- ($name, $value) = split(/=/, $namevalue);
- $name =~ tr/+/ /;
- $value =~ tr/+/ /;
- $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
- $INPUT{$name} = $value;
- unless ($value eq "") {
- print ("$name: $value<br>\n");
- }
- }
- print ("<hr>\n");
- print ("<a href=\"$backurl\">Regresar a $backname</a><hr>\n");
- print ("</body></html>\n");
- exit;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Perdonar por copiar el código.