ACC SHELL

<style type="text/css">
<!--
 .thumbnail
{
float: left;

border: 1px solid #999;
margin: 0 15px 15px 0;
padding: 5px;
text-align:center;

}

.clearboth { clear: both; }
-->
</style>




<?
/*funkce pro vytvoreni nahledu
$adresa- cesta k originalu + nazev souboru
$fname - cesta k nahledu + nazev souboru
*/

function thumb_img($adresa,$fname)
{
//**-----vypocet budouciho rozmeru---------------------------------------
   
    if(File_Exists($adresa))
	{ 
	 $a=GetImageSize($adresa);
	 if($a[0]>100 || $a[1]>100)
	  $pomer=$a[0]/$a[1];
	 while(($a[0]>120 && $a[1]>120) || ($a[0]<140 || $a[1]<140) && $a[0]/$a[1]==$pomer)
	   {	
	   $a[0]=round($a[0]/1.1);
	   $a[1]=round($a[1]/1.1);
	   }
	   
	 } else  break;
	
// samotnej resample-------------------------

$filename = $fname;
$typ="jpg";
if ($typ == "gif") { $vstup_funkce = ImageCreateFromGIF; $vystup_funkce = ImageGIF; }
elseif ($typ == "jpg") { $vstup_funkce = ImageCreateFromJPEG; $vystup_funkce = ImageJPEG; }
elseif ($typ == "png") { $vstup_funkce = ImageCreateFromPNG; $vystup_funkce = ImagePNG;}

$img_zdroj = $vstup_funkce($adresa);                                               // nacteme obrazek ze souboru
$img_cil = imageCreateTrueColor($a[0],$a[1]);                                       // vytvorime prostor pro cilovy obrazek
imagecopyresampled($img_cil,$img_zdroj,0,0,0,0,$a[0],$a[1],ImageSX($img_zdroj),ImageSY($img_zdroj)); // zmensime obrazek 
$vystup_funkce($img_cil,$filename);                                                            // zapiseme novy obrazek do souboru
ImageDestroy($img_zdroj);                                                                    // uvolnime pamet zdrojoveho obrazku
ImageDestroy($img_cil);                                                           // uvolnime pamet ciloveho obrazku
}

/*
funkce, která projede zadany adresář $adresar, najde vsechny soubory zip, a zobrazi je s nahledovym obrazkem,
soubor zip se musi jmenovat stejne jako jpg, v adresari musi byt jeste podadresar "nahledy" pro ukladani nahledu jpg.
$adresar - nazev adresare napr ("import")
$nahled - nazev adresare pro nahledy napr ("nahledy")
*/
function picture($adresar,$nahled){

//inicializace promennych
//cesta k nahledum na obrazek, tady je mozne zmenit adresar pro ukladani nahledu
$thumb=$adresar."/".$nahled."/";
//------------------------------------------------ Nacteni obrazku z adresare
$ukazatel = opendir("$adresar");

    $i=3;

  while (false !== ($soubor = readdir($ukazatel)))
  {
  	//vypis adresare
  		 //echo $soubor."<BR>";
   $delka=strlen($soubor);
//------------------------------------------------rozbiju nazev at vim skym mám tu čest
list($nazev, $pripona) = explode(".", $soubor);
   		//echo $nazev; 
		//echo $pripona; 
		
//pokud jde o obrazek zjistim jestli uz je vytvoren nahled, pokud ne resamplujuho
//cesta k nahledum
$nahled=$thumb."thumb_".$nazev.".";
    if($pripona=="jpg")
	{ 
	 if(!file_exists($nahled.$pripona))
	 { 
	 //cesta k originalu jpg
	 $original=$adresar."/".$soubor;
	  //echo "dem resamplovat";
	 thumb_img($original,$nahled."jpg");
	
	 }
	}
	elseif($soubor != "." && $soubor != ".." && $pripona=="zip")
	  {

     $k=$i%3;

       if ($k==0){
        //  echo'<tr>';
         }

 echo "<div class=\"thumbnail\">";
 echo "<a href=\"{$adresar}/{$soubor}\" target=\"_blank\" title=\"\">";
 echo "<img src=\"".$nahled."jpg\" border=\"0\" alt=\"\">";
 echo "<br>";
 echo $soubor;
 echo "</a>";
 echo "</div>";

       if ($k==2){
       echo "<br class=\"clearboth\">";
        }

       $i++;

     }}

   
    closedir($ukazatel);

    };
	//volani funkce
//	picture("import","nahledy");
?>