Просмотр файла wapicq/send.php

<?

function unicode ($s) { 
   if ( (ord($s)>=192) & (ord($s)<=255) ) $hexvalue=dechex(ord($s)+848); 
   if ($s=="Ё") $hexvalue="401"; 
   if ($s=="ё") $hexvalue="451"; 
   return("&#x0".$hexvalue.";");
  } 

  function utf_encode ($s) { 
   return(preg_replace("/[А-яЁё]/e","unicode('\\0')",$s));
  } 

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=\"ICQ\">";



$subject = "$name";
$body = "$message\n";
$from = "$name";
$headers  = "Content-Type: text/html; charset=windows-1251\n";
$headers .= "From: $from\nX-Mailer: WAPbote";

mail("[email protected]",$subject,$body,$headers);

print utf_encode("Ваше сообщение, удачно доставлено до $icq.");

print "
</card>
</wml>";

?>