Thumbnailgalerie?

[Take Three]

Hallo,

Könnte sich vielleicht nochmal jemand die Mühe mach, dieses Skript auf Fehler durchzusehen? Bei mir wird nämlich statt der gleichen Höhe nur die gleiche Breite für alle Thumbs ausgegeben!? Ich hab's schon ein paarmal durchgecheckt, aber bislang noch keinen Fehler gefunden.

<?  
$loeschdatum=date(j);  
$tv = opendir ("./bilder/thumbs/");  
while ($tfile=readdir($tv)) {if ($loeschdatum=="1") unlink ("./bilder/thumbs/".$tfile); }                        //Immer bei Monats-Anfang wird das Thumbnail-Verzeichnis erneuert  
  
if (!is_dir("./bilder/thumbs/")) mkdir ("./bilder/thumbs/");  
  
$verzeichnis = opendir ('./bilder/');  
while ($file=readdir($verzeichnis)) {  
if (!is_file("./bilder/thumbs/".$file)) {  
  
$quell_file  = imagecreatefromjpeg($file);  
  
$height = imagesy($quell_file); // Höhe  
$width = imagesx($quell_file);  // Breite  
  
$new_height = 112;  
$quot = $height / $width;  
$new_width = $width / $quot;  
$ziel_file = imagecreatetruecolor($new_width,$new_height);  
  
imagecopyresized($ziel_file,$quell_file,0,0,0,0,$new_width,$new_height,$width,$height);  
  
imageinterlace($ziel_file);  
  
imagejpeg($ziel_file,"./bilder/thumbs/".$file,100);  
  
} }  
?>