File size: 2.88Kb
<?
////////////////////////////////////////////////////////////////////////////
//// Автор скрипта: Трофимов Дмитрий Сергеевич aka dimidrol //
//// E-mail: [email protected] //
//// Home pages: http://www.trofimov.com.ru //
//// WAP SAIT: http://trofimov.com.ru/wap/ //
////////////////////////////////////////////////////////////////////////////
header("Content-type:text/vnd.wap.wml;charset=UTF-8");
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml>
<card id=\"WAPAdmin\" title=\"Admin WAP CHAT\">";
print"
<a href=\"admin.php?trof=2\">Очистка</a>:
<a href=\"stats.php\">Статистика</a>:
<a href=\"admin.php?trof=1\">Написать в чат</a>:
";
if($trof=="1")
{
print"
<p>Ваш логин:</p>
<input title=\"login\" name=\"login\"/><br/>
<p>Сообщение:</p>
<input title=\"mess\" name=\"mess\"/><br/>
<anchor title=\"Ok\">GOTOBO
<go href=\"admin.php?trof=ad\" method=\"post\">
<postfield name=\"login\" value=\"$(login)\"/>
<postfield name=\"mess\" value=\"$(mess)\"/>
</go>
</anchor>";
}
if($trof=="ad")
{
$text = "$login::$mess";
$fp=@fopen("chat.txt","a");
@fputs($fp,"$text \r\n");
@fclose($fp);
print"<p>Ваше сообщение показалось в чате!</p>";
}
if($trof=="2")
{
print"
<br/>
<a href=\"admin.php?trof=3\">Очистить базу чата</a><br/>
<a href=\"admin.php?trof=4\">Очистка показаний счетчика</a><br/>";
}
if($trof=="3")
{
$fp = fopen("chat.txt","w+");
echo "<p>Задача успешно выполнена!</p>";
}
if($trof=="4")
{
$fp = fopen("counter.txt","w+");
echo "<p>Задача успешно выполнена!</p>";
}
print "
</card>
</wml>";
?>