Размер файла: 3.4Kb
<?
////////////////////////////////////////////////////////////////////////////
//// Автор скрипта: Трофимов Дмитрий Сергеевич aka dimidrol //
//// E-mail: [email protected] //
//// Home pages: http://www.trofimov.com.ru //
//// WAP SAIT: http://trofimov.com.ru/wap/ //
////////////////////////////////////////////////////////////////////////////
$messa=7; //Кол сообщений на странице чата!
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=\"tes\" title=\"CHAT\">";
if($chat=="1")
{
echo "
<p>Ваш логин в чате
<input title=\"login\" name=\"login\" maxlength=\"10\"/><br/>
<anchor title=\"Ok\">BXOD<br/>
<go href=\"chat.php?chat=ad\" method=\"post\">
<postfield name=\"login\" value=\"$(login)\"/>
<postfield name=\"mess\" value=\"вошел в ".date("H:i:s",time())."\"/>
</go>
</anchor></p>
";
$user_agent_string = getenv("HTTP_USER_AGENT");
$host = gethostbyaddr($REMOTE_ADDR);
$ip = $REMOTE_ADDR;
$date = date("d-m-Y",time());
$time = date('H:i:s',time());
$text = "$user_agent_string::$host::$date::$time::$ip";
$fp=fopen("counter.txt","a");
fputs($fp,"$text \r\n");
fclose($fp);
}
if($chat=="ad")
{
$text = "$login::$mess";
$text=strip_tags($text);
$fp=@fopen("chat.txt","a");
@fputs($fp,"$text \r\n");
@fclose($fp);
print"
<p>Вы вошли! Можете приступить к перегоровам!
<anchor title=\"add\">ЖМИТЕ сюда!<br/>
<go href=\"chat.php?chat=2\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
</go>
</anchor></p>
";
}
if($chat=="2")
{
print"
<anchor title=\"add\">Написать<br/>
<go href=\"chat.php?chat=dob\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
</go>
</anchor>
:
<anchor title=\"obn\">Обновить<br/>
<go href=\"chat.php?chat=2\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
</go>
</anchor>
";
$xfile = @file("chat.txt");
$xfile = array_reverse($xfile);
for ($i=0;$i<$messa;$i++) {
$udata = explode("::",$xfile[$i]);
print "<p><b>$udata[0]</b>:$udata[1]<br/></p>";
}
}
if($chat=="3")
{
$text = "$login::$mess";
$text=strip_tags($text);
$fp=@fopen("chat.txt","a");
@fputs($fp,"$text \r\n");
@fclose($fp);
print"
<anchor title=\"add\">Написать<br/>
<go href=\"chat.php?chat=dob\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
</go>
</anchor>
:
<anchor title=\"obn\">Обновить<br/>
<go href=\"chat.php?chat=2\" method=\"post\">
<postfield name=\"login\" value=\"$login\"/>
</go>
</anchor>
";
$xfile = @file("chat.txt");
$xfile = array_reverse($xfile);
for ($i=0;$i<$messa;$i++) {
$udata = explode("::",$xfile[$i]);
print "<p><b>$udata[0]</b>:$udata[1]<br/></p>";
}
}
if($chat=="dob")
{
echo "<p>Сообщение:
<input title=\"mess\" name=\"mess\"/><br/>
<anchor title=\"Ok\">OK<br/>
<go href=\"chat.php?chat=3\" method=\"post\">
<postfield name=\"mess\" value=\"$(mess)\"/>
<postfield name=\"login\" value=\"$login\"/>
</go>
</anchor><p/>
";
}
print "
<br/><a href=\"http://trofimov.com.ru/wap/\">WAPchat ver 0.1</a>
</card>
</wml>";
?>