<?
$tr=0;
$er1=0;
$er2=0;
$admin = "[email protected]";
if (empty($m_t)) $m_t = $admin;
if (empty($m_r)) $m_r = "index.wml";
if (empty($m_n)) $m_n = "Wap";
if (empty($m_s)) $m_s = "";
if (!empty($m_t)) $m_t = trim($m_t);
if (!empty($m_f)) $m_f = trim($m_f);
if (!empty($m_m)) $m_m = trim($m_m);
if (!empty($m_m)) $m_m = urldecode($m_m);
//проверка правильности мыла назначения
if ((count(explode(" ",$m_t)))>1) {$to=1; $er1=1;}
if (!(validEmail($m_t))) {$to=1; $er2=1;}
if (!empty($m_m)) if (preg_match("/#/", $m_m)) $tr=1;
function validEmail($email) {
if (eregi("^[a-z0-9_]+([-_\.]?[a-z0-9_])+@[a-z0-9]+([-_\.]?[a-z0-9])+\.[a-z]{2,4}", $email))
return TRUE;
else
return FALSE;
}
$change=array(
"а" => "а",
"б" => "б",
"в" => "в",
"г" => "г",
"д" => "д",
"е" => "е",
"ё" => "ё",
"ж" => "ж",
"з" => "з",
"и" => "и",
"й" => "й",
"к" => "к",
"л" => "л",
"м" => "м",
"н" => "н",
"о" => "о",
"п" => "п",
"р" => "р",
"с" => "с",
"т" => "т",
"у" => "у",
"ф" => "ф",
"х" => "х",
"ц" => "ц",
"ч" => "ч",
"ш" => "ш",
"щ" => "щ",
"ь" => "ь",
"ы" => "ы",
"ъ" => "ъ",
"э" => "э",
"ю" => "ю",
"я" => "я",
"А" => "А",
"Б" => "Б",
"В" => "В",
"Г" => "Г",
"Д" => "Д",
"Е" => "Е",
"Ё" => "Ё",
"Ж" => "Ж",
"З" => "З",
"И" => "И",
"Й" => "Й",
"К" => "К",
"Л" => "Л",
"М" => "М",
"Н" => "Н",
"О" => "О",
"П" => "П",
"Р" => "Р",
"С" => "С",
"Т" => "Т",
"У" => "У",
"Ф" => "Ф",
"Х" => "Х",
"Ц" => "Ц",
"Ч" => "Ч",
"Ш" => "Ш",
"Щ" => "Щ",
"Ь" => "Ь",
"Ы" => "Ы",
"Ъ" => "Ъ",
"Э" => "Э",
"Ю" => "Ю",
"Я" => "Я",
chr(128) => "Ђ",
chr(129) => "Ѓ",
chr(130) => "‚",
chr(131) => "ѓ",
chr(132) => "„",
chr(133) => "…",
chr(134) => "†",
chr(135) => "‡",
chr(136) => "€",
chr(137) => "‰",
chr(138) => "Љ",
chr(139) => "‹",
chr(140) => "Њ",
chr(141) => "Ќ",
chr(142) => "Ћ",
chr(143) => "Џ",
chr(144) => "ђ",
chr(145) => "‘",
chr(146) => "’",
chr(147) => "“",
chr(148) => "”",
chr(149) => "•",
chr(150) => "-", // "–",
chr(151) => "-", // "—",
chr(153) => "™",
chr(154) => "љ",
chr(155) => "›",
chr(156) => "њ",
chr(157) => "ќ",
chr(158) => "ћ",
chr(159) => "џ",
chr(160) => " ",
chr(161) => "Ў",
chr(162) => "ў",
chr(163) => "Ј",
chr(164) => "¤",
chr(165) => "Ґ",
chr(166) => "¦",
chr(167) => "§",
chr(169) => "©",
chr(170) => "Є",
chr(171) => "«",
chr(172) => "¬",
chr(173) => "­",
chr(174) => "®",
chr(175) => "Ї",
chr(176) => "°",
chr(177) => "±",
chr(178) => "І",
chr(179) => "і",
chr(180) => "ґ",
chr(181) => "µ",
chr(182) => "¶",
chr(183) => "·",
chr(185) => "№",
chr(186) => "є",
chr(187) => "»",
chr(188) => "ј",
chr(189) => "Ѕ",
chr(190) => "ѕ",
chr(191) => "ї",
);
$utf8=array(
"А" => chr(208).chr(144) ,
"Б" => chr(208).chr(145) ,
"В" => chr(208).chr(146) ,
"Г" => chr(208).chr(147) ,
"Д" => chr(208).chr(148) ,
"Е" => chr(208).chr(149) ,
"Ё" => chr(208).chr(129) ,
"Ж" => chr(208).chr(150) ,
"З" => chr(208).chr(151) ,
"И" => chr(208).chr(152) ,
"Й" => chr(208).chr(153) ,
"К" => chr(208).chr(154) ,
"Л" => chr(208).chr(155) ,
"М" => chr(208).chr(156) ,
"Н" => chr(208).chr(157) ,
"О" => chr(208).chr(158) ,
"П" => chr(208).chr(159) ,
"Р" => chr(208).chr(160) ,
"С" => chr(208).chr(161) ,
"Т" => chr(208).chr(162) ,
"У" => chr(208).chr(163) ,
"Ф" => chr(208).chr(164) ,
"Х" => chr(208).chr(165) ,
"Ц" => chr(208).chr(166) ,
"Ч" => chr(208).chr(167) ,
"Ш" => chr(208).chr(168) ,
"Щ" => chr(208).chr(169) ,
"Ъ" => chr(208).chr(170) ,
"Ы" => chr(208).chr(171) ,
"Ь" => chr(208).chr(172) ,
"Э" => chr(208).chr(173) ,
"Ю" => chr(208).chr(174) ,
"Я" => chr(208).chr(175) ,
"а" => chr(208).chr(176) ,
"б" => chr(208).chr(177) ,
"в" => chr(208).chr(178) ,
"г" => chr(208).chr(179) ,
"д" => chr(208).chr(180) ,
"е" => chr(208).chr(181) ,
"ё" => chr(209).chr(145) ,
"ж" => chr(208).chr(182) ,
"з" => chr(208).chr(183) ,
"и" => chr(208).chr(184) ,
"й" => chr(208).chr(185) ,
"к" => chr(208).chr(186) ,
"л" => chr(208).chr(187) ,
"м" => chr(208).chr(188) ,
"н" => chr(208).chr(189) ,
"о" => chr(208).chr(190) ,
"п" => chr(208).chr(191) ,
"р" => chr(209).chr(128) ,
"с" => chr(209).chr(129) ,
"т" => chr(209).chr(130) ,
"у" => chr(209).chr(131) ,
"ф" => chr(209).chr(132) ,
"х" => chr(209).chr(133) ,
"ц" => chr(209).chr(134) ,
"ч" => chr(209).chr(135) ,
"ш" => chr(209).chr(136) ,
"щ" => chr(209).chr(137) ,
"ъ" => chr(209).chr(138) ,
"ы" => chr(209).chr(139) ,
"ь" => chr(209).chr(140) ,
"э" => chr(209).chr(141) ,
"ю" => chr(209).chr(142) ,
"я" => chr(209).chr(143) ,
);
header("Content-Type: text/vnd.wap.wml; charset=UTF-8");
print '<?xml version="1.0"?>';
if ($tr==1) {
// тут найден текст для транслитирования
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card title="Транслитерация" id="index">
<onevent type="onenterforward">
<refresh>
<setvar name="msg" value=""/>
</refresh>
</onevent>
<p align="center">
<?
$m_m = utfrus($m_m);
$tr=1;
$p=0;
$vse=strlen($m_m);
$perev="";
do
{
$msg=substr($m_m, $p-$vse);
$po = strpos($msg, "#");
if ($po === false) $po=abs($p-$vse);
$tr = abs($tr-1);
if ($tr==0) {$perev.= substr($msg, 0, $po); $po++;} // нормально
else {$perev.= lat2rus(substr($msg, 0, $po)); $po++;} // транслит
$p=$p+$po;
}
while ($p<=$vse);
$perev= htmlspecialchars($perev);
$perev= strtr($perev, $change);
print (strtr($perev, $change));
///////////////////////////////////////////////////////////////////////////////////////
?>
<br/>
<input name="msg" maxlength="300" emptyok="true" title="=" type="text" <? if (!empty($m_m))print 'value="'.strtr(htmlspecialchars($m_m), $change).'"'?> />
</p>
<p>
<?
if ((!empty($m_t)) && (!empty($m_f)))
{
?>
</p>
<p>
<anchor>
- Отправить
<go method="post" href="<? print $PHP_SELF."?p=".rand(0,100000)?>">
<?
if (!empty($m_s)) print '<postfield name="m_s" value="'.htmlspecialchars($m_s).'"/>';
?>
<postfield name="m_t" value="<?print htmlspecialchars($m_t);?>"/>
<postfield name="m_f" value="<?print htmlspecialchars($m_f);?>"/>
<postfield name="m_m" value="<?print (strtr($perev, $utf8));?>"/>
</go>
</anchor>
<br/>
<?
}
?>
<br/>
<anchor>
<<-
<prev/>
</anchor>
</p>
</card>
<card id="Hitrulja" title="Скрипт написала">
<p align="center">
[email protected]
<br/>
или
<br/>
[email protected]
</p>
</card>
</wml>
<?
}
else
{
if (!empty($to)) {
// Просит ввести новый адрес получателя
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card title="Кому:" id="index">
<onevent type="onenterforward">
<refresh>
<setvar name="to" value=""/>
</refresh>
</onevent>
<p align="center">
<?
if ($er1==1) print "Пробелы не нужны<br/>";
if ($er2==1) print "Адрес должен быть [email protected]<br/>";
?>
<input name="to" maxlength="64" emptyok="true" title="=" type="text" <? if (!empty($m_t))print 'value="'.htmlspecialchars($m_t).'"'?>/>
</p>
<p>
<anchor>
- Продолжить
<go method="post" href="<? print $PHP_SELF."?p=".rand(0,100000);?>">
<postfield name="m_t" value="$(to)"/>
<?
if (!empty($m_f)) print '<postfield name="m_f" value="'.htmlspecialchars($m_f).'"/>';
if (!empty($m_m)) print '<postfield name="m_m" value="'.htmlspecialchars($m_m).'"/>';
?>
</go>
</anchor>
</p>
</card>
<card id="Hitrulja" title="Скрипт написала">
<p align="center">
[email protected]
<br/>
или
<br/>
[email protected]
</p>
</card>
</wml>
<?
}
else {
if
(
!empty($m_t)
&& !empty($m_f)
&& !empty($m_m)
)
{
$m_r = http(stripslashes(trim($m_r)));
$to = htmlspecialchars(stripslashes(trim($m_t)));
$email = htmlspecialchars(stripslashes(trim($m_f)));
$subject= utfdos ($m_s);
$po = strpos(strtolower($to), "@mag.su");
if ($po !== false) {
$po = strpos(strtolower($email), "@mag.su");
if ($po !== false) {
$subject= "real Mail: ".$email." ".$subject;
$email="Mag@".substr($email, 0, $po).".su";
}}
$name= utfdos ($m_n);
$msg= utfdos ($m_m);
$mailheaders = "Content-type: text/html; charset=koi8-r \n";
$mailheaders .= "From: $name<$email> \n";
$mailheaders .= "Reply-To: $name<$email> \n";
if (utfdos($email)==$email) if( funcmail($to, $subject, $msg, $mailheaders))
{
// вроде нет серъёзных ошибок и можно отправить письмо
//$m_r = htmlspecialchars($m_r);
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD wml 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="Index" ontimer="<? print $m_r ?>" title="OK">
<timer value="15"/>
<p align="center">
Письмо отправлено
<br/>
<?
if ($email != $m_f) {
?>
Обратный адрес изменен на
<?
print " ".$email;
}
?>
<br/>
<a href="<? print $m_r ?>">
<? print $m_r ?>
</a>
</p>
</card>
<card id="Hitrulja" title="Скрипт написала">
<p align="center">
[email protected]
<br/>
или
<br/>
[email protected]
</p>
</card>
</wml>
<?
}
else
{
// по каким то причинам письмо не отправлено
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="index" title="Ошибка">
<p>
По какой то причине, письмо отправить невозможно!
<br/>
<anchor>
<<-
<prev/>
</anchor>
</p>
</card>
<card id="Hitrulja" title="Скрипт написала">
<p align="center">
[email protected]
<br/>
или
<br/>
[email protected]
</p>
</card>
</wml>
<?
}
// тут введен адрес по русски
else
{
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="index" title="Ошибка">
<p>
А адрес то НЕ надо вводить по русски!
<br/>
<anchor>
<<-
<prev/>
</anchor>
</p>
</card>
<card id="Hitrulja" title="Скрипт написала">
<p align="center">
[email protected]
<br/>
или
<br/>
[email protected]
</p>
</card>
</wml>
<?
}
}
// Если входящих данных нет то это
else
{
?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="index" title="Письмо<? if (!empty($m_t)) if ($m_t==$admin) print " админу"?>">
<onevent type="onenterforward">
<refresh>
<setvar name="from" value=""/>
<setvar name="msg" value=""/>
</refresh>
</onevent>
<p align="center">
<?
if ((!empty($fr)) || (empty($m_f))) {
?>
<anchor>
Кому:
<go method="post" href="<? print $PHP_SELF."?p=".rand(0,100000)."&to=1"?>">
<?
if (!empty($m_t)) print '<postfield name="m_t" value="'.htmlspecialchars($m_t).'"/>';
if (!empty($m_f)) print '<postfield name="m_f" value="'.htmlspecialchars($m_f).'"/>';
else print '<postfield name="m_f" value="$(from)"/> ';
?>
<postfield name="m_m" value="$(msg)"/>
</go>
</anchor>
<?
}
else print "Кому:";
?>
<br/>
<? print trim(htmlspecialchars($m_t)); ?>
<br/>
Адрес отправителя:
<br/>
<?
$po = "$(from)";
if ((empty($m_f)) || (!empty($fr))) if (!empty($m_f)) print '<input name="from" maxlength="64" emptyok="true" title="=" type="text" value="'.trim(htmlspecialchars($m_f)).'"/>';
else print '<input name="from" maxlength="64" emptyok="true" title="=" type="text" />';
else {
print "<anchor>";
if (eregi("^[a-z0-9]+([-_\.]?[a-z0-9])+@[a-z0-9]+([-_\.]?[a-z0-9])+\.[a-z]{2,4}", $m_f))
print htmlspecialchars($m_f);
else print htmlspecialchars($m_f)."@domen.zone";
?>
<go method="post" href="<? print $PHP_SELF."?p=".rand(0,100000)."&fr=1"?>">
<postfield name="m_m" value="$(msg)"/>
<?
if (!empty($m_f)) print '<postfield name="m_f" value="'.htmlspecialchars($m_f).'"/>';
if (!empty($m_t)) print '<postfield name="m_t" value="'.htmlspecialchars($m_t).'"/>';
?>
</go>
</anchor>
<?
$po = htmlspecialchars($m_f);
}
?>
</p>
<p align="center">
Текст:
<br/>#-Translit<br/>
<input name="msg" maxlength="300" emptyok="true" title="=" type="text" <? if (!empty($m_m))print 'value="'.htmlspecialchars($m_m).'"'?> />
</p>
<p>
<anchor>
- Отправить
<go method="post" href="<? print $PHP_SELF."?p=".rand(0,100000)?>">
<postfield name="m_t" value="<? print htmlspecialchars($m_t); ?>"/>
<postfield name="m_f" value="<? print $po; ?>"/>
<postfield name="m_s" value="WAP site <? if (!empty($SERVER_NAME)) print $SERVER_NAME; else print htmlspecialchars($m_r); ?>"/>
<postfield name="m_m" value="$(msg)"/>
<postfield name="m_n" value="<? print htmlspecialchars($m_n); ?>"/>
<postfield name="m_r" value="<? print http($m_r); ?>"/>
</go>
</anchor>
</p>
</card>
<card id="Hitrulja" title="Скрипт написала">
<p align="center">
[email protected]
<br/>
или
<br/>
[email protected]
</p>
</card>
</wml>
<?
}}}
function lat2rus($s)
{
return strtr(nick2rus($s),"'",'ь'); // Добавлены '
}
function nick2rus($s)
{
$s = preg_replace("/(jo|je|ju|ja|zh|ch|sh|j_o|j_u|j_a|j_e|c_h|z_h|s_h)/ie",
"str_replace('_','',pares('\\1'))",$s);
$s = strtr($s,'wxqertyuiopasdfghjklzcvbnmWQXERTYUIOPASDFGHJKLZCVBNM',
'щъьертыуиопасдфгхйклзцвбнмЩЬЪЕРТЫУИОПАСДФГХЙКЛЗЦВБНМ');
return $s;
}
function pares($s)
{
$letters=array(
"jo" => "ё",
"je" => "э",
"ju" => "ю",
"ja" => "я",
"zh" => "ж",
"ch" => "ч",
"sh" => "ш"
);
$s1 = strtolower($s);
if ($s1 != $s) {$a=strtr($s1,$letters);
$a=strtr($a,"ёжчэюяш","ЁЖЧЭЮЯШ");
return $a;
}
return strtr($s,$letters);
}
function utfrus($document)
{
$search = array(
"'".chr(208).chr(144)."'",
"'".chr(208).chr(145)."'",
"'".chr(208).chr(146)."'",
"'".chr(208).chr(147)."'",
"'".chr(208).chr(148)."'",
"'".chr(208).chr(149)."'",
"'".chr(208).chr(129)."'",
"'".chr(208).chr(150)."'",
"'".chr(208).chr(151)."'",
"'".chr(208).chr(152)."'",
"'".chr(208).chr(153)."'",
"'".chr(208).chr(154)."'",
"'".chr(208).chr(155)."'",
"'".chr(208).chr(156)."'",
"'".chr(208).chr(157)."'",
"'".chr(208).chr(158)."'",
"'".chr(208).chr(159)."'",
"'".chr(208).chr(160)."'",
"'".chr(208).chr(161)."'",
"'".chr(208).chr(162)."'",
"'".chr(208).chr(163)."'",
"'".chr(208).chr(164)."'",
"'".chr(208).chr(165)."'",
"'".chr(208).chr(166)."'",
"'".chr(208).chr(167)."'",
"'".chr(208).chr(168)."'",
"'".chr(208).chr(169)."'",
"'".chr(208).chr(170)."'",
"'".chr(208).chr(171)."'",
"'".chr(208).chr(172)."'",
"'".chr(208).chr(173)."'",
"'".chr(208).chr(174)."'",
"'".chr(208).chr(175)."'",
"'".chr(208).chr(176)."'",
"'".chr(208).chr(177)."'",
"'".chr(208).chr(178)."'",
"'".chr(208).chr(179)."'",
"'".chr(208).chr(180)."'",
"'".chr(208).chr(181)."'",
"'".chr(209).chr(145)."'",
"'".chr(208).chr(182)."'",
"'".chr(208).chr(183)."'",
"'".chr(208).chr(184)."'",
"'".chr(208).chr(185)."'",
"'".chr(208).chr(186)."'",
"'".chr(208).chr(187)."'",
"'".chr(208).chr(188)."'",
"'".chr(208).chr(189)."'",
"'".chr(208).chr(190)."'",
"'".chr(208).chr(191)."'",
"'".chr(209).chr(128)."'",
"'".chr(209).chr(129)."'",
"'".chr(209).chr(130)."'",
"'".chr(209).chr(131)."'",
"'".chr(209).chr(132)."'",
"'".chr(209).chr(133)."'",
"'".chr(209).chr(134)."'",
"'".chr(209).chr(135)."'",
"'".chr(209).chr(136)."'",
"'".chr(209).chr(137)."'",
"'".chr(209).chr(138)."'",
"'".chr(209).chr(139)."'",
"'".chr(209).chr(140)."'",
"'".chr(209).chr(141)."'",
"'".chr(209).chr(142)."'",
"'".chr(209).chr(143)."'"
);
$replace = array(
"А",
"Б",
"В",
"Г",
"Д",
"Е",
"Ё",
"Ж",
"З",
"И",
"Й",
"К",
"Л",
"М",
"Н",
"О",
"П",
"Р",
"С",
"Т",
"У",
"Ф",
"Х",
"Ц",
"Ч",
"Ш",
"Щ",
"Ъ",
"Ы",
"Ь",
"Э",
"Ю",
"Я",
"а",
"б",
"в",
"г",
"д",
"е",
"Ё",
"ж",
"з",
"и",
"й",
"к",
"л",
"м",
"н",
"о",
"п",
"р",
"с",
"т",
"у",
"ф",
"х",
"ц",
"ч",
"ш",
"щ",
"ъ",
"ы",
"ь",
"э",
"ю",
"я"
);
return preg_replace($search, $replace, $document);
}
function utfdos($document)
{
$search = array(
"'".chr(208).chr(144)."'",
"'".chr(208).chr(145)."'",
"'".chr(208).chr(146)."'",
"'".chr(208).chr(147)."'",
"'".chr(208).chr(148)."'",
"'".chr(208).chr(149)."'",
"'".chr(208).chr(129)."'",
"'".chr(208).chr(150)."'",
"'".chr(208).chr(151)."'",
"'".chr(208).chr(152)."'",
"'".chr(208).chr(153)."'",
"'".chr(208).chr(154)."'",
"'".chr(208).chr(155)."'",
"'".chr(208).chr(156)."'",
"'".chr(208).chr(157)."'",
"'".chr(208).chr(158)."'",
"'".chr(208).chr(159)."'",
"'".chr(208).chr(160)."'",
"'".chr(208).chr(161)."'",
"'".chr(208).chr(162)."'",
"'".chr(208).chr(163)."'",
"'".chr(208).chr(164)."'",
"'".chr(208).chr(165)."'",
"'".chr(208).chr(166)."'",
"'".chr(208).chr(167)."'",
"'".chr(208).chr(168)."'",
"'".chr(208).chr(169)."'",
"'".chr(208).chr(170)."'",
"'".chr(208).chr(171)."'",
"'".chr(208).chr(172)."'",
"'".chr(208).chr(173)."'",
"'".chr(208).chr(174)."'",
"'".chr(208).chr(175)."'",
"'".chr(208).chr(176)."'",
"'".chr(208).chr(177)."'",
"'".chr(208).chr(178)."'",
"'".chr(208).chr(179)."'",
"'".chr(208).chr(180)."'",
"'".chr(208).chr(181)."'",
"'".chr(209).chr(145)."'",
"'".chr(208).chr(182)."'",
"'".chr(208).chr(183)."'",
"'".chr(208).chr(184)."'",
"'".chr(208).chr(185)."'",
"'".chr(208).chr(186)."'",
"'".chr(208).chr(187)."'",
"'".chr(208).chr(188)."'",
"'".chr(208).chr(189)."'",
"'".chr(208).chr(190)."'",
"'".chr(208).chr(191)."'",
"'".chr(209).chr(128)."'",
"'".chr(209).chr(129)."'",
"'".chr(209).chr(130)."'",
"'".chr(209).chr(131)."'",
"'".chr(209).chr(132)."'",
"'".chr(209).chr(133)."'",
"'".chr(209).chr(134)."'",
"'".chr(209).chr(135)."'",
"'".chr(209).chr(136)."'",
"'".chr(209).chr(137)."'",
"'".chr(209).chr(138)."'",
"'".chr(209).chr(139)."'",
"'".chr(209).chr(140)."'",
"'".chr(209).chr(141)."'",
"'".chr(209).chr(142)."'",
"'".chr(209).chr(143)."'"
);
$replace = array(
"б",
"в",
"ч",
"з",
"д",
"е",
chr(179),
"ц",
"ъ",
"й",
"к",
"л",
"м",
"н",
"о",
"п",
"р",
"т",
"у",
"ф",
"х",
"ж",
"и",
"г",
"ю",
"ы",
"э",
"я",
"щ",
"ш",
"ь",
"а",
"с",
"Б",
"В",
"Ч",
"З",
"Д",
"Е",
chr(163),
"Ц",
"Ъ",
"Й",
"К",
"Л",
"М",
"Н",
"О",
"П",
"Р",
"Т",
"У",
"Ф",
"Х",
"Ж",
"И",
"Г",
"Ю",
"Ы",
"Э",
"Я",
"Щ",
"Ш",
"Ь",
"А",
"С"
);
return preg_replace($search, $replace, $document);
}
function funcmail($to, $subject, $msg, $mailheaders){
$filename="mail.dat";
if (!file_exists($filename))
{
$fp = fopen($filename, "w");
fclose($fp);
}
$a=$to.$subject.$msg.$mailheaders;
$str=array(
chr(10) => "",
chr(13) => "",
"#||#" => "",
);
$a= strtr($a, $str);
$massiv[]=$a."#||#".time();
if (filesize($filename)>10){// есть какие то данные
$baza = file($filename);
$ret= false;
foreach ($baza as $zn)
{
$znach= explode("#||#",$zn);
if (($znach[1]+600) > time()) $massiv[]=rtrim($zn);
if ($znach[0]==$a) $ret= true;
}
}
saveserg($filename,$massiv);
if(!$ret) $ret = mail($to, $subject, $msg, $mailheaders);
return $ret;
}
function saveserg($filename,$mas){
$a="";
foreach ($mas as $zn) $a.=$zn.chr(13).chr(10);
$fp = fopen($filename, "w");
fputs($fp, trim($a));
fclose($fp);
}
function http($a){
$q=array("&" => "%26");
$s=strtr($a,$q);
if (htmlspecialchars($s)!=$s) return htmlspecialchars($a);
else return $a;
}
?>