#!/usr/bin/perl
#use strict;
#use warnings;
use CGI qw/:standard/;
my $zielVerzeichnis = '/home/web6/html/tratsch/bilder/org';
$CGI::POST_MAX=1024 * 100;
my ($bildcode) = time;
my ($filename) = param('uploaded_file') || "";
my ($filehandle) = CGI::upload('uploaded_file');

print header, start_html;
print ("Org. Filename: $filename<BR>\n");
print ("Merken Sie sich den Bildcode : <b>$bildcode</b><BR>\<HR>\n");

my $serverFile = $zielVerzeichnis . "/" .
(split(/[\\\/]/, param('uploaded_file')))[-1];


print ("Datei wird übertragen ...<BR>\n");
my $buffer;
open (FILE,">$serverFile") or die $!;
binmode $filehandle;
binmode(FILE); # Nur relevant fuer Windows-Rechner
while (my $bytesread=read($filehandle,$buffer,1024))
        {
        print FILE $buffer;
        }
close (FILE);

my $serverfile2 = $zielVerzeichnis . "/" . $bildcode . "_" . $filename;
rename ($serverFile, $serverfile2);
chmod (0777, "$serverfile2");
print ("Datei wurde erfolgreich übertragen ...<BR>\n");


my $w1=600; #b
my $w2=400; #m
my $w3=120; #s

use Image::Magick;
my $image = Image::Magick->new;

print ("Lese $serverfile2 <BR>");
(my $width, my $height, my $size, my $format) = $image->Ping("$serverfile2");

print ("Breite: $width<BR>\n");
print ("Höhe: $height<BR>\n");
print ("Größe: $size<BR>\n");
print ("Format: $format<BR>\n");

my $h1=int(($w1 / $width)* $height);
$image1 = Image::Magick->new;
$image1->Read("$serverfile2");
print ("Lese $serverfile2");
$image1->Resize(width=>$w1, height=>$h1);
$image1->Set(quality=>70);
$image1->Write("/home/web6/html/tratsch/bilder/org/zzz.jpg");

print end_html;