Odeslání do Kategorie

<table border="0" cellspacing="0" cellpadding="0" align="center">
<form action="clanky.php" method="post">
<tr>
<td width=120 class=povinne>
Jméno:
</td>
<td>
<input type="text" name="jmeno" size="30" value="<?
if ($jmeno=="" || $popis==""):	//pokud nebudou zadány všechny povinné údaje, objeví se formulář znovu (s údaji, které již byly vyplněny)
echo $jmeno;
endif;
?>">
</td>
</tr>
<input type="hidden" name="odeslano" value="ano">  

<tr>
<td valign=top width=120 class=povinne>
Kategorie:
</td>
<td>
<select name="stat" size="1">
<option value="s">Škola</option>
<option value="w">Web</option>
<option value="o">Ostatní</option>
</select>
</td>
</tr>

<tr>
<td valign=top width=120 class=povinne>
Text zprávy:
</td>
<td>
<textarea cols="29" rows="5" name="popis"><?
if ($jmeno=="" || $popis==""):	//pokud nebudou zadány všechny povinné údaje, objeví se formulář znovu (s údaji, které již byly vyplněny)
echo $popis;
endif;
?>
</textarea>
</td>
</tr>
<tr>
<td width=120>&nbsp;
</td>
<td>
<center><input type="submit" value="Odeslat">&nbsp;&nbsp;&nbsp;<input type="Reset" value="Vymazat"></center>
			</td>
		</tr>
		</form>
	</table>


	
</table>
   
<? endif ?>

<?
if ($odeslano=="ano"):
if ($jmeno=="" || $popis==""):					//kontrola zadaných udajů, pokud nebyly zadány všechny povinné údaje, do knihy se nic nezapíše

echo "<center><br><font class=male>Musíte vyplnit všechny povinné údaje!<br></font></center>";

else:																	//všechny povinné údaje jsou zadány

$name = "Napsal <font class=jmeno>$jmeno</font>\n";
	
$cas = ", dne <font class=cas>" . Date("j. " . "m. " . "Y,  " . "H:i:s") . "</font><BR>\n";
//do promenne "cas" uloží aktuální datum a čas ve formátu (př. 5. 11. 2000, 13:54:53), zformátuje a načne další řádek

	$popis2 = NL2BR(HTMLSpecialChars($popis));													//změna konců řádků na tagy <BR> a ostraní znaky, které by mohly porušit formátování
	$zprava = "<BR><font class=text>$popis2</font><BR><BR><HR size=\"1\" width=\"70%\" align=\"center\" color=\"#FFcc99\"><BR>\n\n";		//do proměnné "www" uloží $popis2, zformátuje, přidá čáru, která bude oddělovat příspěvky a otevře nový řádek

$write = StripSlashes($name . $cas . $e_mail . $www . $zprava);		
//do proměnné "write" uloží všechna data, která se budou zapisovat a odstraní escape sekvence

if (File_Exists ("book.dat")):											//existuje soubor book.dat
	$fp = FOpen ("book.dat", "r");										//otevře soubor book.dat pro čtení
	$data = FRead ($fp, FileSize("book.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 ("book.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
endif;
endif;
?>
	


<?
if (File_Exists ("book.dat")):											//existuje soubor book.dat
$fp = FOpen ("book.dat", "r");											//otevře soubor book.dat pro čteni
FPassThru($fp);															//vypíše obsah souboru
endif;
?>

// vypísanie súboru
if(!isset($subor)) {
  if(!empty($_GET['kategoria']) && in_array($_GET['kategoria'], $kategorie))
    $subor = $_GET['kategoria'] . '.dat';
  else
    $subor = 'book.dat'; // defaultná kategória
}

if(!isset($subor)) { // kontroluje sa, či je definovaná premenná $subor, táto premenná je definovaná, ak sa predtým zapisovalo, teda ak sa zapisovalo, zobrazí sa ten súbor, do ktorého sa zapisovalo
  if(!empty($_GET['web']) && in_array($_GET['web'], $kategorie)) // ak je zadaná kategória a je v zozname povolených kategórií, vypíše sa tá
    $subor = $_GET['web'] . '.dat';
  if(!empty($_GET['skola']) && in_array($_GET['skola'], $kategorie)) // ak je zadaná kategória a je v zozname povolených kategórií, vypíše sa tá
    $subor = $_GET['skola'] . '.dat';
  else // inak sa vypíše book.dat
    $subor = 'book.dat'; // defaultná kategória

<div id="containtext1">

<?
$kategorie = array('skola', 'web', 'book'); // zoznam povolených kategórií

if(isset($_POST['odeslano']) && $_POST['odeslano'] == 'ano') {
  if(empty($_POST['jmeno']) || empty($_POST['popis'])) {
    echo '<center><br><font class="male">Musíte vyplnit všechny povinné údaje!<br></font></center>';
  } else if(in_array($_POST['stat'], $kategorie)) {
$txt = "Napsal <font class=\"jmeno\">" . htmlspecialchars($_POST['jmeno']) . "</font>\n" .
      ", dne <font class=\"cas\">" . Date('j. m. Y, H:i:s') . "</font><br>\n" .
      "<br><font class=\"text\">" . nl2br(htmlspecialchars($_POST['popis'])) . "</font><br><br><hr size=\"1\" width=\"70%\" align=\"center\" color=\"#FFcc99\"><br>\n\n";

    $subor = $_POST['stat'] . '.dat';
    file_put_contents($subor, $data, FILE_APPEND);
  }
}

// vypísanie súboru
if(!isset($subor)) {
  if(!empty($_GET['kategoria']) && in_array($_GET['kategoria'], $kategorie))
    $subor = $_GET['kategoria'] . '.dat';
  else
    $subor = 'book.dat'; // defaultná kategória
}

if(file_exists($subor) && filesize($subor))
  readfile($subor);
else
  echo 'Žádné články v kategorii';
?>
</div>

if (File_Exists ("book.dat")): //existuje soubor book.dat
$fp = FOpen ("book.dat", "r"); //otevře soubor book.dat pro čtení
$data = FRead ($fp, FileSize("book.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 ("book.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
endif;
endif;