polys.pl

[Steffen]

Hi Struppi

Erstmal vielen Dank für deine Antwort

Also folgenden code habe ich im Internet gefunden, wobei ich aber nicht genau weis ob es komprimiert sondern nur die Größe verändert.
Auf Jedenfall sollte use GD; schonmal richtig sein.

So kam anfangs die Fehlermeldung: Can't locate GD.pm
also habe ich das Modul CPAN geholt und die GD.pm im cgi-bin gelegt nun kommt die Fehlermeldung GD/Image.pm und habe den ordner GD mit Inhalt im cgi-bin gelegt aber die Fehlermeldung bleibt.

#! /usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);

use GD;

$filename = "syl3.jpg";

print "Content-Type: text/html\n\n";

print "Bitte warten verkleinere Bild";

$image = GD::Image->newFromJpeg($filename);
($width, $height)=$image->getBounds( );

$new_width = 70;
$new_height = $new_width * $height / $width;

$newimage = GD::Image->new($new_width,$new_height);
$newimage->copyResized($image,0,0,0,0,$new_width,$new_height,$width,$height);

$quality = 60;
$jpegdata = $newimage->jpeg($quality);

open(BILD,">test.jpg");
binmode BILD;
print BILD $jpegdata;
close(BILD);

print "Fertig";

exit;