 |
 |
Date de mise à jour8/19/04
|
|
|
| Petites annonces |
| Boots |
| N° |
Article |
Marque |
Taille |
Etat |
Prix |
Commentaire |
Tel |
Email |
Nom |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Bottes |
| N° |
Article |
Marque |
Taille |
Etat |
Prix |
Commentaire |
Tel |
Email |
Nom |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Casques |
| N° |
Article |
Marque |
Taille |
Etat |
Prix |
Commentaire |
Tel |
Email |
Nom |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Pantalons |
| N° |
Article |
Marque |
Taille |
Etat |
Prix |
Commentaire |
Tel |
Email |
Nom |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Vestes |
| N° |
Article |
Marque |
Taille |
Etat |
Prix |
Commentaire |
Tel |
Email |
Nom |
|
|
|
|
|
|
|
|
|
|
| Selleries diverses |
| N° |
Article |
Marque |
Taille |
Etat |
Prix |
Commentaire |
Tel |
Email |
Nom |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| <script language="javascript" src="http://www.equitation-normandie.com/compteur.cgi"></script> |
|
|
# Nom du fichier contenant le nombre de visiteurs :
$fichier="compteur.dat";
# Nom du fichier contenant la liste des adresses ip :
$fic_ip="ip.dat";
# Nombre d'heures avant qu'un visiteurs ne puissent etre recomptÈ :
$temps="12";
# FIN DE LA CONFIGURATION (Il est interdit de changer les lignes ci dessous)
############################################################################
############################################################################
############################################################################
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'})
{$buffer = "$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;
$VALUE{$name} = $value;
$Form{$name} .= "\0" if (defined($Form{$name}));
$Form{$name} .= "$value";
}
$adresse_ip = $ENV{'REMOTE_ADDR'};
$heure_debut=time;
$heure_fin= time - ($temps*3600);
print "Content-type: text/html\n\n";
if (!open (FILE, "$fichier")) { $visiteurs = "Le fichier $fichier n'existe pas ou les droits ne sont pas corrects"; goto SUITE; }
open (FILEIP, "$fic_ip");
flock (FILEIP, 1);
@ip = <FILEIP>;
flock (FILEIP, 8);
close (FILEIP);
open (FILEIP, ">$fic_ip");
flock (FILEIP, 2);
$ajouter=1;
foreach $ligne (@ip)
{
($ip,$temps) = split (/\|/, $ligne);
if ($adresse_ip ne $ip && $temps >= $heure_fin) { print FILEIP "$ip\|$temps\|\n"; }
if ($adresse_ip eq $ip && $temps >= $heure_fin) { $ajouter=0; print FILEIP "$ip\|$heure_debut\|\n"; }
}
if ($ajouter eq 1) { print FILEIP "$adresse_ip\|$heure_debut\|\n"; }
else { &afficher; }
flock (FILEIP, 8);
close (FILEIP);
open (FILE, "+<$fichier");
flock (FILE, 2);
$visiteurs = <FILE>;
$visiteurs++;
seek (FILE,0,0);
print FILE ("$visiteurs");
close (FILE);
flock (FILE, 8);
SUITE:
print qq|document.write ("$visiteurs")|;
exit;
sub afficher
{
close (FILEIP);
open (FILE, "$fichier");
flock (FILE, 1);
$visiteurs = <FILE>;
close (FILE);
flock (FILE, 8);
print qq|document.write ("$visiteurs")|;
exit;
}
|
|
|
|
|
|
|
|
|