Foro - Perl en Español

por **_valo_** » 2005-10-26 10:24 @475

Saludos, y enhorabuena por el foro.

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:

Sintáxis: [ Descargar ] [ Ocultar ]

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.

# Procesar información 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;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esa entrada de datos es errónea, fíjate en la sección de tutoriales que tiene uno sobre cómo ingresar los datos desde Perl... Ya sea manualmente o con el módulo CGI...

Saludos

por **_valo_** » 2005-10-27 04:38 @235

Buenas, ante todo gracias por tu respuesta, estuve echándole un ojo a los tutoriales que me mencionas y probé a hacer los cambios que consideraba según los tutoriales que leí, pero no consigo que vaya o me sigue funcionando como antes o no funciona.

Según me comentas el problema es a la hora de pedir los datos del formulario, pues seguiré mirando a ver qué sucede pero estuve mirando en el tutorial de enviar datos a documentos por el método y ni aun así. Bueno, seguiré probando.

Muchísimas gracias por la ayuda y saludos a todos y a todas.

Sitio web · por **monoswim** » 2005-10-27 07:33 @356

Bueno, inténtalo y si no lo consigues mándame el script por correo a monoswim ARROBOTOTA hotmail.com que lo modifico y te lo mando cuando ya funcione... ¡je,je!

Saludos

Foro - Perl en Español

Problema al enviar formulario

Problema al enviar formulario

Publicidad

¿Quién está conectado?