# create thumbnails (format: ##i.jpg)..

use Image::Magick;

my ($width,$height,$relation);

my $p = new Image::Magick;


for (1 .. $#members+1) {    # is gegeben..
	print"<b>$_</b>, ";
	$p->Read("$output_path/$_.jpg");
}

my $numberOfImages = $#$p+1;


for (1 .. $numberOfImages)    {
	($width,$height) = $p->[$_-1]->Get("Width","Height");
	$relation = $height / $width;
	$p->[$_-1]->Resize("Width" => $thumbnail_width, "Height" => ($thumbnail_width * $relation));
	$p->[$_-1]->Write("$output_path/$_"."i.jpg");
	$message .= "$output_path/$_"."i.jpg<br>\n";
}