GUESTBOOK

$znak = 66;		//dlouha slova delit po .. znacich

$slovo = Split("[[:blank:]]+", $zprava);		//rozdeleni textu na slova

	for($y=0;$y<Count($slovo);$y++):

		$slovo[$y] = Trim($slovo[$y]);			//odstraneni mezer na konci slova

		if (Strlen($slovo[$y])<=$znak):			//nebudeme delit

			if (EregI("^(www\..+\..{2,3})$", $slovo[$y])):		//jedna se odkaz typu www......

				$odkaz = EregI_Replace("^(www\..+\..{2,3})$", "<a href=http://\\1>\\1</a> ", $slovo[$y]);

			elseif (EregI("^(http://.+\..{2,3})$", $slovo[$y]))://jedna se odkaz typu http://.......

				$odkaz = EregI_Replace("^(http://.+\..{2,3})$", "<a href=\\1>\\1</a> ", $slovo[$y]);

			else:

				$odkaz = $slovo[$y] . " ";						//jedna se o normalni slovo

			endif;

			$celek .= $odkaz;					//spojime vsechny slova opet dohromady

		else:

			$delit = Ceil(StrLen($slovo[$y])/$znak);	//delime dlouhe slovo

			for($z=0;$z<$delit;$z++):

			$cast = Substr($slovo[$y], $z*$znak, $znak);

			$celek .= $cast . " - ";					//na konec jednotlivych casti pridame pomlcku

			endfor;

		endif;

	endfor;