Ir para conteúdo
Fórum Script Brasil
  • 0

Tripod


ccgpirado

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

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~

<

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...