Top sites

[Tjda]

Ola esprero estar a postar no sitio certo

Bem eu queria construir um top sites no meu site mas não percebo muito ou nada de programaçao e precisava de uma ajudinha vossa  

sakei hoje o top site que se chama Iron Scripts Top Sites - Versão 1.0 ele até parece ser facil de configurar o fixeiro cofing até tem instruçoes em pt mas eu não vou lá não concigo  :verymad: falta sempre qualquer promenor e eu não sei qual  :?:  :?:

Gostava que me ajudassem pk eu gostava de ter um top sites no meu site :wink:

Se for necessario deixo aqui o codigo confing já alterado por mim

Code Select Expand

######################### Configurações Principais

$userdir="/public_html/14012005_[plug]_topsitesv10/users/";  

## Diretório onde serão gravadas as informações de cadastro e log

## Utilizar path, com / no final



$pagedir="/public_html/index.htm/";

## Dietório onde ficarão as páginas HTML

## Utilizar path, com / no final



$layout="//public_html/14012005_[plug]_topsitesv10/layout.htm";  

## Layout do topsites, utillize o readme para maiores informações

## Utilizar path



$categorias="/public_html/14012005_[plug]_topsitesv10/pages/categorias.txt";   ## categorias do topsites

## Arquivo de categorias

## Utilizar path



$script="http://www.biovolt.gethost4you.com/public_html/14012005_[plug]_topsitesv10/top.cgi";

## URL para o arquivo principal do top site

## URL Completa



$httptop="http://www.biovolt.gethost4you.com/public_html";

## URL para o diretório onde ficará o topsites

## Não utilize barra, utilize url completa



######################### Administração

$admpassword="";

## Senha Administrativa



$admfile="admfile.inf";

## Arquivo usado para login, atenção, esse arquivo nao acompanha o topsites,

## sendo riado quando você acessar a administração

## utilizar path

##### entre na administraçãop pelo admin.cgi



######################### Selos

$dirselos="http://www.biovolt.gethost4you.com/public_html/14012005_[plug]_topsitesv10/selos";

## Endereço http para o diretório onde ficarão os selos

## Não utilizar barra no final

$selodef="selo.gif";  

## Selo principal do topsites

## deve ficar no diretório de selos, não se deve usar url completa para o mesmo



####################### Extensões referentes aos arquivos de cadastro, não e necessário alterar

$extcadastro="cad";

$extlog="log";

$extvoto="votos";

$extprot="extprot";



####################### Configuração da fonte default

$fonte="verdana, arial";

$size="1";



####################### Configurações de Email

$mail_prog="/usr/sbin/sendmail";

## Programa de email



$mailadmin="tjda-21@hotmail.com";

# Email administrativo, utilizar sempre um  antes do @



########################### Configuração dos rankings

### Célula 1 - Título

$pfonte="Verdana, arial"; ## fonte da celula referente ao título

$ptamanho=1; ##tamanho da fonte referente ao título

$pfontecolor="#FFFFFF";  ## cor referente a fonte do título

$pfcolor="#000080";  ## cor de fundo referente a célula do título



### Célula 2 - Dados

$bfonte="Verdana, arial"; ## fonte da celula referente a célula de dados tipo1

$btamanho=1; ## tamanho da fonte referente a célula tipo 1

$bfontecolor="#FFFFFF";  ## cor referente a fonte referente a célula tipo 1

$bfcolor="#0000FF";   ## cor de fundo referente a célula tipo1



### Célula 3 - Dados

$cfonte="Verdana, arial"; ## fonte da celula referente a célula de dados tipo1

$ctamanho=1; ## tamanho da fonte referente a célula tipo 1

$cfontecolor="#FFFFFF";  ## cor referente a fonte referente a célula tipo 1

$cfcolor="#9B9BFF";   ## cor de fundo referente a célula tipo1



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

##################################### Não mexa depois daqui #####################################

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





################### Imprime Página

sub html{

local(@printpage) = @_;

open(LOC,$layout);

@linhas=;

close(LOC);



foreach $linha(@linhas){

if($linha =~ ""){

  ($rt,$rz)=split(//,$linha);

print $rt;

print @printpage;

print $rz;

}elsif($linha =~ ""){

  ($rt,$rz)=split(//,$linha);

print $rt;

open(L,$categorias);

  @catv=;

close(L);

foreach $catv(@catv){

$catv =~ s/n//;

print"$catv";

}

print $rz;

}else{

print"$linha";

}

}



}



################### Formulário



   read(STDIN, $buffer, $ENV{\\'CONTENT_LENGTH\\'});

   if (length($buffer) < 5) {

$buffer = $ENV{QUERY_STRING};

}

 

  @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;

 $form{$name} = $value;

 $in{$name} = $value;

   }



1; :wink:

[Tjda]

Ajudem-me !!!!!!!!!!!!!!!! :|