View file includes/mail_to_site_autor.php

<?php
#error_reporting(0);
include($rootpath."function.inc");

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

$setting=@file($path.'user.dat');
$chace=$setting[3];

Header("Content-type:text/vnd.wap.wml; charset=Utf-8");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT"); // always modified
header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1
header("Pragma: no-cache"); // HTTP/1.0

$from="[email protected]";
$mailreport="";

	define("DBName","kmx");
	define("HostName","localhost");
	define("UserName","kmx");
	define("Password","kmx-hosting");

$fl=p('fl')+0;
if (($fl==1))#&&($chace!=p('cache')))
	{
	$connectserv=@mysql_connect(HostName, UserName, Password);
	$selectDB=@mysql_select_db(DBName);
	$connect_bd=(($connectserv!=0)&&($selectDB!=0));

	if (!$connect_bd) include($rootpath."mysqlerror.php");

	$q=@mysql(DBName,"SELECT `email` FROM `users` WHERE `login` = '".addslashes($user)."' LIMIT 0, 1");
	if (@mysql_num_rows($q)>0)
	    {
	    $data=mysql_fetch_array($q);
	    $to=$data['email'];
	    }
	else
		{header('Location: http://kmx.ru/?not_found');exit;}

	$re=utf2cyr(p('re'));

	$ms1=$ms;
	$ms=p('ms',8192);
	$ms=str_replace("&#x27;","'",$ms);
	$ms=str_replace("&quot;","\"",$ms);
	$ms=str_replace("&#x3C;","<",$ms);
	$ms=str_replace("&#x3E;",">",$ms);
	$ms=str_replace("&amp;","&",$ms);
	$ms=str_replace("$$","$",$ms);

	$rd=strrpos($re,".");
	$ra=strpos($re,"@");
	if ($rd&&$ra&&(($ra+4)<=$rd)) $readr="\nReply-To: ".$re; else $readr='';

	$endtext="\n\n----------\nПисьмо послано с WAP-сайта http://".$user.".kmx.ru\n(ваш адрес указан в качестве адреса автора сайта)\nДля ответа указано: ".$re."\n";
	if ($ms!='')
	    {
	    $check=@mail($to, "Письмо с Вашего WAP-сайта", utf2cyr($ms).$endtext, "From: ".$from.$readr."\nX-Mailer: WAP-mailer \"KMX.Ru\"\nContent-Type: text/plain; charset=Windows-1251");
	    if ($check) $mailreport="Письмо отправлено!";
	    else $mailreport="Письмо НЕ отправлено!";
	    }
	else
	    $mailreport="Все поля должны быть корректно заполнены!";
	}

$mailreport=cyr2utf($mailreport);

print '<?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 (strlen($mailreport)>1) print "<card id=\"sendstatus\" title=\"Результат отправки\" ontimer=\"#mail\">\n<timer value=\"30\"/>\n<p align=\"center\">$mailreport</p>\n</card>\n";
if (p('mail')!="") $addres=p('mail'); else $addres=p('to');
if (p('re')!="") $readress=$anketa['mail']; else $readress=p('re');

print '
<card id="mail" title="E-mail автору">
<p>
Сообщение:<br/><small>(можно на кириллице)</small><br/>
<input name="ms" type="text" title="Тест письма" value="'.p('ms').'" maxlength="1024"/><br/>
Куда отвечать:<br/>
<input name="re" type="text" emptyok="true" title="Обратный адрес" value="'.$readress.'" maxlength="64"/><br/>
<anchor>Отправить
<go href="http://'.$user.'.kmx.ru/sendmail.wml" method="post">
<postfield name="fl" value="1"/>
<postfield name="to" value="$(to)"/>
<postfield name="re" value="$(re)"/>
<postfield name="ms" value="$(ms)"/>
</go>
</anchor>
<br/><br/>
<anchor>На главную
<go href="http://'.$user.'.kmx.ru"/>
</anchor>
</p></card></wml>';

?>