<?php
//
// komentovane uzitecne funkce
//
function odcesti($vstup) {
// funkce na odstraneni cestiny z textu
// vstupem je cesky retezec, vystupem text bez hacku, carek, diakritiky a mezer
	$vystup=strtr($vstup,"儦儑澱摿歖浛嗅潭鬈齔襛柗嘵怍⺆栩趨劦祳汍甚悗洏皊嗒囁 ,!?","escrzyaieruoslzcntdlneuoauESCRZYAIERUOSLZCNTDLNEUOAU____");
	return $vystup;
}
function todot($vstup) {
	$casti=explode(",",strval($vstup));
	$vystup=implode(".",$casti);
	return $vystup;
}
function tosafe ($vstup) {
	$vstup=round($vstup);
	$porovnej=floor($vstup/16)*16+floor($vstup/16);
	$horni=$porovnej+17;
	$dolni=$porovnej-17;
	if ($dolni<0) $dolni=0;
	if ($horni>255) $horni=255;
	if ($vstup<$porovnej) $horni=$porovnej;
	if ($vstup>$porovnej) $dolni=$porovnej;
	if ($vstup==$porovnej):
		$vystup=floor($vstup/16);
	else:
		$vystup=($horni-$vstup>$vstup-$dolni)?floor($dolni/16):floor($horni/16);
	endif;
	return $vystup;
}
function textclean($vstup,$priznaky) {
/*
cisteni textu od bordelu + priprava do databaze
priznaky:   1 -- prevest #a0 na mezery
            2 -- prevest tabelatory na mezery
            4 -- pridat slashe
            8 -- prevest TeXove sekvence na html entity
           16 -- odstranit HTML znacky
           32 -- odstranit vicenasobne mezery a mezery z koncu odstavcu
           64 -- odstranit prazdne radky
          128 -- trim
          dalsi bude doplneno
*/
	if (empty($priznaky)) $priznaky=255; // doplnit delku !!!
	if (($priznaky&1)==1) $vstup=str_replace(chr(160)," ",$vstup);
	if (($priznaky&2)==2) $vstup=preg_replace('/\t/'," ",$vstup);
	if (($priznaky&4)==4) $vstup=addslashes($vstup);
	if (($priznaky&8)==8) $vstup=str_replace("--","&ndash;",str_replace("---","&mdash;",str_replace("~","&nbsp;",$vstup)));
	if (($priznaky&16)==16) $vstup=strip_tags($vstup);
	if (($priznaky&32)==32) $vstup=preg_replace('/^ /',"",preg_replace('/ $/',"",preg_replace('/ +/'," ",$vstup)));
	if (($priznaky&64)==64) $vstup=preg_replace('/^$/',"",$vstup);
	if (($priznaky&128)==128) $vstup=trim($vstup);
	return($vstup);
}
function texttyp ($vstup,$preklady) {
/*
vraci bud preklad mime do cestiny, nebo mime
*/
	if ($vsechno=file($preklady,FILE_IGNORE_NEW_LINES | FILE_SKIP_EMPTY_LINES)) {
		reset($vsechno); do {
			$pompole=explode("|",current($vsechno));
			$typsouboru[$pompole[0]]=$pompole[1];
		} while (next($vsechno)!==false);
		$vystup=!empty($typsouboru[mime_content_type($vstup)])?$typsouboru[mime_content_type($vstup)]:mime_content_type($vstup);
		return $vystup;
	}
}
function getjustfiles ($cesta) {
	$vsechno=scandir($cesta);
	reset($vsechno); do {
		$jeden=current($vsechno);
		if (is_file($cesta.$jeden) && !in_array($jeden,".","..")) $vystup[]=$jeden;
	} while (next($vsechno)!==false);
	return $vystup;
}
function getjustdirs ($cesta) {
	$vsechno=scandir($cesta);
	reset($vsechno); do {
		$jeden=current($vsechno);
		if (is_dir($cesta.$jeden) && $jeden!=".") $vystup[]=$jeden;
	} while (next($vsechno)!==false);
	return $vystup;
}
function compactdate ($timestamp) {
	$vystup=(time()-$timestamp)/86400<365?date("j. n. H:i",$timestamp):date("j. n. Y",$timestamp);
	return $vystup;
}
function rrmdir($dir) {
	foreach(glob($dir.'/*') as $file) if(is_dir($file)) rrmdir($file); else unlink($file);
    rmdir($dir);
}
?>