<?
$date = date("d-m-Y");                              
$name_dossier = substr($date,3,7);
$jour = substr($date,0,2);
$dossier_parent = "stats";            // Nom du dossier où sont conservées les stats
$delai = 120;                         // Délai de comptabilisation entre deux visites de la même ip


// on vérifie si le name_dossier existe ou pas


if(is_dir("$dossier_parent") && is_dir("$dossier_parent/$name_dossier"))
{

     // on vérifie l'existence du fichier du jour actuel

     if(file_exists("$dossier_parent/$name_dossier/$jour.txt"))
     {
        
       $fp=fopen("$dossier_parent/$name_dossier/$jour.txt","r");  // on ouvre le fichier du jour
       
          while(!feof($fp))
          {
             
            $vu=fgets($fp,60);      // on récupère le nbre de visiteurs de ce jour  

          }              
        
          
        fclose($fp);

 
       // nbre de caractères à parcourir


         $taille=filesize("$dossier_parent/$name_dossier/verif_$jour.txt");
         $nbre_car=ceil(($taille*4096)/100);


       // on ouvre le fichier de vérif et on regarde les couples ip|date
              
       $fp1=fopen("$dossier_parent/$name_dossier/verif_$jour.txt","r");
       
          while(!feof($fp1))
          {

              $verif=fgets($fp1,$nbre_car);
           

          } 
        
              $liste=explode("&",$verif); // on récupère les couples ip|date dans des tableaux
              $nbre=count($liste);         // on compte le nbre de couples ip|date
          
                 $i=0;
                 $j=0;    
                 
                 while($i<$nbre)
                 {

                    $temp=explode("|",$liste[$i]);
                    $tab[$j]=$temp[0];
                    $j++;
                    $tab[$j]=$temp[1];                                      
                   
                   $i++;
                   $j++;

                 }


              $nbre=count($tab);     // on compte le nbre d'éléments du tableau tab       

              $ip= $_SERVER['REMOTE_ADDR'];       
              $temps=time()-$delai;   


                $i=0;

                while($tab[$i]!=$ip && ($i+2)<=$nbre)
                {
                             
                 $i=$i+2;        
                             
                }
         
                     
                     if(($i+2)>$nbre)        // l'ip concernée n'est pas dans le fichier de vérif
                     {
                         $vu++;
                 
                         // on ajoute cette ip dans le fichier de vérif                            
                           
                           $tab[$nbre]=$ip;
                           $nbre++;
                           $tab[$nbre]=time();
           
                           $k=0;
                           $l=0;

                              while($k<($nbre/2))
                              {                 

                              $m=$l+1;
                              $liste[$k]="$tab[$l]|$tab[$m]";
                    
                              $k++;
                              $l=$l+2;


                              }

                              
                              $contenu=implode("&",$liste);
                              
                              $fp2=fopen("$dossier_parent/$name_dossier/verif_$jour.txt","w+"); 
                   

                              // On place le nouveau contenu du fichier vérif

                              fputs($fp2,$contenu); 
                              fclose($fp2);         


                     }else{
                    
                       $i++;
      
                          if($tab[$i]<$temps)
                          { 

                           $vu++;

                           // on modifie la date de cette ip
                        
           
                           $k=0;
                           $l=0;

                              while($k<($nbre/2))
                              {                 

                                   if($tab[$l]==$ip){ $change=$l+1; $tab[$change]=time(); }

                              $m=$l+1;                                        

                              $liste[$k]="$tab[$l]|$tab[$m]";
                    
                              $k++;
                              $l=$l+2;


                              }

                              
                              $contenu=implode("&",$liste);
                              
                              $fp2=fopen("$dossier_parent/$name_dossier/verif_$jour.txt","w+"); 
 

                              // On update dans le fichier vérif la date de cette ip
 
                              fputs($fp2,$contenu);
                              fclose($fp2);  
                             

                          }       

                               
                     }


       $fp=fopen("$dossier_parent/$name_dossier/$jour.txt","w+");
       fputs($fp,"$vu");
       fclose($fp);      


     }else{

      // On crée le fichier jour avec comme valeur de visiteur 1
       
  
      $fp=fopen("$dossier_parent/$name_dossier/$jour.txt","w+");
      fputs($fp,"1");
      fclose($fp);             

      $fp=fopen("$dossier_parent/$name_dossier/verif_$jour.txt","w+");
      $ip=$REMOTE_ADDR;
      $temps=time();
      fputs($fp,"$ip|$temps");
      fclose($fp);


     }     


}else{

  
   // On crée le dossier_parent et le dossier du mois

   if(!is_dir("$dossier_parent")){ mkdir("$dossier_parent"); }

   mkdir("$dossier_parent/$name_dossier");
   $fp=fopen("$dossier_parent/$name_dossier/$jour.txt","w+");
   fputs($fp,"1");
   fclose($fp);  

  
   // On crée le fichier jour avec comme valeur de visiteur 1

   $fp=fopen("$dossier_parent/$name_dossier/verif_$jour.txt","w+");
   $ip=$REMOTE_ADDR;
   $temps=time();
   fputs($fp,"$ip|$temps");
   fclose($fp);
   
  
}


?>