<?
Error_Reporting(E_ALL & ~E_NOTICE); ///////////////
header("Content-type:text/vnd.wap.wml;charset=utf-8"); ////////
////////////// /////////////////////////////////////////////////
//$gl="ssilka_na_glavnyu"; /////////
$admin="real"; ////////
$parad="10"; ////////
//$zag="Guest book";
//////////////////////////////////////////////////////////////////////////////
$currHour=date("H");
$currDate=date("d F Y", time());
$currTime=date("$currHour:i", time());
$currDate = str_replace("January","Января",$currDate);
$currDate = str_replace("February","Февраля",$currDate);
$currDate = str_replace("March","Марта",$currDate);
$currDate = str_replace("April","Апреля",$currDate);
$currDate = str_replace("May","Мая",$currDate);
$currDate = str_replace("June","Июня",$currDate);
$currDate = str_replace("July","Июля",$currDate);
$currDate = str_replace("August","Августа",$currDate);
$currDate = str_replace("September","Сентября",$currDate);
$currDate = str_replace("October","Октября",$currDate);
$currDate = str_replace("November","Ноября",$currDate);
$currDate = str_replace("December","Декабря",$currDate);
$currDate = str_replace("2006","2006г.",$currDate);
$currDate = str_replace("2007","07",$currDate);
$currDate = str_replace("2008","08",$currDate);
$currDate = str_replace("2009","09",$currDate);
$currDate = str_replace("2010","10",$currDate);
if($parad!=$pas) {$log="";}
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=\"real-gb\"><p align=\"center\">";
/////////////
print"<b><small>$currTime</small></b>
<br/><small>$currDate</small><br/>
<small>Доброго времени суток!</small></p><p>
<anchor title=\"say\">Написать
<go href=\"say.php?log=$log&pas=$pas\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
</go>
</anchor>|
<anchor title=\"ref\">Обновить<go href=\"index.php\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"new\" value=\"$curr\"/>
</go>
</anchor>|<small>on:</small>";
include "online.php";
print"<small>*****</small><br/>";
$vsego = file("vsego.shet");
$vsego=$vsego[0];
if($nmes=="") {$nmes=$vsego;}
$kp=1;
while($kp <= 10)
{$tex=@file("zapis/$nmes.mess");
$utex=explode(":||:",$tex[0]);
$obr=trim($utex[0]);
$vrem=trim($utex[1]);
$text=trim($utex[2]);
$mail=trim($utex[3]);
$site=trim($utex[4]);
$brayz=trim($utex[5]);
$u2=trim($utex[6]);
$ip=trim($utex[7]);
$from=trim($utex[8]);
$hostex=trim($utex[9]);
if($text!=""){
if($log==$admin){print"<anchor title=\"del\">[del]
<go href=\"del.php\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nmes\" value=\"$nmes\"/>
</go>
</anchor><br/>";}
print"<img src=\"sm/post.gif\" alt=\":post\"/>";
print"<anchor title=\"say\"> $obr
<go href=\"say.php?log=$log&pas=$pas&obr=$obr\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"obr\" value=\"$obr\"/>
</go>
</anchor>
<small>($vrem)</small><br/> $text";
if($mail!=""){print"<br/>e-mail: <a href=\"mailto:$mail\">$mail</a>";}
if($site!="") {print"<br/><a href=\"$site\">$site</a>";}
print"<br/><small>[$brayz]</small>";
if($log==$admin){print"<small>[ $u2, $ip, $from, $hostex ]</small>";}
print"<br/><small>*****</small><br/>";
$kp=$kp+1;}
$nmes=$nmes-1;
if($nmes<0){$kp=20;}}
if($nmes>0){print"<anchor title=\"next\">Далее
<go href=\"index.php?nmes=$nmes\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
</go>
</anchor>";}
print"<br/><anchor title=\"say\">Написать
<go href=\"say.php\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
</go>
</anchor>";
print"<br/>©<a href=\"http://globalwap.h2m.ru/gta\">SeT</a>
</p></card></wml>";
?>