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

Размер файла: 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=\"&#x0421;&#x043E;&#x043E;&#x0431;&#x0449;&#x0435;&#x043D;&#x0438;&#x044F;\"><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\">&#x0414;&#x0430;&#x043B;&#x0435;&#x0435;
<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\">&#x0412; &#x043D;&#x0430;&#x0447;&#x0430;&#x043B;&#x043E;
<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"&#x041D;&#x0435;&#x0432;&#x043E;&#x0437;&#x043C;&#x043E;&#x0436;&#x043D;&#x043E;";}

print "<br/><anchor title=\"ok\">&#x0412;&#x0435;&#x0440;&#x043D;&#x0443;&#x0442;&#x0441;&#x044F;
<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\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>
</p></card></wml>";

?>