File size: 2.92Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
include 'dan.php';
include 'uzdan.php';
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=\"Сообщения\"><p>";
///////////// выводим вмл заголовок
if($login!=""){
$zap="$login:||:$pas:||:$sex:||:$let:||:$zhivet:||:$osebe:||:$orent:||:$mail:||:$sajt:||:$zvanie:||:$forst:||:$ksoc:||:0:||:$kss:||:$timeobn";
$fp=@fopen("$uzer/$login.log","wb");
@fputs($fp,"$zap\r\n");
@fclose($fp);
$ss = @file("$papkap/$login.zap");
$strok = sizeof($ss);
if($nmn==""){$nmn=0;}
$ts=$nmn;
$kp=0;
while($kp<$prk){
$text=@file("$papkap/$login.zap");
$text=explode(":||:",$text[$ts]);
$data=trim($text[0]);
$data=$data+$forumtime;
$time= date("d M , H:i", $data);
$imja=trim($text[1]);
$pmes=trim($text[2]);
if($imja!="" & $pmes!=""){print"<b>
<anchor title=\"ok\">$imja
<go href=\"say.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"obr\" value=\"$imja\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor>
</b> <small>[$time]:</small><br/> $pmes<br/><br/>"; $kp=$kp+1;}
if($ts>$strok){$kp=$prk+1;}
$ts=$ts+1;}
$nmn=$ts;
if($ts<$strok){print"<anchor title=\"next\">Далее
<go href=\"privat.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"mesto\" value=\"$mesto\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"nmn\" value=\"$nmn\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor><br/>";}
if($ts>$prk){print"<anchor title=\"back\">В начало
<go href=\"privat.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"mesto\" value=\"$mesto\"/>
<postfield name=\"key\" value=\"$key\"/>
</go></anchor><br/>";}
} else {print"Невозможно";}
print "<br/><anchor title=\"ok\">Вернутся
<go href=\"$mesto.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"nr\" value=\"$nr\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor><br/>
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>