File size: 2.41Kb
<?
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"; ///////// заголовок
//////////////////////////////////////////////////////////////////////////////
$currHour=date("H",time());///////////формат даты и времени
$currDate=date("dS F, Y", time());
$curr=date("i:s", time());
$currTime=date("$currHour:i:s", 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\">
<p>";
///////////// выводим вмл заголовок
$tex=@file("zapis/$nmes.mess");
$utex=explode(":||:",$tex[0]);
$obr=trim($utex[0]);
$text=trim($utex[2]);
$coment5=trim($utex[7]);
print"
<b>$obr</b>, сказал:<br/>
$text
<br/>Комментарий:
<br/><input name=\"commenttext\" maxlength=\"500\" value=\"$(coment5)\"/><br/>
";
print" <anchor title=\"ok\">Готово
<go href=\"addcomm.php\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
<postfield name=\"commenttext\" value=\"$(commenttext)\"/>
<postfield name=\"nmes\" value=\"$nmes\"/>
<postfield name=\"obr\" value=\"$obr\"/>
</go>
</anchor><br/>
<br/><anchor title=\"ok\">В гостевую
<go href=\"index.php\" method=\"post\">
<postfield name=\"log\" value=\"$log\"/>
<postfield name=\"pas\" value=\"$pas\"/>
</go>
</anchor><br/>
<a href=\"smile.php?op=smile\">Справка по смайлам</a><br/>
";
print "
<br/><a href=\"$gl\">На главную</a><br/>
</p></card></wml>";
?>