Просмотр файла on/online.php

Размер файла: 0.98Kb
<?
 ///////////////////////////    разработка StarWap-Group      ///////////////////////////////

Error_Reporting(E_ALL & ~E_NOTICE);
header("Content-type:text/vnd.wap.wml;charset=utf-8"); 
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
	<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
	<wml><card id=\"mas\" title=\"StarWap\"><p>";
$time=time();
$timeof=$time-500;

	$onfile="rekd/online=$on.dat";
	$online = @implode("",@file("$onfile"));  
	$online=trim($online);
	$ss = file("$onfile");
	$strok = sizeof($ss);
	$ns=0;
	$ni=0;
	while($ns < $strok)
		{$inkl=@file("$onfile");
		$unkl=explode(":||:",$inkl[$ns]);
		$timepr=trim($unkl[0]);
		$br=trim($unkl[2]);
		$adres=trim($unkl[1]);
		if($timeof<$timepr) {$ni=$ni+1; print"$ni) $br<br/>[$adres]<br/>";}
		$ns=$ns+1; }




print "<br/>* * * * *<br/><anchor>&#x41D;&#x430; &#x441;&#x430;&#x439;&#x442;<prev/></anchor><br/><br/>&#169; starwap.ru</p></card></wml>";
?>