%Descriptions=(
"iso-8859-1" => "Iso-8859-1 - Çàïàäíîåâðîïåéñêàÿ êîäèðîâêà. Êèðèëëèöà íå îáíàðóæåíà.",
"windows-1251" => "Cp1251 - Êîäèðîâêà MS Windows. Òàêæå: Windows Cyrillic (Slavic), Cyrillic. Ñèíîíèìû: x-cp1251, windows-1251",
"koi8-r" => "Koi8-r - Êîäèðîâêà Unix. Ñèíîíèìû: csKOI8R, koi",
"koi8-u" => "Koi8-u - Êîäèðîâêà Unix (óêðàèíñêàÿ).",
"cp866" => "Cp866 - Êîäèðîâêà DOS è OS/2. Òàêæå: MS-DOS Russian, MS-DOS Cyrillic CIS 1. Ñèíîíèìû: cp866, ibm866",
"iso-8859-5" => "Iso-8859-5 - êîäèðîâêà êèðèëëèöû, îäîáðåííàÿ ISO. Èñïîëüçóåòñÿ íà íåêîòîðûõ ñèñòåìàõ Unix. Ñèíîíèìû: iso-8859-5, csISOLatinCyrillic, cyrillic, iso-ir-144, ISO_8859-5, ISO_8859-5:1988",
"utf-8" => "Utf-8 - Unicode ñ ñèìâîëàìè êèðèëëèöû. Ñèíîíèìû: utf-8, unicode-1-1-utf-8, unicode-2-0-utf-8, x-unicode-2-0-utf-8",
"x-mac-cyrillic" => "x-mac-cyrillic - Êèðèëëèöà íà Macintosh. Ïîääåðæèâàåòñÿ ïîä Windows NT+."
);
$Description = $Descriptions{$Charset};
print <<POD;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=$Charset">
<title>$DocTitle</title>
<style>
TABLE {background-color:#eeeeee; border-color:#cccccc; border-style:solid; cell-padding:2; border-width:2; font-size:90% }
TH {text-align:left; padding-left:80pt}
.tr1 {background-color:#dddddd; }
BODY {font-family: Arial, Helvetica,sans-serif; font-size:70%}
</style>
</head><body>
<h4>Êîäèðîâêà: $Charset, ÿçûê: $Language </h4>
<table width="80%">
<th colspan=2> Âàø òåêñò â ðàçëè÷íûõ êîäèðîâêàõ: </th>
<tr class=tr1><td width=20% ><i>Èñõîäíûé òåêñò</i></td><td > $Text_area </td></tr>
<tr><td>windows-1251</td><td> $Text_area_win </td></tr>
<tr class=tr1><td>x-mac-cyrillic</td><td> $Text_area_mac</td></tr>
<tr><td>koi8-r</td><td> $Text_area_koi8r </td></tr>
<tr class=tr1><td>koi8-u</td><td> $Text_area_koi8u </td></tr>
<tr><td>utf-8</td><td> $Text_area_utf </td></tr>
<tr class=tr1><td>cp866</td><td> $Text_area_cp866 </td></tr>
<tr><td>iso-8859-5</td><td> $Text_area_iso </td></tr>
</table>
<b> MaxTokens: </b> $MaxTokens <br>
<b> DetectAllLang: </b> $DetectAllLang <br>
<b> Âðåìÿ, èñïîëüçîâàííîå äëÿ îïðåäåëåíèÿ: </b> $timedf
<hr>
<table width="60%">
<th colspan=2> Ðåçóëüòàòû àíàëèçà </th>
<tr class=tr1><td width=40%>Ïðîàíàëèçèðîâàííûõ ñèìâîëîâ:</td><td >$CharsProcessed</td></tr>
<tr><td>Êîäèðîâêà:</td><td>$Coding</td></tr>
<tr class=tr1><td>Îïèñàíèå:</td><td>$Description</td></tr>
<tr><td>ßçûê:</td><td>$Language</td></tr>
<tr class=tr1><td>Àëãîðèòì:</td><td>$Algorithm</td></tr>
</table>
<hr>
<table width="80%">
<th colspan=2> Îáúÿñíåíèå êîäîâ àëãîðèòìà </th>
<tr class=tr1><td width=5%>11</td><td width=40%>Ôîðìàëüíûé
àíàëèç êîëè÷åñòâà/êàïèòàëèçàöèè êèðèëëè÷åñêèõ ñèìâîëîâ; íàéäåíà òîëüêî
îäíà àëüòåðíàòèâà</td></tr>
<tr><td>21</td><td>Ôîðìàëüíûé àíàëèç êîëè÷åñòâà/êàïèòàëèçàöèè
êèðèëëè÷åñêèõ ñèìâîëîâ; íàéäåíû äâå
àëüòåðíàòèâû (koi8-r è koi8-u); âûáðàíà koi8-r</td></tr>
<tr class=tr1><td>22</td><td>Ôîðìàëüíûé àíàëèç
êîëè÷åñòâà/êàïèòàëèçàöèè
êèðèëëè÷åñêèõ ñèìâîëîâ; íàéäåíû äâå
àëüòåðíàòèâû (win1251 è mac); âûáðàíà win1251</td></tr>
<tr><td>31</td><td>Íàéäåíî ïî ìåíüøåé ìåðå îäíî
ñëîâî èç ñëîâàðÿ è åñòü òîëüêî îäíà
àëüòåðíàòèâà</td></tr>
<tr class=tr1><td>32</td><td>Íàéäåíî ïî ìåíüøåé ìåðå
îäíî ñëîâî èç õýøà è åñòü òîëüêî îäíà
àëüòåðíàòèâà</td></tr>
<tr><td>33</td><td>Ôîðìàëüíî îïðåäåëåíà win1251 (ñêîðåå
âñåãî íà áàçå àíàëèçà õýøà)</td></tr>
<tr class=tr1><td>34</td><td>Ôîðìàëüíî îïðåäåëåíà koi8-r
(ñêîðåå âñåãî íà áàçå àíàëèçà õýøà)</td></tr>
<tr><td>40</td><td>Áûë âûáðàí íàèáîëåå âåðîÿòíûé
ðåçóëüòàò, íî íàäåæíîñòü î÷åíü
íåâåëèêà</td></tr>
<tr class=tr1><td>100</td><td>Íå íàéäåíî íè îäíîãî
êèðèëëè÷åñêîãî ñèìâîëà</td></tr>
</table>
</body></html>
POD
__END__
print "<h5>This is the report:</h5><pre>\n";
$CyrDetector -> LogWrite();
print "</pre>\n";
print "</body></html>";