Parašė shit-· 2009 Lie. 25 03:07:00
#6
$ip = $REMOTE_ADDR; // Duomenys rusiuojami pagal IP.
$duomenys = "online.txt"; // Irasymo duomenys.
$time_out = 120; // Kas kiek laiko tikrins (Sekund.)
$time = time(); // Dabartinis laikas.
$timeout = $time - $time_out; // Tikrinimo laikas.
$arr = file($duomenys);$h = fopen($duomenys, "a");
$fp_isvaloma = fopen ($duomenys, "w+");
fwrite ($fp_isvaloma, "");fclose ($fp_isvaloma);
for($i = 0; $i < count($arr); $i++){
list($name, $time_failo) = explode("|", $arr[$i]);
if ($name != ""){if ($name != $ip){
if ($time_failo > $timeout){fwrite ($h, $arr[$i]);
}}}}fclose ($h);$irasas = "$ip|$time|\n";
$fp_irasas = fopen ($duomenys, "a+");
fwrite ($fp_irasas, $irasas);fclose ($fp_irasas);
$failas = $duomenys;$arr = file($failas);
$online_skaicius = count($arr);
// Rezultatas:
print"Dabar narso $online_skaicius";
?>
Redagavo shit-· 2009 Lie. 25 03:07:08