Re: [Cascavel-pm] Contador Web de usuários OnLine
Gabriel Vieira
gabriel.vieira em gmail.com
Terça Junho 21 13:23:47 PDT 2005
Opa
como disse...
usufruindo do que o Perl pode nos fornecer.. apenas IP + Navegador é de
possível uso... Mas você pode utilizar os dados passados por um javascript
(resolucao, navegador, so, cores, e blablabla).
Melhor que isso? Acho difícil.
Quanto à utilização de um único arquivo para armazenamento, qual a
dificuldade?
cat ips/nome_do_site.txt
dados_do_visitante_de_preferencia_em_md5|timestamp
dados_do_visitante_de_preferencia_em_md5|timestamp
dados_do_visitante_de_preferencia_em_md5|timestamp
melhor doq utilizar a data de criação do arquivo não acha?
Não seria melhor?
#-------------------------------------------------------------------#
# online
#
#-------------------------------------------------------------------#
sub online {
my ($qtd) = (shift);
my $dir = 'online';
my $time = 60*5;
my $vqe = "ip+navegador+cores+..."; # visitante que está executando o
script no momento, no caso os dados dele em md5 para facilitar
open FH,"$dir/visitantes";
@fh = <FH>;
close(FH);
open DH,">$dir/visitantes";
foreach my $fh (@fh){
my($visitante,$tempo) = split(/\|/,$fh);
if($visitante ne $vqe){
if(time - chomp($tempo) < $time){
print DH $fh;
$qtd++;
}
}
}
print DH "$vqe|" . time , "\n";
close DH;
}
Será que ajuda em algo?
Abração!
----- Original Message -----
From: "Ednardo Lobo" <ednardo em elobo.cjb.net>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Tuesday, June 21, 2005 11:58 AM
Subject: Re: [Cascavel-pm] Contador Web de usuários OnLine
On Tue, Jun 21, 2005 at 11:18:54AM -0300, Gabriel Vieira wrote:
> Pois então...
>
> vai dependere do que ele necessita exatamente... cookie já resolve
> caso ele não necessite de 'precisão' e não se importe se deletarem...
> ;)
Necessito sim de precisão e o contador é para ser utilizado em
diferentes tipos de site. Com cookies não irá atender os propósitos!
Atualmente utilizo o seguinte código:
#-------------------------------------------------------------------#
# online #
#-------------------------------------------------------------------#
sub online {
my ($qtd) = (shift);
my $dir = 'online';
my $time = 60*5;
open FH,">$dir/$ENV{REMOTE_ADDR}";
close FH;
opendir DH,$dir;
foreach (grep /^[^\.]/,readdir DH) {
if (time - (stat "$dir/$_")[9] > $time) {
unlink "$dir/$_";
}
else
{
$$qtd++;
}
}
close DH;
}
> * Sou do tipo.. se quer fazer algo.. faça bem feito.. por isso
> analisei os pontos do 'sistema'..
Também sou assim! E é justamente por ter que estar refazendo o que
já havia feito por não levar em conta a situação envolvendo NAT que
quero encontrar uma solução que atenda plena e definitivamene a minha
necessidade. Eu mantenho vários sites e preciso de uma solução que
atenda à todos! A atual atende perfeitamente, exceto quando há um NAT no
caminho.
--
Ednardo Lobo
LOBO's NET - www.lobosnet.com
eboleto - www.eboleto.com
--
Voce ouviu falar do cara que morreu do reumatologista?
O cara tinha uma loja e acusou um médico por um crime grave. Aí o
Reumatolojista.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
Mais detalhes sobre a lista de discussão Cascavel-pm