Me guataria que me ayudaran
miren tengo insertar un cgi de correo para para un formulario dentro de la pagina web que estoy diseñando.
Trabajo con un servidor de telefonica, necesito wsaber como guaradar el
cgi dentro del servidor web de telefonica pero no se como se puede e leido como enfermo acerca de cgi, cree un carpeta dentro del servidor cgi_bin(capeta)y luego pegue dentro un script cgiemail.cgi(quedo como documento cgi)
luego lo mando a lamar de la pagina de formulario<FORM method=POST ACTION="http://www.pronet.tie.cl/cgi-bin/cgiemail.pl"> pero me muestra el texto del cgiemail.cgi y no me ejecuta lo que esta en el script.
este es el cgiemail :
por afvor pide qyue me ayuden, lo agradecere muchoo garacias.....
#!/usr/local/bin/perl -- -*-perl-*-
# Definición del programa para enviar correo, debe dejarse sin cambios.
$progmail = '/usr/lib/sendmail';
# Usuario al que se enviarán los mensajes. Deberá poner su alias de correo electrónico.
$destino = '
[email protected]';
# 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);
# Optiene 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 "Reply-to: $FORM{'Email'} ($FORM{'Nombre'} )\n";
print SALIDA "Subject: Comentarios al Formulario de Consulta ($FORM{'Nombre'})\n\n";
print SALIDA "$FORM{'Nombre'} E-Mail: $FORM{'Email'} Edad: $FORM{'Edad'} Sexo: $FORM{'Sexo'} de la Empresa $FORM{'Empresa'} del Rubro $FORM{'Rubro'}envio la siguiente $FORM{'Referencia'} \n";
print SALIDA "El comentario::\n\n";
print SA