Размер файла: 4.04Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
//////////////////////////////////////////////////////////////////////////
$gl="http://da1.hoha.ru/index.wml"; /////////// ссылка на главную
$zag="Dionisij"; /////////// Загаловок
//////////////////////////////////////////////////////////////////////////
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=\"$zag\"><p>";
///////////// выводим вмл заголовок
$text = @file("profil/$log.prof");
if ($text!=""){
$udata = explode(":||:",$text[0]);
$provpar=trim($udata[1]);}
if ($par==$provpar) {
$text="0";
$fp=fopen("profil/$log.shp","w"); ///////// обнуляем счетчик
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("profil/$log.shp", 0777);
$mes = @implode("",@file("profil/$log.vps")); ///// открываем счетчик с количеством сообщений
if ($nmes=="") {$nmes=$mes;}
if ($prs!="") {$nmes=$prs;}
$nf=1; $st=$nmes;
while($nf <= 3)
{
$text = @file("privat/$log=$nmes.prmes"); /////////// выводим ссылки на деректории
$test=$text;
$udata = explode("::",$text[0]);
$uz= $udata[0];
$time= $udata[2];
$tr= $udata[1];
if ($test != "") { print "<a href=\"prof.php?uz=$uz&mest=privat&nmes=$st&log=$log&par=$par\">$uz</a> <small>[$time]</small>:<br/> $tr<br/>=======<br/>";
$nf=$nf+1;}
$nmes=$nmes-1;
if ($nmes<0) {$nf=4;}
};
$kon=$mes-2;
$nazad=$nmes+8;
if ($nmes>0) {print"<a href=\"privat.php?nmes=$nmes&log=$log&par=$par\">Далее</a>";}
print"<br/>";
$prov=$nmes+3;
if ($prov<$mes) {print"<a href=\"privat.php?log=$log&par=$par\">В начало</a>";}
print "<br/>__________<br/>";
if($log!="") {print"<a href=\"profil.php?mest=privat&razd=$razd&prazd=$prazd&tem=$tem&nmes=$nmes&log=$log&par=$par\">[$log]</a> ";} else {print"<a href=\"vxod.php?mest=mes&razd=$razd&prazd=$prazd&tem=$tem&nmes=$nmes\">[Войти]</a>";}
print"<br/>__________<br/><a href=\"index.php?log=$log&par=$par\">К форумам</a><br/><a href=\"$gl\">На главную</a><br/>";
} else{ print"Неверный пароль";}
print "</p></card></wml>";
?>