tt_caveira

Bom Dia!

Gostaria de saber se alguem ou em algum lugar posso pegar um bom tuturial que ensine a fazer um sistema de noticias em CGI.

Espero respostas!

Abraços!

Fiz tudo que tem no tuturial... mas eu fui rodar e naum sei como fazer isso.. como, onde boto meus arquivos, como veja se esta funcinando?

Abraços

Post: Servidor Em Seu Proprio Pc !, Passo a passo: rode php, cgi, e mysql

Categoria: WebFórum -> Atividades -> Tutoriais de Desenvolvimento -> CGI

Fala Pessoal!

Bom eu editei esse formulario e eu testei ele e ele vai mas cai na página de erro que criei, dizendo que algum campo não foi preenchido sendo que todos foram, então pesso para que analizem se ha algum erro no meu codigo!

Valeu!

#!/usr/bin/perl

############### CONFIGURACAO ###################################

# Coloque abaixo o seu e-mail que vai receber os campos do formulario
# Existe possibilidade de colocar uma \ (barra) antes da @ (arroba). Exemplo:  \@
$SeuEmail = 'bruno@innomine.com';

# Modifique abaixo com o seu dominio ou os que podem ter acesso ao script
@referers = ('www.innomine.com','innomine.com');

# Caminho do sendmail em seu servidor
$sendmail = '/usr/sbin/sendmail';

# Pagina de erro
$erro = "http://www.innomine.com/erro.html";

# Pagina de confirmacao de envio do formulario
$fim = "http://www.innomine.com/confirmado.html";

# Coloque abaixo o que voce quer que apareca no assunto
$Subject = "Contato!";


################ FIM DA CONFIGURACAO ############################



#############################################
######## NAO ALTERE NADA ABAIXO #############
#############################################

&segurovamp;
&metodo;
$Nome = $in{'Nome'};
$Marca = $in{'Marca'}; 
$Modelo = $in{'Modelo'};
$Fabricacao = $in{'Fabricacao'};
$AnoModelo = $in{'AnoModelo'};
$km = $in{'km'};
$Valor = $in{'Valor'};
$AirBag = $in{'AirBag'};
$ArCond = $in{'ArCond'};
$DirHidrau = $in{'DirHidrau'};
$BancosCouro = $in{'BancosCouro'};
$TrioEle = $in{'TrioEle'};
$Tetosolar = $in{'Tetosolar'};
$CambioAuto = $in{'CambioAuto'};
$FreioABS = $in{'FreioABS'};
$AntiFurto = $in{'AntiFurto'};
$Outros = $in{'otros'};
$GaragemNoite = $in{'GaragemNoite'};
$GaragemDia = $in{'GaragemDia'};
$GaragemCursos = $in{'GaragemCursos'};
$MediaKmAnual = $in{'MediaKmAnual'};
$Cep1 = $in{'Cep1'};
$Cep2 = $in{'Cep2'};
$Cidade = $in{'Cidade'};
$uf = $in{'uf'};
$VeiculosSegurados = $in{'VeiculosSegurados'};
$VeiculosSemSeguro = $in{'VeiculosSemSeguro'};
$Utilizacao = $in{'Utilizacao'};
$Quitado = $in{'Quitado'};
$Alienado = $in{'Alienado'};
$SituacaoOutros = $in{'SituacaoOutros'};
$NomeProp = $in{'NomeProp'};
$CPFProp = $in{'CPFProp'};
$SituacaoOutros = $in{'SituacaoOutros'};
$PossuiSeguradora = $in{'PossuiSeguradora'};
$BonusAutal = $in{'BonusAtual'};
$BonusAutal = $in{'BonusAtual'};
$Nome = $in{'Nome'};
$Nome2 = $in{'Nome2'};
$Nome3 = $in{'Nome3'};
$Nome4 = $in{'Nome4'};
$Nome5 = $in{'Nome5'};
$Sexo = $in{'Sexo'};
$Sexo2 = $in{'Sexo2'};
$Sexo3 = $in{'Sexo3'};
$Sexo4 = $in{'Sexo4'};
$Sexo5 = $in{'Sexo5'};
$DataNasc = $in{'DataNasc'};
$DataNasc2 = $in{'DataNasc2'};
$DataNasc3 = $in{'DataNasc3'};
$DataNasc4 = $in{'DataNasc4'};
$DataNasc5 = $in{'DataNasc5'};
$Civil = $in{'Civil'};
$Civil2 = $in{'Civil2'};
$Civil3 = $in{'Civil3'};
$Civil4 = $in{'Civil4'};
$Civil5 = $in{'Civil5'};
$Habilitacao = $in{'Habilitacao'};
$Habilitacao2 = $in{'Habilitacao2'};
$Habilitacao3 = $in{'Habilitacao3'};
$Habilitacao4 = $in{'Habilitacao4'};
$Habilitacao5 = $in{'Habilitacao5'};
$Escolaridade = $in{'Escolaridade'};
$Escolaridade2 = $in{'Escolaridade2'};
$Escolaridade3 = $in{'Escolaridade3'};
$Escolaridade4 = $in{'Escolaridade4'};
$Escolaridade5 = $in{'Escolaridade5'};
$Percentual = $in{'Percentual'};
$Percentual2 = $in{'Percentual2'};
$Percentual3 = $in{'Percentual3'};
$Percentual4 = $in{'Percentual4'};
$Percentual5 = $in{'Percentual5'};
$Atividade = $in{'Atividade'};
$Sinistro = $in{'Sinistro'};
$Sinistroano = $in{'Sinistroano'};
$MesmaCidade = $in{'MesmaCidade'};
$Viajapormes = $in{'Viajapormes'};
$Pessoas = $in{'Pessoas'};
$Filhosmenores = $in{'Filhosmenores'};
$Obs = $in{'obs'};
&formatoemail;
&form;
print "Location: $fim\n\n";
exit;

#######################################

sub form {
open (MAIL,"|$sendmail -t");
print MAIL "To: $SeuEmail\n";
print MAIL "Subject: $Subject\n\n";
print MAIL "Nome: $Nome\n\n";
print MAIL "E-mail: $Email\n\n";
print MAIL "Marca: $Marca\n\n";
print MAIL "Modelo: $Modelo\n\n";
print MAIL "Ano Fabricacao: $Fabricacao\n\n";
print MAIL "Ano Modelo: $AnoModelo\n\n";
print MAIL "ZeroKm: $km\n\n";
print MAIL "Valor: $Valor\n\n";
print MAIL "Airbag: $AirBag\n\n";
print MAIL "Ar Condicionado: $ArCond\n\n";
print MAIL "Dir Hidraulica: $DirHidrau\n\n";
print MAIL "Bancos Couro: $BancosCouro\n\n";
print MAIL "Trio Eletrico: $TrioEle\n\n";
print MAIL "Teto Solar: $Tetosolar\n\n";
print MAIL "Cambio Auto: $CambioAuto\n\n";
print MAIL "Frio ABS: $FreioABS\n\n";
print MAIL "AntiFurto: $AntiFurto\n\n";
print MAIL "Outros: $Outros\n\n";
print MAIL "Garagem Noite: $GaragemNoite\n\n";
print MAIL "Garagem Dia: $GaragemDia\n\n";
print MAIL "Garagem Cursos: $GaragemCursos\n\n";
print MAIL "Media km Anual: $MediaKmAnual\n\n";
print MAIL "Veiculos Segurados: $VeiculosSegurados\n\n";
print MAIL "Veiculos Sem Seguros: $VeiculosSemSeguro\n\n";
print MAIL "CEP: $Cep1\n\n $Cep2";
print MAIL "Cidade: $Cidade\n\n";
print MAIL "uf: $uf\n\n";
print MAIL "Utilizacao: $Utilizacao\n\n";
print MAIL "Quitado: $Quitado\n\n";
print MAIL "Alienado: $Alienado\n\n";
print MAIL "Alienado Outros: $SituacaoOutros\n\n";
print MAIL "Nome Proprietadio: $NomeProp\n\n";
print MAIL "CPF Proprietario: $CPFProp\n\n";
print MAIL "Possui Seguradora: $PossuiSeguradora\n\n";
print MAIL "Bonus Atual: $BonusAtual\n\n";
print MAIL "Nome: $Nome\n\n";
print MAIL "Sexo:$Sexo\n\n";
print MAIL "Data Nasc: $DataNasc\n\n";
print MAIL "Civil: $Civil\n\n";
print MAIL "Habilitacao: $Habilitacao\n\n";
print MAIL "Escolaridade: $Escolaridade\n\n";
print MAIL "Percentual: $Percentual\n\n";
print MAIL "Nome Dois: $Nome2\n\n";
print MAIL "Sexo Dois: $Sexo2\n\n";
print MAIL "Data Nasc Dois: $DataNasc2\n\n";
print MAIL "Civil Dois: $Civil2\n\n";
print MAIL "Habilitacao Dois: $Habilitacao2\n\n";
print MAIL "Escolaridade Dois: $Escolaridade2\n\n";
print MAIL "Percentual Dois: $Percentual2\n\n";
print MAIL "Nome Tres: $Nome3\n\n";
print MAIL "Sexo Tres: $Sexo3\n\n";
print MAIL "Data Nasc Tres: $DataNasc3\n\n";
print MAIL "Civil Tres: $Civil3\n\n";
print MAIL "Habilitacao Tres: $Habilitacao3\n\n";
print MAIL "Escolaridade Tres: $Escolaridade3\n\n";
print MAIL "Percentual Tres: $Percentual3\n\n";
print MAIL "Nome Quatro: $Nome4\n\n";
print MAIL "Sexo Quatro: $Sexo4\n\n";
print MAIL "Data Nasc Quatro: $DataNasc4\n\n";
print MAIL "Civil Quatro: $Civil4\n\n";
print MAIL "Habilitacao Quatro: $Habilitacao4\n\n";
print MAIL "Escolaridade Quatro: $Escolaridade4\n\n";
print MAIL "Percentual Quatro: $Percentual4\n\n";
print MAIL "Nome Cinco: $Nome5\n\n";
print MAIL "Sexo Cinco: $Sexo5\n\n";
print MAIL "Data Nasc Cinco: $DataNasc5\n\n";
print MAIL "Civil Cinco: $Civil5\n\n";
print MAIL "Habilitacao Cinco: $Habilitacao5\n\n";
print MAIL "Escolaridade Cinco: $Escolaridade5\n\n";
print MAIL "Percentual Cinco: $Percentual5\n\n";
print MAIL "Ativiade: $Atividade\n\n";
print MAIL "Sinistros Ultimos Anos: $Sinistro\n\n";
print MAIL "Sinistro Ultimos Anos: $Sinistroano\n\n";
print MAIL "Situacao Imovel: $MesmaCidade\n\n";
print MAIL "Viagem Por Mes: $Viajapormes\n\n";
print MAIL "Pessoas de Dezessete a Vinte e cinco anos: $Pessoas\n\n";
print MAIL "Filhos menores que Nove: $Filhosmenores\n\n";
print MAIL "Observacoes: $Obs\n\n";
close (MAIL);
}

#######################################

sub metodo { local (*in) = @_ if @_; 
local ($i, $key, $val); if ( $ENV{'REQUEST_METHOD'} eq "GET" ) 
{$in = $ENV{'QUERY_STRING'};} 
elsif ($ENV{'REQUEST_METHOD'} eq "POST") 
{read(STDIN,$in,$ENV{'CONTENT_LENGTH'});} 
else { 
$in = ( grep( !/^-/, @ARGV )) [0];
$in =~ s/\\&/&/g; } @in = split(/&/,$in);
foreach $i (0 .. $#in) { 
$in[$i] =~ s/\+/ /g; 
($key, $val) = split(/=/,$in[$i],2); 
$key =~ s/%(..)/pack("c",hex($1))/ge; 
$val =~ s/%(..)/pack("c",hex($1))/ge; 
$in{$key} .= "\0" if (defined($in{$key})); 
$in{$key} .= $val; } return length($in); }

#######################################

sub formatoemail {
if (index($Email, "@") < 1)  {&esquec;}
if (index($Email, ".") < 1)  {&esquec;}
if (index($Email, " ") > -1) {&esquec;}
}
sub checa {
if (!$Nome || $Nome eq ' ') {&esquec;}
}
sub esquec {
print "Location: $erro\n\n";
exit;
}

#######################################
sub segurovamp {
if ($ENV{'HTTP_REFERER'}) {
foreach $referer (@referers) {
if ($ENV{'HTTP_REFERER'} =~ /$referer/i) {
$check_referer = '1';
last;
}}}
else {$check_referer = '1';}
if ($check_referer != 1) {
print "Location: $erro\n\n";
exit;
}}

#######################################
exit;