<?

// i pro multi-byte (napr. UTF-8)
$prevodni_tabulka = Array(
  'ä'=>'a',
  'Ä'=>'A',
  'á'=>'a',
  'Á'=>'A',
  '&#224;'=>'a',
  '&#192;'=>'A',
  '&#227;'=>'a',
  '&#195;'=>'A',
  'â'=>'a',
  'Â'=>'A',
  'č'=>'c',
  'Č'=>'C',
  'ć'=>'c',
  'Ć'=>'C',
  'ď'=>'d',
  'Ď'=>'D',
  'ě'=>'e',
  'Ě'=>'E',
  'é'=>'e',
  'É'=>'E',
  'ë'=>'e',
  'Ë'=>'E',
  '&#232;'=>'e',
  '&#200;'=>'E',
  '&#234;'=>'e',
  '&#202;'=>'E',
  'í'=>'i',
  'Í'=>'I',
  '&#239;'=>'i',
  '&#207;'=>'I',
  '&#236;'=>'i',
  '&#204;'=>'I',
  'î'=>'i',
  'Î'=>'I',
  'ľ'=>'l',
  'Ľ'=>'L',
  'ĺ'=>'l',
  'Ĺ'=>'L',
  'ń'=>'n',
  'Ń'=>'N',
  'ň'=>'n',
  'Ň'=>'N',
  '&#241;'=>'n',
  '&#209;'=>'N',
  'ó'=>'o',
  'Ó'=>'O',
  'ö'=>'o',
  'Ö'=>'O',
  'ô'=>'o',
  'Ô'=>'O',
  '&#242;'=>'o',
  '&#210;'=>'O',
  '&#245;'=>'o',
  '&#213;'=>'O',
  'ő'=>'o',
  'Ő'=>'O',
  'ř'=>'r',
  'Ř'=>'R',
  'ŕ'=>'r',
  'Ŕ'=>'R',
  'š'=>'s',
  'Š'=>'S',
  'ś'=>'s',
  'Ś'=>'S',
  'ť'=>'t',
  'Ť'=>'T',
  'ú'=>'u',
  'Ú'=>'U',
  'ů'=>'u',
  'Ů'=>'U',
  'ü'=>'u',
  'Ü'=>'U',
  '&#249;'=>'u',
  '&#217;'=>'U',
  '&#361;'=>'u',
  '&#360;'=>'U',
  '&#251;'=>'u',
  '&#219;'=>'U',
  'ý'=>'y',
  'Ý'=>'Y',
  'ž'=>'z',
  'Ž'=>'Z',
  'ź'=>'z',
  'Ź'=>'Z',
  ' '=>'_'
);

$jmeno2 = strtr($jmeno, $prevodni_tabulka);

  $ftp_server = "srandaweb.ic.cz";
  $ftp_user   = "srandaweb";          // uzivatelske jmeno
  $ftp_pass   = "ickuba";          // uzivatelske heslo
  $newdir     = "../$jmeno2"; // cela cesta noveho adresare
  $conn_id = ftp_connect($ftp_server)
    or die("Nelze se pripojit k serveru $ftp_server");
  if (!@ftp_login($conn_id, $ftp_user, $ftp_pass)) {
    echo "Nelze se pripojit jako uzivatel $ftp_user\n";
  }
  ftp_mkdir($conn_id, $newdir)
    or die("Vytvoreni adresare selhalo.");
  $chmod_cmd="CHMOD 0777 ".$newdir;
  ftp_site($conn_id, $chmod_cmd);    // nastavime prava pro zapis
  

?>
<?
//odstraneni nebezpecnych znaku
$jmeno2 = HTMLSpecialChars($jmeno2);

//formatovani prispevku
if ($datum!="" && $datum!=""):
$www = "$jmeno $jmeno2";
endif;


$write = StripSlashes($www); //odstraneni escape sekvenci

if (File_Exists ("rubriky.dat")): //existuje soubor book.dat
$fp = FOpen ("rubriky.dat", "r"); //otevře soubor book.dat pro čtení
$data = FRead ($fp, FileSize("rubriky.dat")); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře
FClose($fp); //zavře book.dat
endif;
$fp = FOpen ("rubriky.dat", "w"); //otevře book.dat pro přepis nebo vytvoření
FWrite ($fp, $write.$data); //zápis do souboru book.dat (nejprve aktuální příspěvek, poté předešlý obsah souboru book.dat)
FClose ($fp); //zavře soubor book.dat


?>
<html>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="5; URL=prihlaseni.php?prihlas=vytvorrubriku">
</head>
</html>
