#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$a=new CGI;
$upload = $a->param("bild");
$Bildcode = time;

# Breite für Bilder angeben

$w1=600; #b big
$w2=400; #m middle
$w3=120; #s small

$width=800;
$height=600;
$size=78;

open UPFILE, ">/home/web9/html/berichte/bilder/org/$Bildcode.jpg";
binmode $upload;
while (<$upload>){print UPFILE;} close UPFILE;


print "Content-type: text/html\n\n";
print "Merken Sie sich den Bildcode : <b>$Bildcode</b><br>";

# Bild bearbeiten !
use Image::Magick;
$image = Image::Magick->new;
($width, $height, $size, $format) = $image->Ping("/home/web9/html/berichte/bilder/org/$Bildcode.jpg");

print "<img src='../../berichte/bilder/org/$Bildcode.jpg>Test /home/web9/html/berichte/bilder/org/$Bildcode.jpg";

print "Breite (w): $width<br>";
print "Höhe (h): $height<br>";
print "Größe byte: $size<br>";


$h1=int(($w1 / $width)* $height);

#$image1 = Image::Magick->new;
#$image1->Read("/home/web9/html/berichte/bilder/org/$Bildcode.jpg");
#$image1->Resize(width=>$w1, height=>$h1);
#$image1->Set(quality=>80);
#$image1->Write("/home/web9/html/berichte/bilder/b/$Bildcode.jpg");

open UPFILE, ">/home/web9/html/berichte/bilder/org/$Bildcode.jpg";
binmode $upload;
while (<$upload>){print UPFILE;} close UPFILE;

open UPFILE, ">/home/web9/html/berichte/bilder/org/$Bildcode.jpg";

open UPFILE, "<", "/home/web9/html/berichte/bilder/org/$Bildcode.jpg" or die $!;

$upload = $a->param("bild");

$upload = $a->upload("bild");