File size: 5.18Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
////////////// Параметры книги /////////////////////////////////////////////////
$gl="ssilka_na_glavnyu"; /////////ссылка на главную
$admin="Admin"; ////////админ
$parad="admin"; ////////пароль админа
$zag="Guest book"; ///////// заголовок
$ydal="100"; ///////// количество сообщений оствляемых на сервере. Если вы хотите, чтобы оставлялись все сообщения, то оставьте =""
//////////////////////////////////////////////////////////////////////////////
$u1=getenv('HTTP_USER_AGENT');
$brayz=strtok($u1,'/');
$currHour=date("H",time());///////////формат даты и времени
$currDate=date("dS F, Y", time());
$curr=date("i:s", time());
$currTime=date("$currHour:i:s", 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=\"index.php?log=$log&pas=$pas\" >
<timer value=\"20\"/><p>";
///////////// выводим вмл заголовок
if ($delname==true) {
$vsegodel = file("vsego.shet");
$vsegodel=$vsegodel[0];
$nmesdel=$vsegodel;
$kpdel=1;
$tmpdl=0;
while($kpdel <= $vsegodel)
{$tex=@file("zapis/$kpdel.mess");
$utex=explode(":||:",$tex[0]);
$obr=trim($utex[0]);
if ($obr==$namedel) { unlink ("zapis/$kpdel.mess");
$tmpdl=$tmpdl+1;
}
$kpdel=$kpdel+1;}
print "Сообщений удалено: $tmpdl";
}
elseif ($delnumber==true) {
$vsegodel = file("vsego.shet");
$vsegodel=$vsegodel[0];
$nmesdel=$vsegodel;
$kpdel=1;
$tmpdl=0;
if (strpos($number, "-")==true)
{
$ntemp=explode("-",$number);
$number1=trim($ntemp[0]);
$number2=trim($ntemp[1]);
for ($kpdel=$number1; $kpdel <= $number2;)
{$tex=@file("zapis/$kpdel.mess");
$utex=explode(":||:",$tex[0]);
$obr=trim($utex[0]);
if (is_writeable("zapis/$kpdel.mess"))
{unlink ("zapis/$kpdel.mess");
$tmpdl=$tmpdl+1;
}
$kpdel=$kpdel+1;}
print "Сообщений удалено: $tmpdl";
}
}
else {
if($log!=""){unlink ("zapis/$nmes.mess");
print"Сообщение удалено";}
else{print"Произошла ошибка при удалении сообщения. Возможно, у вас недостаточно прав чтобы это сделать, удалять сообщения может только администратор.";}
};
print "
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>