/Server/PrjInfo/List.php
0,0 → 1,664
<?php
 
error_reporting(E_ALL); // nastavení varování při ladění
 
require_once('Common.php'); // Společné funkce
require_once('TemplateEngine.php'); // Stroj pro práci s templejty
require_once('DirMetadata.php'); // Modul pro načítání informace o adresářích
 
define('WRAP', 70, true); // Lámání řetězcových hodnot
 
// Stavová informace
// -----------------
//
// Tento skript používá pro přenesení stavu ke kliemtovi a zpět dvě stavové
// proměnné prostřednictvím odkazu (zpracová ModRewrite, definováno v konfiguraci webu).
// Jsou to:
//
// lang - zde je kód jazyka, chybějící kód se přesměruje na angličtinu
//
// path - zde se uvádí cesta vůči DOCUMENT_ROOT webu, neplatná cesta se přesměruje
// na root
//
 
// Vyzvedni si parametry z URL
// ---------------------------
 
// Vyzvedni jazyk z předaného parametru
$Lang = (is_string($_GET['lang'])) ? $_GET['lang'] : $Lang = 'en';
$Params['lang'] = $Lang;
//print "Lang:{$Lang}<br>";
 
 
// Převezmi cestu, a odstraň lomítko na konci (na začátku lomítko je)
$Path = (is_string($_GET['path'])) ? $_GET['path'] : $Path = '';
$Path = '/'.ltrim(rtrim($Path, '/'), '/');
 
// Decode entities ?
// $LinkFull=htmlspecialchars_decode($LinkFull);
 
// Ulož
$Params['path'] = $Path;
//print "Path:{$Path}<br>";
 
// Načti metadata pro sekci (první adresář)
// Nikdy nevěř tomu, co přijde od klienta
$SectionDirInfo = new DirMetadata();
$SectionDirInfo->LoadDirInfo('/'.GetSection($Path).'/'.DIRINFO, $Lang);
if($Path!='/')
{
if(!$SectionDirInfo->GetValid())
Redirect('', $Lang); // Neexistující sekci přesměruj na root
}
 
// Pokus se načíst informace jako by cesta vedla do adresáře
$ThisDirInfo = new DirMetadata();
$ThisDirInfo->LoadDirInfo($Path.'/'.DIRINFO, $Lang);
if($ThisDirInfo->GetValid())
{
// Založ objekt templejtu a načti jej
$Template = new TemplateEngine();
$error = $Template->LoadTemplate($_SERVER['DOCUMENT_ROOT'].'/'.TEMPLATE_LISTDIR, $Lang);
if ($error!='')
Error($error);
 
// Generuj dynamický obsah do proměnných objektu Template
ListDir($SectionDirInfo, $ThisDirInfo, $Template, $Params);
 
// Odešli výsledek klientovi
echo $Template->GetPage();
return;
}
 
// Pokus se načíst informace jako by cesta vedla do projektu
$ThisDirInfo->LoadDirInfo($Path.'/'.PRJINFO, $Lang);
if($ThisDirInfo->GetValid())
{
// Založ objekt templejtu a načti jej
$Template = new TemplateEngine();
$error = $Template->LoadTemplate($_SERVER['DOCUMENT_ROOT'].'/'.TEMPLATE_LISTPRJ, $Lang);
if ($error!='')
Error($error);
 
// Generuj dynamický obsah do proměnných objektu Template
ListPrj($SectionDirInfo, $ThisDirInfo, $Template, $Params);
 
// Odešli výsledek klientovi
echo $Template->GetPage();
return;
}
 
// Neplatná cesta (ani adresář, ani projekt)
Redirect('/', $Lang);
return;
 
 
function CreateListLinkHTML($Params, $DirName='', $Title='')
{
// Spoj cestu a (volitelné) jméno adresáře
if ($DirName!='')
$Params['path'] = $Params['path'].'/'.$DirName;
 
// Odvoď jméno z názvu adresáře
$DirName = basename($Params['path']);
if ($DirName == '')
{
$DirName = '(root)';
}
 
// Jméno skriptu (statické jméno je pomocí mod_rewrite přesměrováno na tento skript)
$ScriptName = '/' . LISTSCRIPT;
$ScriptName .= ($Params['lang'] !== '') ? '.'.$Params['lang'] : '';
$ScriptName .= '.html';
 
// Sestav odkaz
$Link = "<a href=\"{$Params['path']}{$ScriptName}\"";
if ($Title!='')
$Link .= "\n".' title="'.htmlspecialchars($Title).'"';
$Link .= ">$DirName</a>";
 
return $Link;
}
 
 
function CreateListLinkPathHTML($Params, $Title)
// Vstupem je cesta (začínající /) od DOCUMENT_ROOT
// Výsledkem je řádka odkazů na jednotlivé adresáře cesty
// Odkazy jsou odkazy na skript (obsahuje cestu i jazyk)
{
// Rozděl cestu na kousky
$Parts = explode('/', $Params['path']);
if ($Parts[0]=='')
array_shift($Parts); // vyhoď případnou prázdnou položku
 
// Začínáme od rootu
$TempPath = '';
 
// Odkaz na root (je vždy)
$Params['path'] = $TempPath;
$Link = CreateListLinkHTML($Params, '', $Title);
 
// Je něco víc než root?
if (isset($Parts[0]) && $Parts[0]!='')
{
// Odkaz na všechny další adresáře cesty
foreach($Parts as $Key => $Value)
{
// Přidej adresář
$TempPath .= '/'.$Value;
 
// Vyrob odkaz
$Link .= " /\n";
$Params['path'] = $TempPath;
$Link .= CreateListLinkHTML($Params, '', $Title);
}
}
 
// Vrať výsledek
return $Link;
}
 
 
function ListDir($SectionDirInfo, $ThisDirInfo, $Template, $Params)
// Tato funkce vkládá informace do objektu Template pro výpis seznamu
// položek v adresáři (seznam projektů a sekcí v zadaném adresáři)
{
// Lokálně používané parametry pěkně při ruce
$Path = $Params['path'];
$Lang = $Params['lang'];
 
// HTML hlavička - doplň sekci
$Template->SetVariable('InfoSection', GetSection($Path));
 
// Zkopíruj informace z DIRINFO (z adresáře sekce a pak z aktuálního adresáře)
// do proměnných templejtu
foreach($SectionDirInfo->DirData as $Key => $Value)
{
$Template->SetVariable($Key, $Value, WRAP);
}
foreach($ThisDirInfo->DirData as $Key => $Value)
{
$Template->SetVariable($Key, $Value, WRAP);
}
 
// Klikací řádka s cestou
$Template->SetVariable('InfoPath',
CreateListLinkPathHTML($Params, $Template->GetString('InfoPathTitle')));
 
// Permalink
$Template->SetVariable('InfoPermaLink', PermaLinkCreateLink($Path));
 
// Procházej adresář
// -----------------
 
 
// Odstraň lomítko u prázdné cesty aby se nezdvojovalo
if ($Params['path']=='/')
$Params['path'] = '';
 
// Objekt pro načítání informací o adresářích a projektech
$DirInfo = new DirMetadata();
 
// Abych nešahal pořád do objektu, použiju proměnnou
$Glue = $Template->GetVariable('InfoGlue');
 
// Sem se střádá mezivýsledek
// Zvlášť adresáře a projekty aby byly oddělené ve výsledku
$LinesDir = ''; // Adresáře
$LinesPrj = ''; // Projekty
 
// Procházení adresářem
$Dir = glob($_SERVER['DOCUMENT_ROOT'].$Path.'/*', GLOB_ONLYDIR);
 
// Vezmi jen jméno adresáře a vytvoř asociativní pole s klíči
foreach ($Dir as $Key => $DirName)
{
$DirName = basename($DirName);
$NewDir[$DirName] = $DirName;
}
$Dir = $NewDir;
unset($NewDir);
 
// Setřídění adresářů podle preferovaného třídění ze [SortPreferences]
$NewDir = array();
$Sort = $ThisDirInfo->GetVariable('SortPreferences'); // vzorové třídění
if ($Sort!='')
{
$Sort = explode("\n", $Sort);
// Najdi a přendej nalezené položky
foreach ($Sort as $Value)
{
$Value = trim($Value);
if (isset($Dir[$Value]))
{
// Zařaď do nového pole
$NewDir[] = $Value;
// Vyhoď ze starého
unset($Dir[$Value]);
}
}
// Přendej zbylé položky
foreach ($Dir as $Value)
{
$NewDir[] = $Value;
}
$Dir = $NewDir;
unset($NewDir);
}
 
// Zpracování položek
foreach ($Dir as $DirName)
{
// Načti informace o (každém) adresáři
$DirInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.DIRINFO, $Lang);
// Pokud to není adresář, tak načti informace o projektu
if (!$DirInfoValid)
{
$ProjectInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.PRJINFO, $Lang)
or
// Heuristika pro projekty, které ještě nemají popis
$ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/DOC')
or
$ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/SCH');
}
 
// Zkontroluj, zda jsme v platné sekci
if ($DirInfoValid || $ProjectInfoValid)
{
// Připrav si proměnné
unset($Variables);
foreach($DirInfo->DirData as $Key => $Value)
{
$Variables[$Key] = $DirInfo->GetString($Key, WRAP);
}
 
$Variables['InfoName'] = ($DirInfoValid or $ProjectInfoValid) ? CreateListLinkHTML($Params, $DirName, $DirInfo->GetString('InfoLongDescription'))
: $DirName;
$Variables['InfoPicture'] = CreatePicturesLink($Params['path'].'/'.$DirName, $Glue, 'Ilustrative Picture', '/'.TEMPLATE_PATH.'/'.$Template->GetVariable('InfoNoPicture'), 150);
$Variables['InfoDescripion'] = $DirInfo->GetString('InfoShortDescription', WRAP);
$Variables['InfoWebSVN'] = CreateSVNLink($Params['path'].'/'.$DirName, $Params['lang'], $Template->GetString('InfoSVNTitle'));
if (!$DirInfoValid)
{
$Variables['InfoWIKI'] = CreateWikiLink($DirName, $Params['lang'], $Template->GetString('InfoWikiTitle'));
}
$Variables['InfoHTML'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/HTML/*.[hH][tT][mM][lL]', $Glue);
$Variables['InfoPDF'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/*.[pP][dD][fF]', $Glue);
$Variables['InfoSCH'] = CreateFilesLink($Params['path'].'/'.$DirName.'/SCH/*.[pP][dD][fF]', $Glue);
 
// Vlož info o dostupnosti na UST
if($DirInfo->GetString('InfoBuyUST')!= '')
{
$Variables['InfoBuy'] = CreateLink($DirInfo->GetString('InfoBuyUST'),'UST');
}
 
// Poukni proměnné do vzoru a střádej si výsledek
if ($DirInfoValid)
$LinesDir .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
else
$LinesPrj .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
}
}
 
// Slož k sobě obě části (adresář / separátor / projekt)
if ($LinesDir!='' and $LinesPrj!='')
$Lines = $LinesDir.$Template->GetString('InfoSeparator').$LinesPrj;
else
$Lines = $LinesDir.$LinesPrj;
 
// Teď sestavené položky ulož do proměnné "InfoLine" objektu
$Template->SetVariable('InfoLine', $Lines);
}
 
 
function ListPrj($SectionDirInfo, $ThisDirInfo, $Template, $Params)
// Tato funkce vkládá informace do objektu Template pro výpis informací
// o projektu (náhled, informace, odkazy na dokuemntaci etc.)
{
// Lokálně používané parametry pěkně při ruce
$Path = $Params['path'];
$Lang = $Params['lang'];
 
// Abych nešahal pořád do objektu, použiju proměnnou
$Glue = $Template->GetVariable('InfoGlue');
 
// HTML hlavička - doplň sekci
$Template->SetVariable('InfoSection', GetSection($Path));
 
// Zkopíruj informace z DIRINFO (z adresáře sekce a pak z aktuálního adresáře)
// do proměnných templejtu
foreach($SectionDirInfo->DirData as $Key => $Value)
{
$Template->SetVariable($Key, $Value, WRAP);
}
foreach($ThisDirInfo->DirData as $Key => $Value)
{
$Template->SetVariable($Key, $Value, WRAP);
}
 
// Klikací řádka s cestou
$Template->SetVariable('InfoPath',
CreateListLinkPathHTML($Params, $Template->GetString('InfoPathTitle')));
 
// Permalink
$Template->SetVariable('InfoPermaLink', PermaLinkCreateLink($Path));
 
 
// Zpracuj informace o projektu
// ----------------------------
 
 
unset($Variables);
 
// Převezmi data z popisu projektu
foreach($ThisDirInfo->DirData as $Key => $Value)
{
$Variables[$Key] = $ThisDirInfo->GetString($Key, WRAP);
}
 
$Template->SetVariable('InfoVariables', $Variables);
 
// Odkaz na obrázky k projektu
$Template->SetVariable('InfoPictures', CreatePicturesLink($Path, $Template->GetString('InfoPicturesGlue'), 'Ilustrative Picture', '', 200));
 
// Data do tabulky
$Template->SetVariable('InfoText', CreateFilesLink($Path.'/DOC/{HTML/*.[hH][tT][mM][lL],*.[pP][dD][fF]}', $Glue));
 
$Template->SetVariable('InfoWebSVN', CreateSVNLink($Path, $Lang, $Template->GetString('InfoSVNTitle')));
 
$Variables['InfoName'] = basename($Path);
 
/* $Variables['InfoName'] = ($DirInfoValid or $ProjectInfoValid) ? CreateListLinkHTML($Params, $DirName, $DirInfo->GetString('InfoLongDescription'))
: $DirName;
$Variables['InfoPicture'] = CreatePicturesLink($Params['path'].'/'.$DirName, $Glue, 'Ilustrative Picture', '/'.TEMPLATE_PATH.'/'.$Template->GetVariable('InfoNoPicture'), 150);
$Variables['InfoDescripion'] = $DirInfo->GetString('InfoShortDescription', WRAP);
$Variables['InfoWebSVN'] = CreateSVNLink($Params['path'].'/'.$DirName, $Params['lang'], $Template->GetString('InfoSVNTitle'));
if (!$DirInfoValid)
{
$Variables['InfoWIKI'] = CreateWikiLink($DirName, $Params['lang'], $Template->GetString('InfoWikiTitle'));
}
$Variables['InfoHTML'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/HTML/*.[hH][tT][mM][lL]', $Glue);
$Variables['InfoPDF'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/*.[pP][dD][fF]', $Glue);
$Variables['InfoSCH'] = CreateFilesLink($Params['path'].'/'.$DirName.'/SCH/*.[pP][dD][fF]', $Glue);
 
// Vlož info o dostupnosti na UST
if($DirInfo->GetString('InfoBuyUST')!= '')
{
$Variables['InfoBuy'] = CreateLink($DirInfo->GetString('InfoBuyUST'),'UST');
}
*/
// Poukni proměnné do vzoru a střádej si výsledek
$LinesPrj = $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
$Template->SetVariable('InfoLine', $LinesPrj);
 
 
/*
// Objekt pro načítání informací o adresářích a projektech
$DirInfo = new DirMetadata();
 
// Abych nešahal pořád do objektu, použiju proměnnou
$Glue = $Template->GetVariable('InfoGlue');
 
// Sem se střádá mezivýsledek
// Zvlášť adresáře a projekty aby byly oddělené ve výsledku
$LinesDir = ''; // Adresáře
$LinesPrj = ''; // Projekty
 
// Procházení adresářem
$Dir = glob($_SERVER['DOCUMENT_ROOT'].$Path.'/*', GLOB_ONLYDIR);
 
// Vezmi jen jméno adresáře a vytvoř asociativní pole s klíči
foreach ($Dir as $Key => $DirName)
{
$DirName = basename($DirName);
$NewDir[$DirName] = $DirName;
}
$Dir = $NewDir;
unset($NewDir);
 
// Setřídění adresářů podle preferovaného třídění ze [SortPreferences]
$NewDir = array();
$Sort = $ThisDirInfo->GetVariable('SortPreferences'); // vzorové třídění
if ($Sort!='')
{
$Sort = explode("\n", $Sort);
// Najdi a přendej nalezené položky
foreach ($Sort as $Value)
{
$Value = trim($Value);
if (isset($Dir[$Value]))
{
// Zařaď do nového pole
$NewDir[] = $Value;
// Vyhoď ze starého
unset($Dir[$Value]);
}
}
// Přendej zbylé položky
foreach ($Dir as $Value)
{
$NewDir[] = $Value;
}
$Dir = $NewDir;
unset($NewDir);
}
 
// Zpracování položek
foreach ($Dir as $DirName)
{
// Načti informace o (každém) adresáři
$DirInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.DIRINFO, $Lang);
// Pokud to není adresář, tak načti informace o projektu
if (!$DirInfoValid)
{
$ProjectInfoValid = $DirInfo->LoadDirInfo($Path.'/'.$DirName.'/'.PRJINFO, $Lang)
or
// Heuristika pro projekty, které ještě nemají popis
$ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/DOC')
or
$ProjectInfoValid = is_dir($_SERVER['DOCUMENT_ROOT'].$Path.'/'.$DirName.'/SCH');
}
 
// Zkontroluj, zda jsme v platné sekci
if ($DirInfoValid || $ProjectInfoValid)
{
// Připrav si proměnné
unset($Variables);
foreach($DirInfo->DirData as $Key => $Value)
{
$Variables[$Key] = $DirInfo->GetString($Key, WRAP);
}
 
$Variables['InfoName'] = ($DirInfoValid or $ProjectInfoValid) ? CreateListLinkHTML($Params, $DirName, $DirInfo->GetString('InfoLongDescription'))
: $DirName;
$Variables['InfoPicture'] = CreatePicturesLink($Params['path'].'/'.$DirName, $Glue, 'Ilustrative Picture', '/'.TEMPLATE_PATH.'/'.$Template->GetVariable('InfoNoPicture'), 150);
$Variables['InfoDescripion'] = $DirInfo->GetString('InfoShortDescription', WRAP);
$Variables['InfoWebSVN'] = CreateSVNLink($Params['path'].'/'.$DirName, $Params['lang'], $Template->GetString('InfoSVNTitle'));
if (!$DirInfoValid)
{
$Variables['InfoWIKI'] = CreateWikiLink($DirName, $Params['lang'], $Template->GetString('InfoWikiTitle'));
}
$Variables['InfoHTML'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/HTML/*.[hH][tT][mM][lL]', $Glue);
$Variables['InfoPDF'] = CreateFilesLink($Params['path'].'/'.$DirName.'/DOC/*.[pP][dD][fF]', $Glue);
$Variables['InfoSCH'] = CreateFilesLink($Params['path'].'/'.$DirName.'/SCH/*.[pP][dD][fF]', $Glue);
 
// Vlož info o dostupnosti na UST
if($DirInfo->GetString('InfoBuyUST')!= '')
{
$Variables['InfoBuy'] = CreateLink($DirInfo->GetString('InfoBuyUST'),'UST');
}
 
// Poukni proměnné do vzoru a střádej si výsledek
if ($DirInfoValid)
$LinesDir .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
else
$LinesPrj .= $Template->Substitute($Variables, $Template->GetVariable('InfoLine'));
}
}
 
// Slož k sobě obě části (adresář / separátor / projekt)
if ($LinesDir!='' and $LinesPrj!='')
$Lines = $LinesDir.$Template->GetString('InfoSeparator').$LinesPrj;
else
$Lines = $LinesDir.$LinesPrj;
 
// Teď sestavené položky ulož do proměnné "InfoLine" objektu
$Template->SetVariable('InfoLine', $Lines);
*/
 
}
 
 
// *************************************
 
 
function WrapString($String, $Wrap=0)
// Provede odstranění nadbytečných bílých znaků
// a volitleně (pokud je $Wrap nenulové) provede zálámání na zadaný počet znaků
{
// Odstaň bílé znaky
$String = preg_replace('/\s+/su', ' ', $String);
 
// Volitelné nalámání
if ($Wrap!=0)
$String = wordwrap($String, $Wrap);
 
return $String;
}
 
 
function xxxCheckWebPath($Path)
// Zadaná cesta se chápe jako cesta uvnitř webu (vzhledem k document root).
// Případné relativní části (/../..) převede na absolutní a zkontroluje
// výsledek, zda nevybočuje mimo web.
// Na začátku nechá lomítko, na konci ho odstraní.
// Pokud je výsledná cesta neplatná, vrátí prázdný řetězec. Kontroluje, zda
// zadaný adresář existuje.
{
// Převeď cestu na opravdovou, odstraň relativní odkazy
$Path = realpath($_SERVER['DOCUMENT_ROOT'].$Path);
 
// Zkontroluj, zda jsme nevybočili z webu
if ( 0 == strncmp($Path, $_SERVER['DOCUMENT_ROOT'], strlen($_SERVER['DOCUMENT_ROOT']) ) )
{
// Shoda - odstraň DOCUMENT_ROOT část cesty
return substr( $Path, strlen($_SERVER['DOCUMENT_ROOT']) );
}
else
{
// Vybočili jsme z webu
return '';
}
}
 
 
function GetSection($Path)
// Vrátí první část cesty (to je to, co nazýváme sekce)
{
// Ignoruj lomítko na začátku
$Path = ltrim($Path, '/');
 
// Vykousni první slovo až po lomítko
$Section = substr($Path, 0, strpos($Path.'/', '/'));
 
// Ošetři root
if ($Section=='')
$Section = "(root)";
 
// Vrať výsledek
return $Section;
}
 
 
function CreateLink($InternetWebPath, $Title='')
// Vstupem je cesta do jiného webu.
// a volitelně title (zobrazí se při najetí myši na odkaz).
// Vrací řetězec s odkazem
{
$Link = '<a href="'.$InternetWebPath.'"';
if ($Title != '')
$Link .= "\n".' title="'.$Title.'"';
$Link .= '>';
$Link .= $Title;
$Link .= '</a>';
 
return $Link;
}
 
 
function CreateScriptLink($Params, $DirName='', $Title='')
// Vytvoř odkaz na skript s parametry skriptu. Parametry jsou předány jako
// pole s jmény položek a hodnotami. Volitelná položka $DirName se přidá k cestě
// v položce $Params. Pokud je zadaná cesta prázdná nebo / zobrazí se slovo root
{
// Připoj volitelné jméno adresáře
if ($DirName!='')
$Params['path'] = $Params['path'].'/'.$DirName;
 
// Odvoď jméno z názvu adresáře
$DirName = basename($Params['path']);
if ($DirName == '')
{
$DirName = '(root)';
$Params['path'] = '/';
}
 
// Zpracuj pole parametrů
$ParamsLine = '';
$LocalGlue = '';
foreach($Params as $Key => $Value)
{
$ParamsLine .= $LocalGlue.$Key.'='.urlencode($Value);
$LocalGlue = '&amp;';
}
unset($LocalGlue);
 
// Sestav odkaz
$Link = '<a href="'.$_SERVER['SCRIPT_NAME'].'?'.$ParamsLine.'"';
if ($Title!='')
$Link .= "\n".' title="'.htmlspecialchars($Title).'"';
$Link .= ">$DirName</a>";
 
return $Link;
}
 
 
function CreateScriptLinkPath($Params, $Title)
// Vstupem je cesta (začínající /) od DOCUMENT_ROOT
// Výsledkem je řádka odkazů na jednotlivé adresáře cesty
// Odkazy jsou odkazy na skript s parametrem cesty a jazyka
// Vstupem je pole parametrů ze kterých použijeme parametr 'path',
// ostatní jen umístíme do odkazů.
{
// Rozděl cestu na kousky
$Parts = explode('/', $Params['path']);
if ($Parts[0]=='')
array_shift($Parts); // vyhoď případnou prázdnou položku
 
// Začínáme od rootu
$TempPath = '';
 
// Odkaz na root (je vždy)
$Params['path'] = $TempPath;
$Link = CreateScriptLink($Params, '', $Title);
 
// Je něco víc než root?
if (isset($Parts[0]) && $Parts[0]!='')
{
// Odkaz na všechny další adresáře cesty
foreach($Parts as $Key => $Value)
{
// Přidej adresář
$TempPath .= '/'.$Value;
 
// Vyrob odkaz
$Link .= " /\n";
$Params['path'] = $TempPath;
$Link .= CreateScriptLink($Params, '', $Title);
}
}
 
// Vrať výsledek
return $Link;
}
 
?>