#!/usr/bin/perl -w
use strict;
use Carp;


### extend @INC

use lib ( 
    './',
);
use CGI qw(:standard);


use Image::Resize;

for(1..10) {    
    my $image = Image::Resize->new(qq{in$_.jpg});
    
    my $gd = $image->resize(800, 800);
    
    open(FH, qq{>out$_.jpg});
    print FH $gd->jpeg();
    close(FH);
    
    
    my $gd = $image->resize(50, 40, 0);
    
    open(FH, qq{>thumb$_.jpg});
    print FH $gd->jpeg();
    close(FH);
}

print CGI::header();
print "resize: finish";

[Wed Nov 19 14:44:12 2008] [error] [client **********] gd-jpeg error: cannot allocate gdImage struct
[Wed Nov 19 14:44:12 2008] [error] [client **********] Died at module/CPAN/Image/Resize.pm line 25.

sub save {
    
    my ($self) = @_;
    
    ### get file
    my $file = $file_of{ident $self};
    
  
#####################################################
#   currently quit because of error:                #  
#       Undefined subroutine Fh::seek               #
#           at module/CPAN/File/MMagic.pm line 802  #
#####################################################     
    ### check if file is jpeg
#    require File::MMagic;
#    require FileHandle;
#    my $mm = new File::MMagic;
#    my $file_mimetype = $mm->checktype_filehandle($file);
#    
#        print CGI::header();
#        print qq{mimetype $file_mimetype};
#        exit;
    
    
    
    ### get file hash - method sha1
    require Digest::SHA1;
    my $sha1 = Digest::SHA1->new;
    $sha1->add($file);
    my $file_hash = $sha1->hexdigest;
    
    
    ### get gallery securestring    
    require Gallery::Gallery;
    my $gal_securestring = new Gallery::Gallery({
            'Gallery' => {
                parameters => $self->get_params(),
                session    => $self->get_session(),
                domain     => $self->get_domain(),
                         },
            'Gallery::Gallery' => {
                id         => $self->get_id(),
        },
    })->get_securestring($self->get_id());
    
    
    ### check if gid exists
    if($gal_securestring eq 'notfound') {
        print CGI::header();
        print qq{Cant save: gal_securestring for $self->get_id() not found};
        exit;
    }
    
    
    ### save orig picture
    open my $ORIG, qq{>./pictures/$gal_securestring/org-$file_hash.jpg}
        or carp qq{Cant save orig: $!};
    binmode $ORIG;
    binmode $file;
    my $data;
    while(read $file,$data,1024) {
        print $ORIG $data;
    }
    close $ORIG;
    
    
    ### resize picture   
    use Image::Resize;        
    my $image =
        Image::Resize->new(qq{./pictures/$gal_securestring/org-
        $file_hash.jpg});

    
    
    ### picture for default view
    my $gd = $image->resize(800, 800);
        
    open my $PIC, qq{>./pictures/$gal_securestring/$file_hash.jpg} 
        or carp qq{Cant save: $!};
    print $PIC $gd->jpeg();
    close $PIC;
    
    
    ### thumb
    $gd = $image->resize(50, 40, 0);
    
    open my $THUMB, qq{>./pictures/$gal_securestring/th-$file_hash.jpg}
        or carp qq{Cant save thumb: $!};
    print $THUMB $gd->jpeg();
    close $THUMB;
    
    
    ### get picture ratio
    require GD::Simple;
    $image    =
        GD::Simple-
        >newFromJpeg(qq{./pictures/$gal_securestring/$file_hash.jpg},1) 
            or print qq{Cant read image for ratio: $!};
    my $file_width  = $image->width();
    my $file_height = $image->height();
    my $file_ratio  = sprintf("%.2f", $file_width / $file_height);
    
    ### get exif data
    require Image::ExifTool;
    my $exif_tool   = new Image::ExifTool;
    my $exif_info   = 
        $exif_tool->ImageInfo(qq{./pictures/$gal_securestring/org-$file_hash.jpg})
            or print qq{Cant read exifdata: $!};    

    ### data saved in: $$info{'DateTimeOriginal'}
    
    
    ### clean name:
    use HTML::Entities;
    my $file_name = encode_entities($file);
    
    
    ### insert in mysql db
    require MySQL;
    new MySQL->insert({
        values  => {
            gid     => $self->get_id(),
            uid     => $self->get_session()->param('u_id'),
            name    => $file_name,
            hash    => $file_hash,
            ratio   => $file_ratio,
            exif    => $$exif_info{'DateTimeOriginal'},
            created => 'NOW()',
            clicks  => 0
        },
        table   => 'pictures'        
    });
    
    
    ### send success
    my $json_to_parse = {
        result  => 'success'
    };
    
    require JSON;
    my $output_as_json =
    new JSON->pretty->encode($json_to_parse);
    
    require Parser;
    new Parser({
        data        => $output_as_json,
        outputtype  => 'js',
    })->output();
                    
    
}

my $resize_sucess =system("./resize.cgi ss=$gal_securestring fh=$file_hash");

use CGI;

my $cgi = new CGI;

my $gal_securestring = $cgi->param('ss');
my $file_hash            = $cgi->param('fh');

my $magick = '/is/htdocs/*deine_kd_kennung*/lib/imagemagick/convert';
die "Imagemagick existiert nicht" unless(-e $magick );


#--------------------------------------------------------------------
sub resize # ( Bild, neues Bild, Ratio)
#--------------------------------------------------------------------
{
    my ($src_file,  $dst_file, $aspect) =@_;
    return "$src_file existiert nicht" unless -e $src_file;
    open F, ">$dst_file" or die "Kann Datei nicht erstellen $dst_file: $!";
    close F;
    $aspect = int($aspect * 100) . '%';

    my $system = sprintf " $magick -quality 50%% -geometry %s! \"%s\" \"%s\"",
                  $aspect, $src_file, $dst_file
    ;
    return system $system;
}