<?

/* (C) 2006 honza klokanek sipek, klokanek (zavinac) eldar (tecka) cz */

// transcodes russian characters (written in windows-1251 encoding) stored
// in windows-1250 document to html entity
   
 /*
thanks to 
http://www.xs4all.nl/~wjsn/htmlcodes.htm and
http://www.xs4all.nl/~wjsn/russian.htm
*/



function russian2entity($input)
{
// small characters
$trans[à]="&#1072;";
$trans[á]="&#1073;";
$trans[â]="&#1074;";
$trans[ã]="&#1075;";
$trans[ä]="&#1076;";
$trans[å]="&#1077;";
$trans[¸]="&#1105;";
$trans[æ]="&#1078;";
$trans[ç]="&#1079;";
$trans[è]="&#1080;";
$trans[é]="&#1081;";
$trans[ê]="&#1082;";
$trans[ë]="&#1083;";
$trans[ì]="&#1084;";
$trans[í]="&#1085;";
$trans[î]="&#1086;";
$trans[ï]="&#1087;";
$trans[ð]="&#1088;";
$trans[ñ]="&#1089;";
$trans[ò]="&#1090;";
$trans[ó]="&#1091;";
$trans[ô]="&#1092;";
$trans[õ]="&#1093;";
$trans[ö]="&#1094;";
$trans[÷]="&#1095;";
$trans[ø]="&#1096;";
$trans[ù]="&#1097;";
$trans[ú]="&#1098;";
$trans[û]="&#1099;";
$trans[ü]="&#1100;";
$trans[ý]="&#1101;";
$trans[þ]="&#1102;";
$trans[ÿ]="&#1103;";

// big characters
$trans[A]="&#1040;";
$trans[Á]="&#1041;";
$trans[Â]="&#1042;";
$trans[A]="&#1043;";
$trans[Ä]="&#1044;";
$trans[Å]="&#1045;";
$trans[Æ]="&#1046;";
$trans[Ç]="&#1047;";
$trans[È]="&#1048;";
$trans[É]="&#1049;";
$trans[Ê]="&#1050;";
$trans[Ë]="&#1051;";
$trans[Ì]="&#1052;";
$trans[Í]="&#1053;";
$trans[Î]="&#1054;";
$trans[Ï]="&#1055;";
$trans[Ð]="&#1056;";
$trans[Ñ]="&#1057;";
$trans[Ò]="&#1058;";
$trans[Ó]="&#1059;";
$trans[Ô]="&#1060;";
$trans[O]="&#1061;";
$trans[Ö]="&#1062;";
$trans[×]="&#1063;";
$trans[Ø]="&#1064;";
$trans[Ù]="&#1065;";
$trans[Ú]="&#1066;";
$trans[Û]="&#1067;";
$trans[Ü]="&#1068;";
$trans[Ý]="&#1069;";
$trans[Þ]="&#1070;";
$trans[ß]="&#1071;";



     $output = (strtr($input, $trans));
     return $output;

}

$text = "Îáñóæäåíèå ñòàòüè";
echo ($text."<BR>");
echo(russian2entity($text));
     
     ?>