File size: 2.21Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
////////////// Параметры книги /////////////////////////////////////////////////
$gl="../index.php"; /////////ссылка на главную
$admin="Admin"; ////////админ
$parad="admin"; ////////пароль админа
$zag="Guest book"; ///////// заголовок
$ydal=""; ///////// количество сообщений оствляемых на сервере. Если вы хотите, чтобы оставлялись все сообщения, то оставьте =""
//////////////////////////////////////////////////////////////////////////////
$u1=getenv('HTTP_USER_AGENT');
$brayz=strtok($u1,'/');
$currHour=date("H",time());///////////формат даты и времени
$currDate=date("d-m-y", time());
$curr=date("i", time());
$currTime=date("$currHour:i", time());
$vrem=time();
if($log!=$admin){$log="";}
if($pas!=$parad) {$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=\"$zag\" ontimer=\"bannview.php?log=$log&pas=$pas\" >
<timer value=\"10\"/><p>";
///////////// выводим вмл заголовок
if($log==$admin) {
$ftmp=fopen("temp.mess","w");
if ($name==true)
{
$fnn=fopen("bann.mess","r+");
while (!feof($fnn))
{
$bann1=trim(fgets($fnn));
if ($bann1!==$bannd)
{
fwrite($ftmp, $bann1);
}
}
copy("temp.mess","bann.mess");
print "Банн отменен";
}
if($ip==true) {
$fnn=fopen("banip.mess","r+");
while (!feof($fnn))
{
$bann2=trim(fgets($fnn));
if ($bann2!==$bannd)
{
fwrite($ftmp, $bann2);
}
}
copy("temp.mess","banip.mess");
print "Банн отменен";
}
}
print "
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>