Keskustelu: Koodit: PHP: Yksinkertaistakin yksinkertasempi Kävijälaskuri

<?php
//  Laskuri
//  Voidaan liittää PHP:n Include komennolla
//  toiseen sivuun. Tämä sivu lisaa.php , lisää kävijän laskuriin.
//
//      Tekijä: Teemu I
// Määritykset:

$tiedosto = "ccv.dat";  // Asetetaan laskuritiedoston nimi muuttujaan $tiedosto.
$tiedosto2 = "kävijät.dat";  // Asetetaan asiakastietotiedoston nimi muuttujaan $2tiedosto.

if (!file_exists($tiedosto))  // Tarkistetaan onko tiedosto olemassa .
{


print "<h1>Virhe!</h1>Tiedostoa ei löydy.<BR>\n"; // Jos ei, niin tulostetaan virheilmoitus ja lopetetaan suoritus.

 }

else

 {

$osoitin = fopen($tiedosto,"a"); // Jos tiedosto löytyi, niin avataan kirjoittamista varten.
flock($osoitin, 1);
flock($osoitin, 2);  // Lukitaan tiedosto.

$lis = "|";
fwrite($osoitin,$lis);    // Kirjoitetaan tiedostoon uusi merkki.

flock($osoitin, 3);   // Puretaan lukitus
fclose($osoitin);   // Suljetaan tiedosto

if (!file_exists($tiedosto2))  // Tarkistetaan onko tiedosto olemassa.
{

print "<h1>Virhe!</h1>Tiedostoa ei löydy.<BR>\n"; // Jos ei, niin tulostetaan virheilmoitus ja lopetetaan suoritus.

}
else
{
$osoitin = fopen($tiedosto2,"a"); // Jos tiedosto löytyi, niin avataan kirjoittamista varten.
flock($osoitin, 1);
flock($osoitin, 2);  // Lukitaan tiedosto.
if(!$_SERVER["HTTP_REMOTE_HOST"])
 {
     $hosti = gethostbyaddr($_SERVER['REMOTE_ADDR']);

  }
   else

  {

  $hosti= $_SERVER["HTTP_REMOTE_HOST"];

  }
$agentti = $_SERVER["HTTP_USER_AGENT"];
$kieli = $_SERVER["HTTP_ACCEPT_LANGUAGE"];
$linja=" \n Nimi: ".$hosti." Selain/Järjestelmä: ". $agentti." Kieli: " .$kieli ." \n ";
 fwrite($osoitin,$linja);
 flock($osoitin, 3);   // Puretaan lukitus
fclose($osoitin);   // Suljetaan tiedosto
}
}


?>

<?php
//  Laskuri
//  Voidaan liittää PHP:n Include komennolla
//  toiseen sivuun. Tämä sivu lue.php , palauttaa kävijät numeroina.
//
//      Tekijä: Teemu I
$tiedosto = "ccv.dat";  // Asetetaan tiedoston nimi muuttujaan $tiedosto.


if (!file_exists($tiedosto))  // Tarkistetaan onko tiedosto olemassa .

{
print "<h1>Virhe!</h1>Tiedostoa ei löydy.<BR>\n"; // Jos ei, niin tulostetaan virheilmoitus ja lopetetaan suoritus.
exit;

}

else

{

$osoitin = fopen($tiedosto,"r+");   // Avataan tiedosto.
flock($osoitin, 1); // Lukitaan se.
$tiedostonsisalto = fgets($osoitin, 999999);
print "\n".ftell($osoitin)."\n";
flock($osoitin, 3);  // Puretaan lukitus
fclose($osoitin); // Suljetaan tiedosto
}
?>