<?
$meno = HTMLSpecialChars($meno);
$email = HTMLSpecialChars($email);
$web = HTMLSpecialChars($web);
$meno = "<table><tr><td>$meno</td></tr>";
$email = "<tr><td><A HREF=mailto:$email>$email</A></td></tr>";
if ($web!="" && $web!="http://"):
$www = "<tr><td><A HREF=\"$web\">$web</A></td></tr>";
endif;
$cas = "<tr><td>" . Date("j. " . "m. " . "Y, " . "H:i:s") . "</td></tr>";
$sprava = SubStr($sprava, 0, 1500);
$sprava = Trim($sprava);
$sprava = HTMLSpecialChars($sprava);
$sprava = Str_Replace("\n"," <BR> ", $sprava);
$znak = 66;
$slovo = Split("[[:blank:]]+", $sprava);
for($y=0;$y<Count($slovo);$y++):
$slovo[$y] = Trim($slovo[$y]);
if (Strlen($slovo[$y])<=$znak):
if (EregI("^(www\..+\..{2,3})$", $slovo[$y])):
$odkaz = EregI_Replace("^(www\..+\..{2,3})$", "<a href=http://\\1>\\1</a> ", $slovo[$y]);
elseif (EregI("^(http://.+\..{2,3})$", $slovo[$y])):
$odkaz = EregI_Replace("^(http://.+\..{2,3})$", "<a href=\\1>\\1</a> ", $slovo[$y]);
else:
$odkaz = $slovo[$y] . " ";
endif;
$celok .= $odkaz;
else:
$delit = Ceil(StrLen($slovo[$y])/$znak);
for($z=0;$z<$delit;$z++):
$cast = Substr($slovo[$y], $z*$znak, $znak);
$celok .= $cast . " - ";
endfor;
endif;
endfor;
$sprava = Str_Replace("<b>", "<b>", $celok);
$sprava = Str_Replace("</b>", "</b>", $sprava);
$sprava = Str_Replace("<i>", "<i>", $sprava);
$sprava = Str_Replace("</i>", "</i>", $sprava);
$sprava = Str_Replace("<u>", "<u>", $sprava);
$sprava = Str_Replace("</u>", "</u>", $sprava);
$sprava = "<tr><td><br>$sprava</td></tr></table><div id=hr></div>\n";
$write = StripSlashes($meno . $email . $www . $cas . $sprava);
if (File_Exists ("book.dat")):
$fp = FOpen ("book.dat", "r");
$data = FRead ($fp, FileSize("book.dat"));
FClose($fp);
endif;
$fp = FOpen ("book.dat", "w");
FWrite ($fp, $write.$data);
FClose ($fp);
?>
<html><head>
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=http://emer.php5.sk/index.php?stranka=kniha">
</head></html>
Choď na stránku: 