Gossamer Forum: General: Perl Programming: Help-me!

Hi! I'm work in one bannerexchange script and i receive 500 error in my first file, (join.pl)

Look the code:

#!/usr/local/bin/perl
#################################################################################
# FastExchange v1.10 #
#################################################################################
# Criado em: 03/03/99 #
# Ultima Atualização: 03/23/99 #
# lsaud@manaus.br #
# http://www.fast2exchange.com #
# Copyright © 1999 FastExchange. Todos os direitos reservados. #
# #
# Informações de Copyright #
# ------------------------ #
# Este script não é um freeware. Qualquer distribuição deste script sem autori-#
# zação prévia da FastExchange é extremamente proibida. Copiando partes do #
# do código do script e adicionando a outros scripts são aceitas, mas você deve#
# deixar um texto indicando de onde tirou o código. Você não pode remover os #
# direitos autorais do inicio do script. #
# Modificações no código do script são aceitas, mas antes deverão ser enviadas #
# para a FastExchange afim de realizar as modificações no script. #
# #
# Informações sobre suporte técnico #
# --------------------------------- #
# Caso você tenha registrado o script ($150) você terá suporte técnico 24horas #
# por dia, 7 dias por semana. Todos os usuários registrados tem o direito ao #
# suporte, mas caso você tenha realizado modificações no código do script, o #
# suporte será cancelado. Para realizar modificações ou adicionar novas funções#
# ao script será cobrado uma taxa de $25 por hora trabalhada. #
#################################################################################
# cadastro.pl #
# ----------- #
# Este arquivo realiza o cadastro de novos usuários ao BannerExchange. #
# Você não precisa modificar nada neste script. #
#################################################################################

eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
# Pega a localização do script: UNIX /

($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");
# Pega a localização do script: Windows \

require "admin/config.cfg";
require "admin/arquivos.cfg";
require "admin/util.pl";
};

if ($@) {
print "Content-type: text/plain\n\n";
print "Error including libraries: $@\n";
print "Make sure they exist, permissions are set properly, and paths are set correctly.";

eval {
&main;
};

if ($@) {
&cgierr("fatal error: $@");
}
exit;

&parse_html;
&parse_query;

###########################################
# Exibe o formulário de inscrição
# se a função $autonome estiver ativada
# o nome de usuário será criado automaticamente

sub main {

if($query{'action'} eq "") {

if ($autonome eq "Y") {
open (DEFAULT, "+<$db_dir/$db_default_file_name") or &cgierr("error in sub_main. unable to open default file: $db_default_file_name. Reason: $!");
$lockfail = &lock("DEFAULT");
if ($lockfail)
{
&lockerror("$db_default_file_name");
}
@defaults = <DEFAULT>;
chop $defaults[2] if ($defaults[2] =~ /\n$/);
$defaults[2]++;
seek (DEFAULT,0,0);
foreach $defaults (@defaults)
{
chop $defaults if ($defaults =~ /\n$/);
print DEFAULT "$defaults\n";
}
close (DEFAULT);
$id = $defaults[2];
}

print "Content-type: text/html\n\n";
print <<CADASTRO;

 
<form name="form" method="post" action="$build_cadastro_url" align="center">
<input type="hidden" name="user" value="$id"><input type="hidden" name="opcao" value="cadastrar">
<div align="center"><center>
<table border="0" width="600" cellspacing="5" cellpadding="0">
<tr>
<td width="100%" bgcolor="#000000"><div align="center"><center><table border="0"
width="100%" cellspacing="1" cellpadding="2" height="630">
<tr>
<td width="100%" bgcolor="#FFCB06" colspan="2" height="24"><div align="center"><center>Cadastre-se no FastExchange</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Nome:</td>
<td width="82%" bgcolor="#FFE271" height="25"><div align="left"> <input
type="text" name="nome" size="34" style="font-family: Arial; font-size: 9pt"></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Segundo Nome:</td>
<td width="82%" bgcolor="#FFE271" height="25"><div align="left">
<input type="text" name="segundo_nome" size="34"
style="font-family: Arial; font-size: 9pt"></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="13"> E-mail:</td>
<td width="82%" bgcolor="#FFE271" height="13"><div align="left"> <input
type="text" name="email" size="41" style="font-family: Arial; font-size: 9pt"
value="usuario\@provedor.com.br"> </td>
</tr>
<tr align="center">
<td width="103%" bgcolor="#FFCB06" align="center" height="12" colspan="2">Informações pessoais</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Endereço:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25"> <input type="text"
name="rua" size="41" style="font-family: Arial; font-size: 9pt"> Nº: <input type="text" name="numero" size="4"
style="font-family: Arial; font-size: 9pt"></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Cidade:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25"> <input type="text"
name="cidade" size="41" style="font-family: Arial; font-size: 9pt"></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="26"> Estado:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="26"> <select name="estado"
size="1" style="font-family: Arial; font-size: 9pt">
<option value>--------------------------------</option>
<option value="Acre">Acre</option>
<option value="Alagoas">Alagoas</option>
<option value="Amazonas">Amazonas</option>
<option value="Amapá">Amapá</option>
<option value="Bahia">Bahia</option>
<option value="Ceará">Ceará</option>
<option value="Distrito Federal">Distrito Federal</option>
<option value="Espirito Santo">Espirito Santo</option>
<option value="Goiás">Goiás</option>
<option value="Maranhão">Maranhão</option>
<option value="Mato Grosso do Sul">Mato Grosso do Sul</option>
<option value="Mato Grosso">Mato Grosso</option>
<option value="Minas Gerais">Minas Gerais</option>
<option value="Pará">Pará</option>
<option value="Paraíba">Paraíba</option>
<option value="Pernambuco">Pernambuco</option>
<option value="Piauí">Piauí</option>
<option value="Paraná">Paraná</option>
<option value="Rio de Janeiro">Rio de Janeiro</option>
<option value="Rio Grande do Norte">Rio Grande do Norte</option>
<option value="Rio Grande do Sul">Rio Grande do Sul</option>
<option value="Rondônia">Rondônia</option>
<option value="Roraima">Roraima</option>
<option value="Santa Catarina">Santa Catarina</option>
<option value="São Paulo">São Paulo</option>
<option value="Sergipe">Sergipe</option>
<option value="Tocantins">Tocantins</option>
</select></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Cep:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25"><div align="left"> <input
type="text" name="cep" size="15" style="font-family: Arial; font-size: 9pt" maxlength="6"></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="21"> Sexo:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="21"> <input type="radio" value="Masculino" checked name="sexo">Masculino
<input type="radio" name="sexo" value="Feminino">Feminino</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Nascimento:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25"><div align="left">
<input maxLength="2" name="dia" size="3">
de <input maxLength="2"
name="mes" size="3"> de 19 <input
maxLength="2" name="ano" size="3"> ( DD/MM/AA )</td>
</tr>
<tr align="center">
<td width="103%" bgcolor="#FFCB06" colspan="2" height="18"><div align="center"><center>Informações sobre o usuário</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Usuário:</td>
<td bgcolor="#FFE271" height="25"><div align="left"> $id</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Senha:</td>
<td bgcolor="#FFE271" height="25" align="left"> <input type="password" name="senha"
size="19" style="font-family: Arial; font-size: 9pt" maxlength="6"> (
6 digítos )</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Confirme:</td>
<td bgcolor="#FFE271" height="25" align="left"> <input type="password" name="senha2"
size="19" style="font-family: Arial; font-size: 9pt" maxlength="6"> (
digite sua senha novamente )</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" colspan="2" height="18"><div align="center"><center>Informações sobre o seu site</td>
</tr>
<tr align="center">
<td width="11%" bgcolor="#FFCB06" align="left" height="25"> Nome:</td>
<td width="10%" bgcolor="#FFE271" align="left" height="25"> <input type="text" name="nome_site"
size="46" style="font-family: Arial; font-size: 9pt"></td>
</tr>
<tr align="center">
<td width="11%" bgcolor="#FFCB06" align="left" height="25"> Endereço:</td>
<td width="10%" bgcolor="#FFE271" align="left" height="25"> <input type="text" name="end_site"
size="46" style="font-family: Arial; font-size: 9pt" value="http://"></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" colspan="2" height="18"><div align="center"><center>Informações sobre o seu banner</td>
</tr>
<tr align="center">
<td width="11%" bgcolor="#FFCB06" align="left" height="25"> Endereço:</td>
<td width="10%" bgcolor="#FFE271" align="left" height="25"> <input type="text" name="end_banner"
size="46" style="font-family: Arial; font-size: 9pt" value="http://"></td>
</tr>
<tr align="center">
<td width="100%" colspan="2" bgcolor="#FFCB06" height="29"><div align="center"><center><img src="images/dot_clear.gif" WIDTH="1" HEIGHT="1"><img
src="images/dot_clear.gif" width="1" height="1"> 
<img src="images/dot_clear.gif" WIDTH="1" HEIGHT="1"> 
<input type="submit" value="Cadastrar" style="font-family: Arial; font-size: 9pt"> <input
type="Reset" value="Refazer" style="font-family: Arial; font-size: 9pt"
onClick="form.nome.focus()"></td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</center></div>
</form>

CADASTRO

&scs_footer;

}

}

###########################################
# Verifica se o nome de usuário escolhido
# já está em uso. Caso esteja retorna uma
# página de erro.

if($form{'opcao'} eq "cadastrar") {
if (-e "$members_dir/$form{'user'}.db") {
print "Content-type: text/html\n\n";
print "<center><h2>Desculpe, mas já existe um usuário com esse ID.</h2>";
print "Aperte o botão voltar de seu browser e escolha outro. obrigado.";
}
else {
&addMember;
if($good_input) {
&printConfirm;
}
}
}

###########################################
# Verifica o preenchimento dos campos
# do formulário de inscrição e retorna
# uma página de erro caso algum campo
# esteja em branco.

sub addMember {
$good_input = 1;
if($form{'nome'} eq "" | |
$form{'segundo_nome'} eq "" | |
$form{'email'} eq "usuario\@provedor.com.br" | |
$form{'rua'} eq "" | |
$form{'numero'} eq "" | |
$form{'cidade'} eq "" | |
$form{'estado'} eq "" | |
$form{'cep'} eq "" | |
$form{'sexo'} eq "" | |
$form{'dia'} eq "" | |
$form{'mes'} eq "" | |
$form{'ano'} eq "" | |
$form{'senha'} eq "" | |
$form{'senha2'} eq "" | |
$form{'nome_site'} eq "" | |
$form{'end_site'} eq "http://" | |
$form{'end_banner'} eq "http://") {

$good_input = 0;

print "Content-type: text/html\n\n";
print "Você deixou algum campo do form em branco. Aperte o botão voltar ";
print "e preencha esses campos requeridos:";
print "<ul style=\"font-family: Arial; font-size: 9pt\">";

if($form{'nome'} eq "") {
print "<li>Nome</li>";
}
if($form{'segundo_nome'} eq "") {
print "<li>Segundo Nome</li>";
}
if($form{'email'} eq "usuario\@provedor.com.br") {
print "<li>E-mail</li>";
}
if($form{'rua'} eq "") {
print "<li>Rua</li>";
}
if($form{'numero'} eq "") {
print "<li>Numero</li>";
}
if($form{'cidade'} eq "") {
print "<li>Cidade</li>";
}
if($form{'estado'} eq "") {
print "<li>Estado</li>";
}
if($form{'cep'} eq "") {
print "<li>Cep</li>";
}
if($form{'sexo'} eq "") {
print "<li>Sexo</li>";
}
if($form{'dia'} eq "") {
print "<li>Dia</li>";
}
if($form{'mes'} eq "") {
print "<li>Mês</li>";
}
if($form{'ano'} eq "") {
print "<li>Ano</li>";
}
if($form{'senha'} ne $form{'senha2'}) {
print "<li>Senha</li>";
}
if($form{'nome_site'} eq "") {
print "<li>Nome do Site</li>";
}
if($form{'end_site'} eq "http://") {
print "<li>Endereço do Site</li>";
}
if($form{'end_banner'} eq "http://") {
print "<li>Endereço do Banner</li>";
}

print "</ul>";
}
}

###########################################
# Adiciona o novo usuário ao sistema
# cria um arquivo *.db com as informações
# do novo usuário, encripta a senha e
# retorna uma página de confirmação

sub printConfirm {

open (DEFAULT, "+<$db_dir/$db_default_file_name") or &cgierr("error in sub printConfirm. unable to open default file: $db_default_file_name. Reason: $!");
$lockfail = &lock("DEFAULT");
if ($lockfail)
{
&lockerror("$db_default_file_name");
}
@defaults = <DEFAULT>;
close (DEFAULT);

$password = crypt($form{'senha'}, "aa");
open(DATA, ">$members_dir/$form{'user'}.db");
$lockfail = &lock("DATA");
if ($lockfail){
&lockerror("$form{'user'}.db");
}
print DATA "$form{'nome'}\n";
print DATA "$form{'segundo_nome'}\n";
print DATA "$form{'email'}\n";
print DATA "$form{'rua'}\n";
print DATA "$form{'numero'}\n";
print DATA "$form{'cidade'}\n";
print DATA "$form{'estado'}\n";
print DATA "$form{'cep'}\n";
print DATA "$form{'sexo'}\n";
print DATA "$form{'dia'}\n";
print DATA "$form{'mes'}\n";
print DATA "$form{'ano'}\n";
print DATA "$form{'nome_site'}\n";
print DATA "$form{'end_site'}\n";
print DATA "$form{'end_banner'}\n";
print DATA "$password\n";
$year = (localtime)[5] + 1900;
$month = (localtime)[4] + 1;
if ($month < 10) {
$month = "0".$month;
}
$day = (localtime)[3];
if ($day < 10) {
$day = "0".$day;
}
$date = $day.$month.$year;
print DATA "$date\n";
print DATA "$date\n";
close(DATA);

open (MEMBROS, ">>$db_dir/$db_members_file_name") or &cgierr("error in members file. unable to open default file: $db_members_file_name. Reason: $!");
$lockfail = &lock("MEMBROS");
if ($lockfail) {
&lockerror("$db_members_file_name");
}
seek (MEMBROS,0,2);
print MEMBROS "$form{'user'}\n";
close (MEMBROS);

print "Content-type: text/html\n\n";
print <<RESULTADO;

<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<div align="center"><center>

<table border="0" width="600" cellspacing="5" cellpadding="0">
<tr>
<td width="100%" bgcolor="#000000"><div align="center"><center><table border="0"
width="100%" cellspacing="1" cellpadding="2" height="630">
<tr>
<td width="100%" bgcolor="#FFCB06" colspan="2" height="24">Usuário Cadastrado!</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Nome:</td>
<td width="82%" bgcolor="#FFE271" height="25">
$form{'nome'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Segundo Nome:</td>
<td width="82%" bgcolor="#FFE271" height="25">
$form{'segundo_nome'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="13"> E-mail:</td>
<td width="82%" bgcolor="#FFE271" height="13">
<a href="mailto:$form{'email'}">$form{'email'}</a></td>
</tr>
<tr align="center">
<td width="103%" bgcolor="#FFCB06" align="center" height="12" colspan="2">Informações pessoais</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Endereço:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25">
$form{'rua'} Nº: $form{'numero'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Cidade:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25">
$form{'cidade'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="26"> Estado:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="26">
$form{'estado'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Cep:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25"> $form{'cep'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="21"> Sexo:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="21">
$form{'sexo'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Nascimento:</td>
<td width="82%" bgcolor="#FFE271" align="left" height="25"> $form{'dia'}/$form{'mes'}/$form{'ano'}</td>
</tr>
<tr align="center">
<td width="103%" bgcolor="#FFCB06" colspan="2" height="18">Informações sobre o usuário</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Usuário:</td>
<td bgcolor="#FFE271" height="25"> $form{'user'}</td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" height="25"> Senha:</td>
<td bgcolor="#FFE271" height="25" align="left">
$form{'senha'} </td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" colspan="2" height="18">Informações sobre o seu site</td>
</tr>
<tr align="center">
<td width="11%" bgcolor="#FFCB06" align="left" height="25"> Nome:</td>
<td width="10%" bgcolor="#FFE271" align="left" height="25"> $form{'nome_site'}</td>
</tr>
<tr align="center">
<td width="11%" bgcolor="#FFCB06" align="left" height="25"> Endereço:</td>
<td width="10%" bgcolor="#FFE271" align="left" height="25"> <a href="$form{'end_site'}">$form{'end_site'}</a></td>
</tr>
<tr align="center">
<td width="21%" bgcolor="#FFCB06" align="left" colspan="2" height="18">Informações sobre o seu banner</td>
</tr>
<tr align="center">
<td width="11%" bgcolor="#FFCB06" align="left" height="25"> Endereço:</td>
<td width="10%" bgcolor="#FFE271" align="left" height="25"> <a href="$form{'end_banner'}">$form{'end_banner'}</a></td>
</tr>
<tr align="center">
<td width="100%" colspan="2" bgcolor="#FFCB06" height="29"></td>
</tr>
</table>
</center></div></td>
</tr>
</table>
</center></div>

RESULTADO

&scs_footer_results;

###########################################
# Envia um e-mail ao administrador
# do Exchange informando que um novo
# usuário foi cadastrado.

open (MAIL,"|$mailCmd -t");
print MAIL "To: $myEmail\n";
print MAIL "From: $myEmail\n";
print MAIL "Subject: FastExchange\n";
print MAIL qq|

Um novo usuário requisitou o cadastro no FastExchange.
Você precisa verificar os dados enviados antes de adiciona-lo ao sistema.

Abaixo os dados que o novo usuário enviou:
--------------------------------------------------------
Nome : $form{'nome'}
Segundo Nome : $form{'segundo_nome'}
E-mail : $form{'email'}

Rua : $form{'rua'}
Numero : $form{'numero'}
Cidade : $form{'cidade'}
Estado : $form{'estado'}
Cep : $form{'cep'}

Sexo : $form{'sexo'}
Data de Nascimento : $form{'dia'}/$form{'mes'}/$form{'ano'}

Usuário : $form{'user'}
Senha : $form{'senha'}

Nome do Site : $form{'nome_site'}
Endereço : $form{'end_site'}

Endereço do Banner : $form{'end_banner'}
--------------------------------------------------------
Para autoriza-lo, visite o endereço abaixo:

http://www.weblinker.he.com.br/cg-bin/admin.pl

|;
close MAIL;

###########################################
# Envia uma mensagem de boas vindas ao
# novo usuário. Contendo o código
# html a ser adicionado na página e
# as informações que ele enviou.

open (MAIL,"|$mailCmd -t");
print MAIL "To: $form{'email'}\n";
print MAIL "From: $myEmail\n";
print MAIL "Subject: FastExchange\n";
print MAIL qq|

Olá $form{'nome'}!

Obrigado por querer participar do FastExchange.

Sua inscrição foi enviada ao nosso agente que está verificando
o seu site neste momento. Em 24 horas você deverá receber um e-mail
informando-lhe que sua conta foi ativada.

Lembre-se: Caso seu site e banner não estejam de acordo com os
padrões do FastExchange sua inscrição será cancelada no serviço.

Abaixo os dados que você enviou:
--------------------------------------------------------
Nome : $form{'nome'}
Segundo Nome : $form{'segundo_nome'}
E-mail : $form{'email'}

Rua : $form{'rua'}
Numero : $form{'numero'}
Cidade : $form{'cidade'}
Estado : $form{'estado'}
Cep : $form{'cep'}

Sexo : $form{'sexo'}
Data de Nascimento : $form{'dia'}/$form{'mes'}/$form{'ano'}

Usuário : $form{'user'}
Senha : $form{'senha'}

Nome do Site : $form{'nome_site'}
Endereço : $form{'end_site'}

Endereço do Banner : $form{'end_banner'}
--------------------------------------------------------

|;
close MAIL;

}

I need help to find my erros and correct it. Wink

------------------
[]'s

Lucas Saud - #19815087