Saludos a todos. A ver si alguien puede ayudarme
Cuestión: tengo un formulario en una página web, y su cgi correspondiente. Están alojados en una máquina Linux. Pero por más vueltas que le doy no consigo que funcione. Ya le he dado permisos de ejecución al cgi con chmode (755), y todo lo que me han dicho los administradores, pero debe haber algún error que se me escapa.
Adjunto el formulario html y el cgi de los c.............
ESTE ES EL CGI
-----------------------------------------------------------------------------------
#!/usr/bin/perl
# Definicion del programa para enviar correo, debe dejarse sin cambios
$progmail = '/usr/sbin/sendmail';
#Usuario al que se enviaran los mensajes. Debe poner su alias de correo electronico
$ destino = 'manuellopezrey@gmail.com';
#Indica que se trata de un documento HTML
print "Content-type: text/html\n\n";
# Obtiene la entrada
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
#Divide las variables entre nombre y valor
@pairs = split(/&/, $buffer);
# Obtiene todas las variables y sus valores
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+//;
$value = ~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
# Ahora enviamos el mail al $destino
open (SALIDA, "|$progmail $destino") || die "No puedo abrir $progmail!\n";
print SALIDA "Content-type: text/plain; charset=\"utf-8\"\n";
print SALIDA "To: manuellopezrey\@gmail.com\n";
print SALIDA "Reply-to: $FORM{'email'} ($FORM{'nombre'})\n";
print SALIDA "Subject: Enviar a Inedito\n\n";
print SALIDA "-----------------------------------------------------------------------------\n";
print SALIDA "Nombre: $FORM{'nombre'}\n";
print SALIDA "E-mail: $FORM{'email'}\n";
print SALIDA "Web, blog...: $FORM{'web'}\n";
print SALIDA "Titulo de la obra que adjuntas: $FORM{'titulo'}\n";
print SALIDA "-----------------------------------------------------------------------------\n";
print SALIDA "Si la obra no es tuya\n";
print SALIDA "Autor: $FORM{'autor'}\n";
print SALIDA "Titulo: $FORM{'titulo2'}\n";
print SALIDA "Dónde ha aparecido o ha sido publicada con anterioridad: $FORM{'donde'}\n";
print SALIDA "Adjunta aquà tu fichero: $FORM{'file'}\n";
print SALIDA "Comentarios: $FORM{'comentarios'}\n";
close (SALIDA);
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"\n";
print "n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">\n";
print "<!-- InstanceBeginEditable name=\"doctitle\" -->\n";
print "<TITLE>\n";
print "Enviar a Inedito\"n";
print " <!-- Plantilla - Etiquetas meta y link del head -->";
print " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />";
print " </head>\"n";
print " <body>\"n"
print "<h2>Tu formulario se ha enviado correctamente. Muchas gracias.</h2>\n";
print "</body>\n";
print "\n";
print "</html>\n";
-----------------------------------------------------------------------------------
Y aqui podeis ver el formulario (descargandolo)