// konwersja symboli zastępczych szablonu na
// wartości pól formularza
function przeksztalc($tresc)
{
foreach($_POST as $symbol=>$wartosc)
$tresc = str_replace("^^".
strtoupper($symbol)."^^",
polskie($wartosc),$tresc);
return $tresc;
}
// konwersja polskich znaków na kody formatu
// unicode, wykorzystywane w plikach RTF

function polskie($co)
{
$tab = array("ą"=>"\u261a",
"Ą"=>"\u260A","ę"=>"\u281e",
"Ę"=>"\u280E","ć"=>"\u263c",
"Ć"=>"\u262C","ł"=>"\u322l",
"Ł"=>"\u321L","ń"=>"\u324n",
"Ń"=>"\u323N","ś"=>"\u347s",
"Ś"=>"\u346S","ź"=>"\u378z",
"Ź"=>"\u377Z","ż"=>"\u380z",
"Ż"=>"\u379Z");
$po_zamianie = strtr($co,$tab);
return $po_zamianie;
}
// wysłanie nagłowka określającego typ MIME
// dokumentu
header("Content-type: application/msword");
header("Content-Disposition: inline");
wylicz();
// odczytanie nazwy szablonu RTF
$plik = $_GET["dok"].".rtf";
// otwarcie szablonu RTF i pobranie
// jego zawartości
$fp = fopen($plik,"r");
$tresc = fread($fp,filesize($plik));
$tresc = przeksztalc($tresc);
// wyświetlenie gotowego dokumentu
print $tresc;