ccgpirado Postado Junho 10, 2004 Denunciar Share Postado Junho 10, 2004 Quando eu coloco algo em cgi no Tripod a página fica assim:Clique aqui pra verPorque fica assim? se algum uder me ajudar fico grato desde já. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 GhP Postado Junho 10, 2004 Denunciar Share Postado Junho 10, 2004 o site não abreabraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ccgpirado Postado Junho 12, 2004 Autor Denunciar Share Postado Junho 12, 2004 Já que não abre eu coloco aqui:#!/usr/bin/perl ################################################################################################ print"Content-type: text/html\n\n"; require"config.pl"; ############################################################################################### ############################################################################################### ############################################################################################### ############################################################################################### ############################### Gera Dados para a tabela $$#################################### ############################################################################################### ############################################################################################### ############################################################################################### if($in{'action'} eq "selos"){ &print('selos.htm'); }elsif($in{'action'} eq "premios"){ &print('premios.htm'); }elsif($in{'action'} eq "regras"){ &print('regras.htm'); }elsif($in{'action'} eq "vencedores"){ &print('vencedores.htm'); } opendir(L,$userdir)||do{&html('Erro ao abrir diretório de usuários');exit;}; @files=readdir(L); closedir(L); $t=0; $r=0; if(!$in{'categoria'} or $in{'categoria'} eq "Geral" ){ @fill=@files; $pst="Ranking Geral"; }else{ $pst="Ranking - ".$in{'categoria'}; opendir(LOC,$userdir); @arqs=readdir(LOC); closedir(LOC); foreach $arqs(@arqs){ ($a,$b)=split(/\./,$arqs); $tvar=""; if($b eq $extcadastro){ $tpm=$userdir.$a.'.'.$b; @idf[$r]=$a; $r++; open(K,$tpm); @tvar=; close(K); foreach $tv(@tvar){ $tvar=$tvar.$tv; } @campos=split(/\|+&+\|/,$tvar); $cat{$a}=@campos[5]; } } $categoria=$in{'categoria'}; $s=0; $g=0; foreach $idf(@idf){ #print"$cat{$idf}-"; if($in{'categoria'} eq $cat{$idf}){ @fill[$s]=$idf.'.'.$extvoto; $s++; } } } foreach $files(@fill){ ($arq,$ext)=split(/\./,$files); if($ext eq $extvoto){ $loc=$userdir.$arq.'.'.$extvoto; open(L,$loc); $voto=; close(L); @ids[$t]=$arq; @votos[$t]=$voto; $voto{$arq}=$voto; $t++; } } if($t==0){ &html(' Ainda não obtivemos nenhum cadastro '); exit; } ############################################################################################### @cliques2=@votos; @id2=@ids; foreach $cliques2(@cliques2){ $valor=0; if($cliques>0-1){ $cont2=0; &vermaior; } } sub vermaior{ foreach $cliques2(@cliques2){ $not=1; foreach $cl(@cliques2){ if( $cliques2<$cl ){ $not=0; } } if( ($not!=0) && ($cliques2!=-1) ){ @clique[$contvar]=$cliques2; @id[$contvar]=@id2[$cont2]; $contvar++; @cliques2[$cont2]=-1; } $cont2++; } } ############################################################################################### ############################################################################################### ############################################################################################### ############################################################################################### ###############################$$$$$$$$$$$$$$$$$$$$$$$$$$$$#################################### ############################################################################################### ############################################################################################### ############################################################################################### $h=0; foreach $g(@id){ $tt=""; $rrt=$userdir.$g.'.'.$extcadastro; open(A,$rrt)||do{&html('Erro ao gerar ranking');exit;}; @re=; close(A); foreach $re(@re){ $tt=$tt.$re; } @dsd=split(/\|+&+\|/,$tt); @website[$h]=@dsd[2]; @url[$h]=@dsd[3]; $h++; } $r=0; $q=$in{'p'}*10; $u=$q+10; $tdy=0; foreach $id(@id){ $tdy++; } $outro=$tdy; $pages=0; while ($outro>10){ $outro-=10; $pages++; } $h=0; @conteudo[$h]= qualquer~ < Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 GhP Postado Junho 13, 2004 Denunciar Share Postado Junho 13, 2004 alguém consegue entender isso???????/pois eu não consigo hehehedepois falam que eu sou desorganizado na programaçãoisso por que não conhecem que fez esse code aiheheheabraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 lxl_igor_lxl Postado Julho 10, 2004 Denunciar Share Postado Julho 10, 2004 se o seu for feito em php,cgi,perl o tripod pode não suportar nenhum disso esse pode ser o problema ,checa no site do tripod se eles suportam cgi. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ccgpirado
Quando eu coloco algo em cgi no Tripod a página fica assim:
Clique aqui pra ver
Porque fica assim? se algum uder me ajudar fico grato desde já.
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.