File size: 2.12Kb
<?
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=\"$zag\"><p>";
///////////// выводим вмл заголовок
if($login != ""){if($statys=="admin" || $forst=="moder"){
$ss = @file("$rek/ban.zap");
$strok = sizeof($ss);
$tbs=0;
$textb=@file("$rek/ban.zap");
while($tbs<$strok)
{$textom=@explode(":||:",$textb[$tbs]);
if($nomber==$tbs){
$plo=$textom[1];
$ppa=$textom[0];
$text=@file("$uzer/$plo.log");
$text=explode(":||:",$text[0]);
$text[1]=$ppa;
$zap="$text[0]:||:$text[1]:||:$text[2]:||:$text[3]:||:$text[4]:||:$text[5]:||:$text[6]:||:$text[7]:||:$text[8]:||:$text[9]:||:$text[10]:||:$text[11]:||:$text[12]:||:$text[13]:||:$text[14]";
$fp=@fopen("$uzer/$plo.log","wb");
@fputs($fp,"$zap\r\n");
@fclose($fp);
$ziban[$tbs]="";
} else {
$textom[1]=trim($textom[1]);
if($textom[1]!=""){$ziban[$tbs]="$textom[0]:||:$textom[1]:||:$textom[2]";} else{$ziban[$tbs]="";}}
$tbs=$tbs+1;}
$fp=@fopen("$rek/ban.zap","w");
@fputs($fp,"");
fclose($fp);
@chmod ("$rek/ban.zap", 0777);
$tshet=0;
while($tshet<$tbs){
if($ziban[$tshet]!=""){$fp=@fopen("$rek/ban.zap","a");
@fputs($fp,"$ziban[$tshet]");
@fclose($fp);}
$tshet=$tshet+1;}
print"Выполнено";
print"<br/><anchor title=\"ok\">К списку комнат
<go href=\"rum.php\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"key\" value=\"$key\"/>
</go>
</anchor>
";
}}
print "
<br/><br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>