Просмотр файла wapp_antifront.com/chat/online.php

Размер файла: 713B
<?

$ttime=time();
$ofti=$ttime-200;
$ss = @file("$rek/online.txt");
$strok = sizeof($ss);
$nko=0;
$tpo=0;
while($nko<=$strok){
$text=@file("$rek/online.txt");
$text=explode(":||:",$text[$nko]);
$tza=trim($text[0]);
$logoni=trim($text[1]);
$meo=trim($text[2]);
$komo=trim($text[3]);
if($tza>$ofti & $logoni!=$login){$zaponp[$tpo]="$tza:||:$logoni:||:$meo:||:$komo\r\n"; $tpo=$tpo+1;}
$nko=$nko+1;}

$zaponp[$tpo]="$ttime:||:$login:||:$lokpo:||:$nr\r\n";


$fp=@fopen("$rek/online.txt","w");
@fputs($fp,"");
@fclose($fp);
@chmod ("$rek/online.txt", 0777);

$nko=0;
while($nko<=$tpo){
$fp=@fopen("$rek/online.txt","a");
@fputs($fp,"$zaponp[$nko]");
@fclose($fp);
$nko=$nko+1;}


?>