Indique Cgi

Pessoal...me ajuda, onde está o erro?
Os dados que meu servidor forneceu são esses:

Colacar o cgi que quiser rodar no diretório : ;home/educamor/public_html/scgi-bin/

Depois eles poderam ser utilizados em: http://educamor.com.br/scgi-bin

Path do perl: /usr/bin/perl

sendmail : /usr/sbin/sendmail

o script que coloquei na pasta scgi.bin é este:

#!/usr/local/bin/perl
#========= Início das configurações =========

$sendmail = "/usr/sbin/sendmail";
# PATH completo para o Sendmail, ou outro programa para envio de e-mails em seu servidor

$seumail = "educamor\@educamor.com.br";
# Seu e-mail (não esqueça da \ antes da @)

$titulohp = 'Educamor';
# Título da sua home page

$urlhp = 'http://www.educamor.com.br';
# Endereço da sua home page

$descricaohp = 'No site Educamor você enconra Poesias, Reflexões, Pensamentos, conteúdos para pesquisas escolares, gifs e muitas dicas sobre Word, PowerPoint e FrontPage';
# Descrição da sua home page

$meunome = 'Lucia';
# Seu nome ou apelido

$urlvolta = 'http://www.educamor.com.br/confirmacaoenviopagina.html';
# URL que será link na página de confirmação de envio para voltar

#========= Fim das configurações =========

#========= NÃO EDITE MAIS NADA DAQUI PARA BAIXO! =========

###########################################
# Definindo $FORM
###########################################

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
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;
}

###########################################
# Enviando email para o indicado
###########################################

open (MENSAGEM,"$mensagem");
@lines = <MENSAGEM>;
close (MENSAGEM);

open (MAIL,"|$sendmail");
print MAIL "To: $FORM{'indicadomail'}\n";
print MAIL "From: $FORM{'meuemail'}\n";
print MAIL "Subject: $titulohp\n";
print MAIL "Olá $FORM{'indicadonome'} !!\n";
print MAIL "Seu amigo, $FORM{'meunome'}, está lhe indicando a seguinte página\n";
print MAIL "para você visitar:\n";
print MAIL "$titulohp ($urlhp) - $descricaohp\n";
print MAIL "-\n";
print MAIL "E $FORM{'meunome'} escreveu essa mensagem na indicação:\n";
print MAIL "$FORM{'mensagem'}\n";
print MAIL "-\n";
print MAIL "E o Webmaster, $meunome, agradece se você visitar a página.\n";
print MAIL "Obrigado!\n";
print MAIL "-\n";
print MAIL "$titulohp - $enderecohp\n";
print MAIL "-\n";
print MAIL "O Webmaster da $titulohp ($meunome) está usando o IndiqueSite Script v1.0p, escrito por Celso Endo. Pegue esse script em:\n";
print MAIL "http://www.foxcollection.cjb.net\n";
print MAIL "e visite a página pessoal do autor em [url="http://www.foxworld.com.bi\n";"]http://www.foxworld.com.bi\n";[/url]
print MAIL "\n";
close MAIL;

print "Content-type: text/html\n\n";
print "<html><head><title>IndiqueSite Script v1.0p</title></head>\n";
print "<body bgcolor=FFFFFF link=red vlink=darkblue alink=black>\n";
print "<center>\n";
print "IndiqueSite Script v1.0p</center>\n";
print "Sua indicação foi enviado com sucesso para\n";
print "$FORM{'indicadonome'} ($FORM{'indicadomail'}).\n";
print "\n";
print "<center><table border=1 cellpadding=0 cellspacing=0 width=80%>\n";
print "<tr><td bgcolor=black>Mensagem enviada</td></tr>\n";
print "<tr><td>\n";
print "To: $FORM{'indicadomail'}\n";
print " \n";
print "From: $FORM{'meuemail'}\n";
print " \n";
print "Subject: $titulohp\n";
print " \n";
print "Olá $FORM{'indicadonome'} !!\n";
print " \n";
print "Seu amigo, $FORM{'meunome'}, está lhe indicando a seguinte página\n";
print "para você visitar:\n";
print " \n";
print "$titulohp ($urlhp) - $descricaohp\n";
print " \n";
print "-\n";
print " \n";
print "E $FORM{'meunome'} escreveu essa mensagem na indicação:\n";
print " \n";
print "$FORM{'mensagem'}\n";
print " \n";
print "-\n";
print " \n";
print "E o Webmaster, $meunome, agradece se você visitar a página.\n";
print " \n";
print "Obrigado!\n";
print " \n";
print "-\n";
print " \n";
print "$titulohp - $urlhp\n";
print "</td></tr></table></center>\n";
print "\n";
print "<a href=$urlvolta>Voltar</a>\n";
print "\n";
print "<center><hr noshade size=2 color=darkblue width=70\%></center>\n";
print "\n";
print "<center>IndiqueSite Script v1.0p by <a href=mailto:foxworld\@sti.com.br\?subject=IndiqueSite>Celso Endo</a>\n";
print " \n";
print "Qualquer dúvida, sugestão ou crítica envie para <a href=mailto:foxworld\@sti.com.br\?subject=IndiqueSite>foxworld\@sti.com.br</a>.\n";
print " \n";
print "Visitem a <a href=http://www.foxworld.com.bi target=fw>foxworld</a>, página pessoal do criador do script.</centeR>\n";
print " \n";
print "</body>\n";
print "<noframes>\n";
print "</html><noframes>\n";
print "</noscript>\n";
print "\n";
print "</noscript>\n";
exit;

A página onde se encontra o formulário está assim:

<html>
<head>
<title>IndiqueSite Script v1.0p</title>
<meta name="Microsoft Border" content="t">
</head>
<body bgcolor=white link=read vlink=blue alink=black style="font-family: Comic Sans MS; font-size: 12 pt">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
<tr>
<td> </td>
</tr>
<tr>
<td>
<form action=http://www.educamor.com.br/educamor/public_html/scgi.bin/indique.cgi METHOD=POST style="font-family: Comic Sans MS; font-size: 12 pt">


Seu nome: <input type=text name=meunome size=26>
 

Seu e-mail:
<input type=text name=meuemail size=26 value=@> 

Nome do seu amigo:


<input type=text name=indicadonome size=26> 

Email de seu amigo:


<input type=text name=indicadomail size=26 value=@> 
 





<center>Coloque abaixo uma mensagem para seu amigo:
 
 
<textarea cols=26 rows=5 name=mensagem>
Cara, visitei essa página e achei da hora, por isso estou recomendando a você para visitar também. Acho que você vai gostar.
[]s,
seu nome
</textarea></center>

<center><input type=submit value=Indique></center>
</form></td>
</tr>
</table>
</center>
</div>

Fiz o chmod no servidor

CHMOD 755

Eu não entendo nada de CGI...então c puderem me expliquem bem detalhado. Origada a todos (y)

#1 Lucia

#2 AirFight

#3 Whitesnake

#4 Lucia

#5 AirFight

#6 Whitesnake

#7 Lucia

#8 AirFight

#9 prix

1 user(s) are reading this topic