$repstats
Error : Impossible to create directory $repstats\");";
break;
case 2;
echo "document.write(\"Erreur de creation des fichiers TXT dans $repstats
Error : Impossible to create TXT files into $repstats\");";
break;
}
exit;
}
//---------------------------------------------------------------------------------------------------
// PROGRAMME
//---------------------------------------------------------------------------------------------------
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");
// Temps actuel en secondes
$now=time();
// Creation du repertoire $repstats s'il n'existe pas
if(!is_dir("$repstats"))
{
if(!@mkdir("$repstats",0755)) {erreur(1);}
}
// Mise a jour du fichier du visiteur dans le cas [hide|show]
if ($action=="show"||$action=="hide")
{
// Nom du fichier du visiteur encours
$fichier="$repstats/$REMOTE_ADDR.txt";
// Mise a jour (date de modification du fichier utilisee) ou creation du fichier du visiteur
$fp=@fopen("$fichier","w");
if(!$fp) {erreur(2);}
fputs($fp,"");
fclose($fp);
// Suppresion des fichiers et comptage du nombre de fichiers
$nb=0;
$handle=opendir("$repstats");
while ($tmp = readdir($handle))
{
if($tmp!="." && $tmp!=".." && $tmp!="record.txt")
{
if(filemtime("$repstats/$tmp")+$laps<$now) {@unlink("$repstats/$tmp");}
else {$nb++;}
}
}
closedir($handle);
// LECTURE DU RECORD POUR VERIFICATION SI SCORE BATTU
$new_record="";
if(file_exists("$repstats/record.txt"))
{
$fp=@fopen("$repstats/record.txt","r");
if(!$fp) {erreur(2);}
while (!feof ($fp))
{
list ($cpt_tmp, $date_tmp)=split("\|",fgets($fp, 4096));
if($cpt_tmp<=$nb) {$new_record="$nb|$now";}
}
fclose ($fp);
}
else
{
// Creation du fichier record pour la premiere fois
$fp=@fopen("$repstats/record.txt","w");
if(!$fp) {erreur(2);}
fputs($fp,"$nb|$now");
fclose($fp);
}
// Ecriture du fichier record si score battu
if($new_record!="")
{
$fp=@fopen("$repstats/record.txt","w");
if(!$fp) {erreur(2);}
fputs($fp,"$new_record");
fclose($fp);
}
// Affichage du nombre de connectes
if($action=="show") {echo "document.write (\"$nb\");";}
}
// (\"$nb\");";}
//----------------------------------------------------------------------------------------------------
// CAS : ON CONSULTE LE MEILLEUR SCORE
//----------------------------------------------------------------------------------------------------
else if($action=="admin")
{
// LECTURE DU RECORD
if(file_exists("$repstats/record.txt"))
{
$fp=@fopen("$repstats/record.txt","r");
if(!$fp) {erreur(2);}
while (!feof ($fp))
{
$buffer = fgets($fp, 4096);
list ($cpt, $date)=split('\|',$buffer);
$date=date("d/m/Y à H:i",$date);
echo "
Score à battre
Votre record est : $cpt visiteurs simultanés le $date !
";
}
fclose ($fp);
}
// SI LE FICHIER N'EXISTE PAS
else
{
echo "
Nombre de connectés
Le fichier des records n'a pas encore été créé.
Vous devez appeler le script par la méthode Javascript.
Veuillez vous référer à au fichier d'aide.
The record file hasn't been created yet.
You must call this script whit the Javascript method.
Please, read the help file for further information.
";
}
}
?>