Размер файла: 5.18Kb
- <?
-
- // ////// // // // //
- // // // // ///// /////
- ///// \\ // // // // // // // // // // // //
- // // \\ // // // // // // // // // ////// // //
- // // \\ // // // // // // // // // // // //
- ///// \// ////// // // // // // ///// // //
- // /////
- //
-
- /////////////////////////// dionisij@nm.ru ///////////////////////////////
-
-
-
- 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>";
-
- ?>