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

Размер файла: 2.22Kb
<?

                    //                                      //////             //                                                //                        //           //
                    //                                      //       //                          //            /////                     /////                 
                    /////    \\        //          //        //         //       //    //        //     //      //     //               //           //
                    //   //     \\     //           //          //       //    //         //      //      //     //      //////     //           // 
                    //   //       \\ //             //        //         //      //    //         //      //     //               //     //           //
                    /////         \//               //////            //         //               //      //     //     /////        //           //  
                                         //                                                                                                                                    /////
                                        //

                  ///////////////////////////      [email protected]      ///////////////////////////////                         

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=\"Top\"><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/><a href=\"index.php?tm=$tm\">&#x0420;&#x0435;&#x0439;&#x0442;&#x0438;&#x043D;&#x0433;</a><br/>
<a href=\"http://safonoff.wab.ru\">SafonoFF</a></p></card></wml>";
?>