File size: 2.78Kb
<?
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!=""){$imja=$log; }
//if($imja=="") {$ntext="";}
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=\"10\"/><p>";
if($commenttext!=""){
$tex=@file("zapis/$nmes.mess");
$utex=explode(":||:",$tex[0]);
$obr=trim($utex[0]);
$vrem=trim($utex[1]);
$text=trim($utex[2]);
$mail=trim($utex[3]);
$site=trim($utex[4]);
$ipload=trim($utex[5]);
$brayz=trim($utex[6]);
$fp=fopen("zapis/$nmes.mess", "wr+");
$tempstr=fgets($fp);
$tempstr=trim($tempstr);
//$tempstrlen= strlen($tempstr)-1;
//$tempstr=
$zapis="$obr:||:$vrem:||:$text:||:$mail:||:$site:||:$ipload:||:$brayz:||:$commenttext";
fclose($fp);
$fp=fopen("zapis/$nmes.mess", "w");
fputs($fp,"$zapis \r\n"); ////////////////// создание нового файла с сообщением с именем номера этого файла
fclose($fp);
if($ydal!=""){$del=$me-$ydal;
if($del>=1){unlink ("zapis/$del.mess");}}
print"Комментарий добавлен";}
else{print" Error 11 ";}
print " <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>";
?>