Online Users scriptas

Ieskau paprasto scripto, kad rodytu kiek online zmoniu narso. Gal kas koki parekomenduotumet, kad kuo paprasciau idiegiamas butu?

Instrukcija ir paleidimas:

1. Sukurkite tuščia failą "online.txt".

2. Sukurkite tuščia failą "online.php" ir į jį įrašykite žemiau pateiktą skriptą.

3. Įkelkite failus į serverį ir suchmodinkite "online.txt".

<?php

// Online by Markas K. ([email protected])
// Daugiau įvairių skriptų tinklapyje www.ozas.tik.lt
// Jeigu rasite sistemoje klaidu prašome pranešti mums.

$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";
?>

iš ozas.bst.lt

Ok, dekui. Manau to ir uzteks. Dar radau keleta online su registracija, bet gerai ir sitie.