<?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('DIRINFO', 'DirInfo.txt', true); // Jméno souboru s informacemi o adresáři
define('PRJINFO', 'PrjInfo.txt', true); // Jméno souboru s informacemi o projektu
define('WRAP', 70, true); // Lámání řetězcových hodnot
define('TEMPLATEPATH', 'Templates', true); // relativní cesta k templejtům
$TemplateFile = 'Modules.ihtml'; // přípona jazyka se doplní sama
// Stavová informace
// -----------------
//
// Tento skript používá pro přenesení stavu ke kliemtovi a zpět dvě stavové
// proměnné prostřednictvím odkazu. Jsou to:
//
// lang - zde je kód jazyka, neplatný či chybějící kód se mapuje na angličtinu
//
// path - zde se uvádí cesta vůči DOCUMENT_ROOT webu, neplatná cesta se mapuje
// na cestu k root adresáři webu
//
// Vyzvedni si parametry z URL
// ---------------------------
// Parametr cesty z položky path
// Načteme, ověříme a pokud je něco špatně vracíme root
$Path = '';
if (isset($_GET['path']))
$Path = CheckWebPath($_GET['path']);
if ($Path == '')
$Path = '/';
$Params['path'] = $Path;
// Parametr jazyka z položky lang
// Pozor, tento parametr se nekontroluje a musí se ošetřit až při použití
// Předpokládá se, že neplatný jazyk se bude chovat jako angličtina
$Lang = 'en';
if (isset($_GET['lang']))
$Lang = substr($_GET['lang'], 0, 2);
$Params['lang'] = $Lang;
// Proveď zpracování templejtu nahrazovacím strojem
// ------------------------------------------------
// Založ objekt templejtu
$Template = new TemplateEngine();
// Načti templejt do objektu
$error = $Template->LoadTemplate(TEMPLATEPATH.'/'.$TemplateFile, $Params['lang']);
if ($error!='')
Error($error);
// Generuj dynamický obsah do proměnných
PowerFunction($Template, $Params);
// Odešli výsledek klientovi
echo $Template->GetPage();
function PowerFunction($Template, $Params)
// Tato funkce vykonává maso (generuje dynamický obsah stránky do podoby pole
// proměnných. Toto pole se následně použije na modifikaci templejtu .
{
// Lokálně používané prametry pěkně při ruce
$Path = $Params['path'];
$Lang = $Params['lang'];
// Zjisti informace o sekci (z prvního adresáře cesty)
$SectionDirInfo = new DirMetadata();
$SectionDirInfo->LoadDirInfo('/'.GetSection($Path).'/'.DIRINFO, $Lang);
// Pokud cesta sahá do sekce, která nemá popis spadneme do rootu
if(!$SectionDirInfo->GetValid())
{
$Params['path'] = '/';
$Path = $Params['path'];
}
// Zjisti informace o aktuálním adresáři
$ThisDirInfo = new DirMetadata();
$ThisDirInfo->LoadDirInfo($Path.'/'.DIRINFO, $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',
CreateScriptLinkPath($Params, $Template->GetString('InfoPathTitle')));
// 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 ($Path!='' || $Valid)
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 ? CreateScriptLink($Params, $DirName, $DirInfo->GetString('InfoLongDescription'))
: $DirName;
$Variables['InfoPicture'] = CreatePicturesLink($Params['path'].'/'.$DirName, $Glue, 'Žluťoučký kůň', TEMPLATEPATH.'/'.$Template->GetVariable('InfoNoPicture'));
$Variables['InfoDescripion'] = $DirInfo->GetString('InfoShortDescription', WRAP);
$Variables['InfoWebSVN'] = CreateSVNLink($Params['path'].'/'.$DirName, $Params['lang'], $Template->GetString('InfoSVNTitle'));
$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);
// 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);
}
/*
//Načtení adresáře
if ((Is_Dir($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1)) && (substr($soubor1,0,1) <> ".") && (substr($soubor1,0,1) <> "!")) {
//Nastavení suffixu u obrázků
$img = $soubor1."_Small.jpg";
//Pokud existuje náhled obrázku, zobraz ho
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$img)) {
echo "<td><A HREF=\"image.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\" TARGET=\"_blank\"><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\" border=\"0\"></a></td>\n";
} else { echo "<td><img src=\"thumb.php?pth=".$HTTP_GET_VARS["file"]."/".$soubor1."&fname=".$soubor1."\"></td>\n"; }
//Pokud existuje HTML dokumentace k modulu vytvoř na ni odkaz
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html")) {
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/HTML/".$soubor1.".".$lang.".html\">".$soubor1."</a></td>\n";
} else { echo "<td>".$soubor."<b>".$soubor1."</b></td>\n"; }
//Pokud existuje PDF dokumentace k modulu zobraz odkaz
if (file_exists($path.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf")) {
echo "<td><a href=\"".$www.$folder."/".$HTTP_GET_VARS["file"]."/".$soubor1."/DOC/".$soubor1.".".$lang.".pdf\">PDF</a></td>\n";
} else { echo "\n<td>-</td>\n"; }
//WebSVN odkaz
echo "<td><a href=\"http://www.mlab.cz/WebSVN/listing.php?repname=MLAB&path=/Modules/".$HTTP_GET_VARS["file"]."/".$soubor1."/\">WebSVN</a></td>\n";
//Pokud existuje stručné info, zobraz ho
if (file_exists($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1)) {
$fp = FOpen ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1, "r");
$data = FRead ($fp, FileSize ($path.$folder.'/'.$HTTP_GET_VARS["file"]."/".$soubor1."/".$info1));
FClose ($fp);
echo "<td>".wordwrap($data, 50, "<br>")."</td>\n";
} else { echo "\n<td><i>No description available</i></td>\n"; }
echo "</tr>\n\n";
}
$PathEncoded = URLEncode($Path.'/'.$FileName);
$htmllink = "<a href='".$_SERVER['SCRIPT_NAME']."?lang=$Lang&path=$PathEncoded'>$FileName</a>";
*/
?>
|