File size: 4.2Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE);
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');
//////////////////////////////////////////////////////////////////////////
$gl="http://da1.hoha.ru/index.wml"; /////////// ссылка на главную
$zag="Dionisij"; /////////// Загаловок
//////////////////////////////////////////////////////////////////////////
$currHour=date("H",time());
$currDate=date("dS F, Y", time());
$currTime=date("$currHour:i", time());
$text = @file("profil/$log.prof");
if ($text!=""){
$af = @implode("",@file("rek/$razd=$prazd.af"));
$af=trim($af);
$nt=trim($nt);
if($af==$nt) {$nt="";}
$udata = explode(":||:",$text[0]);
$provpar=trim($udata[1]);}
if($par!=$provpar) {$log=""; $nt="";}
if($log=="") {$nt="";}
$nt = htmlspecialchars(stripslashes($nt));
if($nt!=""){
$counter_array = file("rek/$razd=$prazd.tem");
$id = $counter_array[0]+1;
$fp = @fopen("rek/$razd=$prazd.tem","wb");
@fputs($fp,$id);
@fclose($fp);
$mes=$id;
$fp=fopen("rek/$razd=$prazd=$mes.sort","w"); ///////// cоздаём файлы
fputs($fp,"$mes \r\n");
fclose($fp);
chmod ("rek/$razd=$prazd=$mes.sort", 0777);
$nol=0;
$fp=fopen("rek/$razd=$prazd=$mes.mes","w"); ///////// cоздаём файлы
fputs($fp,"$nol \r\n");
fclose($fp);
chmod ("rek/$razd=$prazd=$mes.mes", 0777);
$fp=fopen("rek/$razd=$prazd.af","w"); ///////// cоздаём файлы
fputs($fp,"$nt \r\n");
fclose($fp);
chmod ("rek/$razd=$prazd.af", 0777);
$zap=":||:$mes:||:$nt:||:$currDate / $currTime:||:$log:||:$mes";
$fp=fopen("rek/$razd=$prazd=$mes.kt","w"); ///////// cоздаём файлы
fputs($fp,"$zap \r\n");
fclose($fp);
chmod ("rek/$razd=$prazd=$mes.kt", 0777);
}
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=\"$zag\" ontimer=\"otvet.php?razd=$razd&prazd=$prazd&tem=$mes&log=$log&par=$par\" > ";
if($nt!=""){print"<p><timer value=\"5\"/>Тема $nt создана!<br/>";} else{print"<p><timer value=\"900000\"/>Произошла ошибка при создании темы.<br/>";}
print"<a href=\"$gl\">На главную</a><br/>
</p>
</card>
</wml>"; ///////////////// последняя ссылка - на главную
?>