Hola, soy diseñador gráfico y mis conocimientos en html son muy básicos, descargue un formulario de americandominios.com para agregarlo a una pagina web y no me funciona, alguien me podría decir por que me aparece este error???
Error:
The server encountered an unexpected condition which prevented it from fulfilling the request.
The script had an error or it did not produce any output. If there was an error, you should be able to see it in the error log.
Codigo del formulario:
<h2>Contáctenos</h2>
<form action="http://www.escuelariqueza.com/cgi-bin/correo.pl" method="POST">
<P><b>Su Nombre:</b><BR>
<INPUT TYPE="text" NAME="realname" SIZE="30">
<P><b>Su Dirección de Correo:</b><BR>
<INPUT TYPE="text" NAME="email" SIZE="30">
<P><b>Comentarios</b><P>
<font color="#003399"><textarea rows="7" name="S1" cols="41"></textarea></font><P>
<INPUT TYPE="submit" VALUE="Enviar">
<INPUT TYPE="reset" VALUE="Limpiar">
<INPUT TYPE=hidden name="env_report" value="REMOTE_HOST,HTTP_USER_AGENT,REMOTE_ADDR">
<INPUT TYPE="hidden" NAME="recipient" VALUE="[email protected]">
<INPUT TYPE="hidden" NAME="subject" VALUE="contacto pagina web">
<INPUT TYPE="hidden" NAME="redirect" VALUE="http://www.escuelariqueza.com"></FORM>
Codigo del archivo .pl: (el archivo es muy largo, solo pondre la parte que en la que uno debe modificar los datos)
!/usr/bin/perl -wT
#
# $Id: FormMail.pl,v 2.17 2002/10/10 08:00:15 nickjc Exp $
#
use strict;
use POSIX qw(locale_h strftime);
use Text::Wrap; # Er for wrapping :)
use Socket; # for the inet_aton()
use CGI qw(:standard);
use vars qw(
$DEBUGGING $emulate_matts_code $secure
$allow_empty_ref $max_recipients $mailprog @referers
@allow_mail_to @recipients %recipient_alias
@valid_ENV $date_fmt $style $send_confirmation_mail
$confirmation_text $locale $charset $no_content
$double_spacing $wrap_text $wrap_style
);
# CONFIGURACION DEL USUARIO CAMBIE ESTOS DATOS DESPUES DE LA LINEA "BEGIN"
# --------------------------
# Modique estos parametros a los suyos (MODIFIQUELOS DESPUES DE LA LINEA "BEGIN"
# Solo debe modificar los parametros siguientes NO MODIFIQUE LAS LINEAS PRECEDIDAS DE # SOLO DESDE "BEGIN":
# @referers = qw(susitioweb.com 200.200.200.200 localhost); camiar 200.200.200.200 por su IP
# @allow_mail_to = qw([email protected] [email protected] localhost);
# subir el script en modo ascii con ws_ftp o Niko y darle derechos 755
BEGIN
{
$DEBUGGING = 1;
$emulate_matts_code= 0;
$secure = 1;
$allow_empty_ref = 1;
$max_recipients = 5;
$mailprog = '/usr/lib/sendmail -oi -t';
@referers = qw(escuelariqueza.com 66.96.134.24 localhost);
@allow_mail_to = qw([email protected] localhost);
@recipients = ();
%recipient_alias = ();
@valid_ENV = qw(REMOTE_HOST REMOTE_ADDR REMOTE_USER HTTP_USER_AGENT);
$locale = '';
$charset = 'iso-8859-1';
$date_fmt = '%A, %B %d, %Y at %H:%M:%S';
$style = '/css/nms.css';
$no_content = 0;
$double_spacing = 1;
$wrap_text = 0;
$wrap_style = 1;
$send_confirmation_mail = 0;
$confirmation_text = <<'END_OF_CONFIRMATION';
From: [email protected]
Subject: form submission
Thank you for your form submission.
END_OF_CONFIRMATION
cualquier ayuda me servira demasiado....
Muchas Gracias.
