View file includes/service/gbfree.php

Свежие Креативы и море позитива !!!
File size: 8.63Kb
<?php
error_reporting(7);

$name=explode('.',$_SERVER['HTTP_X_FORWARDED_HOST']);
$user=strtolower($name[0]);
$domain=strtolower($name[1]);
$path='/home/kmx/www/sites/'.$domain.'/'.$user;
if (!is_dir($path)) {header('Location: http://kmx.ru/?not_found');exit;}

$nocache=rand(100,999);

include('/home/kmx/includes/function_string.inc');
$site=$user;
$wmlfile='gbfree.wml';
$data['num']=130;
include('/home/kmx/includes/rand_reklama.php');
$reklama=cyr2utf($reklama);

touch($path.'/gb-free-setting.dat');
$f=fopen($path.'/gb-free-setting.dat','r+');
$setting[]=trim(fgets($f,65536));
$setting[]=trim(fgets($f,65536));
$setting[]=trim(fgets($f,65536));
$setting[]=trim(fgets($f,65536));
$setting[]=trim(fgets($f,65536));
fopen($f);

$name=strtoupper($user).'-Р“РѕСЃС‚РµРІР°СЏ РєРЅРёРіР°';
if ($setting[0]!='') $name=htmlspecialchars($setting[0]);

$begin_text=$setting[1];

$end_text=$setting[2];

$separate_text='- - - - -';
if ($setting[3]!='') $separate_text=$setting[3];

$name=strtoupper($user).'-Р“РѕСЃС‚РµРІР°СЏ РєРЅРёРіР°';
if ($setting[0]!='') $name=htmlspecialchars($setting[0]);

Header("Content-type:text/vnd.wap.wml; charset=Utf-8");
Header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
Header("Cache-Control: no-cache, must-relative");

$wml='<?xml version="1.0" encoding="Utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml_1.2.xml"><wml>';
#	if ($offservice) die ($wml.'<card id="gb" title="'.$name.'"><p align="center">Р”Р°РЅРЅР°СЏ СѓСЃР»СѓРіР° Р°РІС‚РѕСЂРѕРј СЃР°Р№С‚Р° РЅРµ Р·Р°РєР°Р·Р°РЅР°...<br/><anchor>РќР°Р·Р°Рґ<prev/></anchor></p></card></wml>');

touch($path.'/gb-free-antiflood.dat');
touch($path.'/gb-free-message.dat');

$command=substr($_SERVER['QUERY_STRING'],0,3);

if ($command=='nex') $page=$HTTP_GET_VARS['next']+0;
if ($page<1) $page=1;
if ($page>99) $page=1;

$userinfo=trim(substr(substr($_SERVER['REMOTE_ADDR'].str_repeat(' ',15),0,15).' '.strtoupper($_SERVER['HTTP_USER_AGENT']),0,68));
$f=fopen($path.'/gb-free-antiflood.dat','r+');
fseek($f,0,SEEK_SET);
$unical=true;
while (!feof($f))
	{
	$_timestamp=fread($f,10);
	$_userinfo=trim(fread($f,70));
	if (time()-$_timestamp>900) continue;
	$data_unical.=$_timestamp.' '.substr($_userinfo.str_repeat(' ',70),0,68)."\n";
	if ($userinfo==$_userinfo) $unical=false;
	}
ftruncate($f,0);
fseek($f,0,SEEK_SET);
fwrite($f,$data_unical);
fclose($f);

//Рисунки
$i00='<img src="." alt=""/>';
$i01='<img src="/gblogo.gif" alt="logo"/>';

//Подпись
#$tm='<br/><br/><small>РЎrРµР°ted bСѓ &#xA9;DРёmРѕn</small>';
$tm='<br/><br/><small>&#xA9;K-Media</small>';

//Начало карты
$c01='<card id="chat" title="'.$name.'">';
//Конец карты
$c98='</card>';
//Конец и деки
$c99='</card></wml>';

//Параграф с левым выравниванием
$p01='<p align="left">';
//Параграф с центральным выравниванием
$p02='<p align="center">';
//Параграф с правым выравниванием
$p03='<p align="right">';
//Закрыть параграф
$p99='</p>';

//Кнопка "назад"
$a01='<br/><anchor>РќР°Р·Р°Рґ<prev/></anchor>';
//Кнопка "на главную"
$a02='<br/><a href="http://'.$user.'.'.$domain.'.ru" accesskey="#">РќР° РіР»Р°РІРЅСѓСЋ</a>';
//Кнопка "Обновить"
$a03='<br/><a href="/gbfree.wml" accesskey="1">РћР±РЅРѕРІРёС‚СЊ</a>';
//Кнопка "Написать"
if ($unical) $a04='<br/><a href="/gbfree.wml?add" accesskey="2">РќР°РїРёСЃР°С‚СЊ</a>';
//Кнопка "Далее"
$a05='<a href="/gbfree.wml?next='.($page+1).'" accesskey="3">Р”Р°Р»РµРµ</a>';
//Кнопка "admin"
$a06='<br/><a href="/gbfree.wml?admin" accesskey="0">РЈРїСЂР°РІР»РµРЅРёРµ</a>';
//Кнопка "отправить"
$a07='<br/><anchor>РћС‚РїСЂР°РІРёС‚СЊ<go href="/gbfree.wml?post" method="post"><postfield name="n" value="$(gbnick)"/><postfield name="e" value="$(gbemail)"/><postfield name="m" value="$(m'.$nocache.')"/></go></anchor>';

//Soft-Кнопка "FAQ"
//Кнопка "Написать"
$faq='<do name="faq" type="options" label="FAQ"><go href="/gbfree.wml?'.$u.'faq"/></do>';
if ($unical) $sk01='<do name="add" type="options" label="РќР°РїРёСЃР°С‚СЊ"><go href="/gbfree.wml?add"/></do>';

//Поле "логин"
$f01='<br/>РќРёРє:<br/><input type="text" name="gbnick" title="РќРёРє" maxlength="16" value=""/>';
//Поле "E-Mail"
$f02='<br/>E-Mail:<br/><input type="text" name="gbemail" title="E-Mail" maxlength="32" value=""/>';
//Поле "Сообщение"
$f03='<br/>РЎРѕРѕР±С‰РµРЅРёРµ:<br/><input type="text" name="m'.$nocache.'" title="РЎРѕРѕР±С‰РµРЅРёРµ" maxlength="256" value=""/>';

//Пустой текст
$t00='';
//Неправильнй логин или пароль
$t01='<b>РЎС‚СЂ. '.$page.'</b>';
//Гостевая не чат
$t02='<small>Р“РѕСЃС‚РµРІР°СЏ РєРЅРёРіР° - РЅРµ С‡Р°С‚! РЈР»РѕР¶РёС‚РµСЃСЊ РІ РѕРґРЅРѕ СЃРѕРѕР±С‰РµРЅРёРµ!</small>';
//Ограничение
$t03='<small>РќР°РїРёСЃР°РЅРёРµ РІ РіРѕСЃС‚РµРІСѓСЋ РѕРіСЂР°РЅРёС‡РµРЅРЅРѕ РїРѕ РІСЂРµРјРµРЅРё: РЅРµ Р±РѕР»РµРµ РѕРґРЅРѕРіРѕ СЃРѕРѕР±С‰РµРЅРёСЏ РІ 15 РјРёРЅСѓС‚!</small>';

//Таймер обновления
$tm1='<onevent type="ontimer"><go href="/gbfree.wml"/></onevent><timer value="3000"/>';

if ($command=='pos')
	{
	$nick=substr(utf2cyr(str_replace(" ","_",trim(str_replace("  "," ",str_replace("\t"," ",str_replace("\n"," ",str_replace("\r"," ",stripslashes($HTTP_POST_VARS['n'])))))))),0,16);
	$email=substr(utf2cyr(str_replace(" ","",trim(str_replace("  "," ",str_replace("\t"," ",str_replace("\n"," ",str_replace("\r"," ",stripslashes($HTTP_POST_VARS['e'])))))))),0,32);
	$message=substr(utf2cyr(trim(str_replace("  "," ",str_replace("\t"," ",str_replace("\n"," ",str_replace("\r"," ",stripslashes($HTTP_POST_VARS['m']))))))),0,256);

	if (($nick!='')&&($message!=''))
		{
		$message2file=$nick."\t".$email."\t".$message."\n";
		$f=fopen($path.'/gb-free-message.dat','r+');
		$tmp1=substr(fgets($f,65536),11);
		$tmp2=substr(fgets($f,65536),11);
		fseek($f,0,SEEK_SET);
		$text=fread($f,102400);
		fseek($f,0,SEEK_SET);
		if (($tmp1!=$message2file)&&($tmp2!=$message2file))
			{
			if ($unical)
				{
				fwrite($f,time()."\t".$nick."\t".$email."\t".$message."\n".$text);
				$f2=fopen($path.'/gb-free-antiflood.dat','a+');
				fwrite($f2,time().' '.substr($userinfo.str_repeat(' ',70),0,68)."\n");
				fclose($f2);
				}
			else die($wml.$c01.$tm1.$faq.$p01.$t03.'<br/>Time Out'.$a01.$tm.$p99.$c99);
			}

		$tr=strlen("\t".$nick."\t".$email."\t".$message."\n".$text)+10;
		if ($tr<102400) ftruncate($f,$tr);
		else ftruncate($f,102400);
		fclose($f);
		}
	unset($text,$data_unical,$message2file,$tmp1,$tmp2,$userinfo,$_userinfo);
	$command='';
	}

if (($command=='')||($command=='nex'))
	{
	$f=fopen($path.'/gb-free-message.dat','r+');
	fseek($f,0,SEEK_SET);
	$cntpage=1;
	$screen='';
	while ($cntpage<=$page)
		{
		while (true)
			{
			if ((feof($f))&&($cntpage<$page)) $t01='<b>РЎС‚СЂ. '.$cntpage.'</b>';
			if (feof($f)) die($wml.$c01.$tm1.$faq.$sk01.$p02.'<small>'.$reklama.'</small><br/>'.$t01.$p99.$p01. $screen .$a05.$a04.$a02.$tm.$p99.$c99);
			$printmsg='';
			$tmpa=explode("\t",fgets($f,65536),5);
			if (($tmpa[0]=='')||($tmpa[1]=='')||($tmpa[3]=='')) continue;
			$printmsg='<u><b>'.cyr2utf(str_replace("$","$$",htmlspecialchars($tmpa[1]))).'</b> '.date("j.m G:i",$tmpa[0]).'</u>';
			if ($tmpa[2]!='') $printmsg.=' <br/><small>'.cyr2utf(str_replace("$","$$",htmlspecialchars($tmpa[2]))).' </small>';
			$printmsg.=' <br/>'.cyr2utf(str_replace("$","$$",htmlspecialchars(trim($tmpa[3]))));
			if ($tmpa[4]!='') $printmsg.=' <br/>'.cyr2utf('<b>Ответ:</b> '.str_replace("$","$$",htmlspecialchars($tmpa[4])));
			$printmsg.=' <br/>'.cyr2utf(str_replace("$","$$",htmlspecialchars($separate_text))).' <br/> <br/>';
			if (strlen($screen.$printmsg)>2300)
				{
				if ($cntpage==$page) die($wml.$c01.$tm1.$faq.$sk01.$p02.'<small>'.$reklama.'</small><br/>'.$t01.$p99.$p01. $screen .$a05.$a04.$a02.$tm.$p99.$c99);
				else break;
				}
			$screen.=$printmsg;
			}
		$screen='';
		$cntpage++;
		}
	}

if ($command=='add')
	{
	if ($unical) die($wml.$c01.$p01.$t02.$f01.$f02.$f03.$a07.$a01.$tm.$p99.$c99);
	else         die($wml.$c01.$tm1.$p01.$t03.'<br/>Time Out'.$a01.$tm.$p99.$c99);
	}

if ($command=='faq')
die($wml.$c01.$p01.
'РћРЅР»Р°Р№РЅ РѕР±С‰РµРЅРёРµ РІ РіРѕСЃС‚РµРІС‹С… Р·Р°РїСЂРµС‰РµРЅРѕ! Р“РѕСЃС‚РµРІР°СЏ РєРЅРёРіР° - РЅРµ С‡Р°С‚! РџРѕ СЌС‚РѕР№ РїСЂРёС‡РёРЅРµ РЅР°РїРёСЃР°РЅРёРµ РІ РіРѕСЃС‚РµРІСѓСЋ РѕРіСЂР°РЅРёС‡РёРІР°РµС‚СЃСЏ РїРѕ РІСЂРµРјРµРЅРё РЅР° 15 РјРёРЅСѓС‚.<br/>'.
'Р’ РіРѕСЃС‚РµРІРѕР№ С…СЂР°РЅРёС‚СЃСЏ 100kb СЃРѕРѕР±С‰РµРЅРёР№ (РІС‹РґРµР»СЏРµС‚СЃСЏ РёР· Р»РёРјРёС‚Р° СЃР°Р№С‚Р°). РџРѕ РґРѕСЃС‚РёР¶РµРЅРёРё СЌС‚РѕРіРѕ РїСЂРµРґРµР»Р°, СЃР°РјС‹Рµ СЃС‚Р°СЂС‹Рµ СЃРѕРѕР±С‰РµРЅРёСЏ Р±СѓРґСѓС‚ РІС‹С‚РµСЃРЅСЏС‚СЊСЃСЏ.<br/>'.
'Р СѓС‡РЅР°СЏ РѕС‡РёСЃС‚РєР° РїРѕРєР° РЅРµ СЂРµР°Р»РёР·РѕРІР°РЅР°.<br/>'.
$a01.$tm.$p99.$c99);

die($wml.$c01.$p01."РќРµРѕРїРѕР·РЅР°РЅРЅР°СЏ РѕС€РёР±РєР°!".$a01.$tm.$p99.$c99);
?>