View file mailhtml/index.php

<?php
$to = "[email protected]"; // поле кому
$index = "http://wap.jean.ru/"; // главная
$file = "index.php";

include "lib.php";
header("Content-type:text/vnd.wap.wml"); 

/***********************************************************
Первая страница
***********************************************************/
 if($_REQUEST['act']=="" || !isset($_REQUEST['act'])){
print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card title="M@IL"><p>';

print u("Мыло администратору").'<br/><br/>';
print u("Oбратный адрес").'<br/>';
print '<input name="adres" maxlength="50" emptyok="true" type="text"/><br/>';
print u("Введите тему вопроса").'<small>('.u("можно и без темы").')</small><br/>';
print '<input name="tema" maxlength="50" emptyok="true" type="text"/><br/>';
print u("Введите сообщение").'<br/>';
print '<input name="soobschenie" maxlength="5000" emptyok="true" type="text"/><br/>';
print '<anchor>';
print u("Послать");
print '<go method="post" href="?act=send">
<postfield name="adres" value="$(adres)"/>

<postfield name="tema" value="$(tema)"/>

<postfield name="soobschenie" value="$(soobschenie)"/> 
</go></anchor><br/><br/>-----<br/><small><anchor>'; print u("Назад").'<prev/></anchor><br/>';
print '<a href="'.$index.'">';
print u('На главную').'</a></small></p></card></wml>';


} elseif($_REQUEST['act']=="send") { 
if ($adres == "") {print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card title="M@IL" ontimer="'.$file.'"><timer value="10"/><p>';
print u("Вы забыли написать свой e-mail ").':-(</p></card></wml>'; exit;}
if ($soobschenie == "") {print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card title="M@IL" ontimer="'.$file.'"><timer value="10"/><p>';
print u("Вы забыли написать сообщение ").':-(</p></card></wml>'; exit;}
if (!eregi("^([0-9a-z]([-_.]?[0-9a-z])*@[0-9a-z]([-.]?[0-9a-z])*\\.[a-wyz][a-z](fo|g|l|m|mes|o|op|pa|ro|seum|t|u|v|z)?)$", $adres) and $adres != "") {print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card title="M@IL" ontimer="'.$file.'"><timer value="10"/><p>';
print u("Вы ввели некорректный E-Mail адрес").'</p></card></wml>'; exit;}
else {
  $ip = $REMOTE_ADDR;
  $date = date("d.m.Y");

  $info = "<FONT face=\"verdana\" color=\"Blue\">Приветствую Вас, администратор!</FONT><BR><FONT face=\"Tahoma\" size=\"2\">Я обращаюсь к Вам по поводу: </FONT><BR><FONT face=\"Tahoma\" size=\"2\" color=\"Orange\"><B>\t $tema </B></FONT><BR>\n";
  $info .= "<FONT face=\"Verdana\" color=\"Blue\" size=\"1\">Мой Обратный адрес:</FONT><FONT face=\"Verdana\" color=\"Blue\" size=\"1\"><B>  <a style=\"text-decoration: none;\"  href=\"mailto:\t$adres\">\t$adres</a> </B></FONT><BR>\n";
  $info .= "<FONT face=\"Verdana\" color=\"Blue\" size=\"1\">Сообщение:</FONT><BR><FONT face=\"Verdana\" color=\"Silver\" size=\"1\"><B>\t$soobschenie</B></FONT><BR><BR><FONT face=\"Verdana\" color=\"Blue\" size=\"1\">+---------------<BR>|С уважением<BR>|<a style=\"text-decoration: none;\" href=\"mailto:\t$adres\">\t$adres</a><BR>+---------------</FONT>\n\n";
  
  $send_to = "[email protected]";             
  $subject = "Сообщение $tema";          

  $headers = "Content-type:text/html; charset = windows-1251";
  $headers .= "X-Mailer: JEAN.ru FeedBack\n";  
  $headers .= "From: Ip: $ip: \n";
  $headers .= "Reply-To: $adres\n\n";

   mail($send_to, $subject, $info, $headers);
print '
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml><card title="M@IL" ontimer="'.$index.'"><timer value="10"/>';
print '<p align="center"><br/><br/>'.u("Ваше письмо было отправлено!").'<br/><br/><a href="'.$index.'">'.u('На главную').'</a></p></card></wml>';;}
}
?>