<?
Error_Reporting(E_ALL & ~E_NOTICE);
$provpar = @implode("",@file("parol/$nom.dionisij"));
$provpar = trim("$provpar");
If($provpar==$pas) {
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');
$glav = @implode("",@file("konfig/$nom.dionisij"));
$glav = trim("$glav");
if ($tr==5) {
$trans1= array("CH","SH","IU","IA","A","B","V","G","D","E","ZH","Z","I","K","L","M","N","O","P","R","S","T","U","F","H","C","Y","ch","sh","iu","ia","a","b","v","g","d","e","zh","z","i","k","l","m","n","o","p","r","s","t","u","f","h","c","'","y","J","j"
);
$trans2= array("Ч","Ш","Ю","Я","А","Б","В","Г","Д","Е","Ж","З","И","К","Л","М","Н","О","П","Р","С","Т","У","Ф","Х","Ц","Ы","ч","ш","ю","я","а","б","в","г","д","е","ж","з","и","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ь","ы","Й","й"
);
$mess=str_replace($trans1,$trans2,$mess);
};
$currHour=date("H",time());
$currDate=date("dS F, Y", time());
$currTime=date("$currHour:i:s", time());
$yv=$obr;
$obr = $login;
$af = @implode("",@file("af/$nom.txt"));
if ($yv!="") {$yv="$yv, ";};
$text = "
<b>
Ответ:
</b><br/>
$mess
<br/>=:=:=:=:=:=<br/>";
$mess= trim($mess);
$af = trim($af);
if ($mess==$af)
{$mess=$pus;};
if ($mess != "") {
$fp=fopen("rek/$otv=$nom.txt","a"); ////////////// измени название деректории rekord
fputs($fp,"$text \r\n");
fclose($fp);
$fp=fopen("af/$nom.txt","w");
fputs($fp,"$mess \r\n");
fclose($fp);
};
header("Content-type:text/vnd.wap.wml;charset=utf-8");
print "<?xml version=\"1.0\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml>
<card id=\"tes\" title=\"wapbyka\" ontimer=\"admy.php?new=$id&nom=$nom&pas=$pas\" >
<timer value=\"1\"/>
<p>
Ответ добавлен!<br/>
<a href=\"guest.php?new=new&nom=$nom\">Почитать гостевую</a><br/>
<a href=\"$glav\">На главную</a><br/>
</p>
</card>
</wml>"; ///////////////// последняя ссылка - на главную
};
?>