Repository List / Contenido / utf8 / samples / promosuite / comps / subs / set_image.msn @ HEAD

<%args>

$SETS => undef
$field => undef
$default => undef
$object => undef
$prop => undef

</%args>

<%init>
use IO::File;
use Data::Dumper;

return undef unless defined $SETS and defined $field;

# --------------------------------------------------------------------------------------
# Добавление одной картинки

my $IMAGE = $default;

if ($SETS->{$field}) {

    my $preview = $prop->{'preview'} || $keeper->{'preview'};
    my @preview = ref $preview && ref $preview eq 'ARRAY' ? @{$preview} : ref $preview ? ($keeper->{'preview'}) : ($preview);

    if (ref $IMAGE eq 'HASH') {
        foreach my $suffix (@preview) {
            Contenido::File::remove(${$IMAGE->{mini}}{$suffix}->{'filename'}) if ${$IMAGE->{mini}}{$suffix} and ${$IMAGE->{mini}}{$suffix}->{'filename'};
        }
    }

    my $filename = '/images/'.$object->get_file_name() || return;
    my $filename_tmp = $state->{'tmp_dir'}.'/'.join('_', split('/', $filename));

    my $upload = $r->upload($field);
    if ($upload) {
	my $extension = $upload->filename() =~ /(jpe?g|gif|png)$/i ? lc $1 : 'bin';
	return undef		if $extension eq 'bin';
	my $fh = $upload->fh();
	my $size = (stat $fh)[7];
    
	my $fh_tmp = IO::File->new('>'.$filename_tmp.'.'.$extension) || die 'Can\'t open temporary file';
    
	my $buffer;
    
	sysread $fh, $buffer, $size;
	syswrite $fh_tmp, $buffer, $size;
    
	undef $fh_tmp;
	my ($w, $h) = Image::Size::imgsize($filename_tmp.'.'.$extension);
	return undef		unless $w && $h;
    
	if (Contenido::File::store($filename.'.'.$extension, $filename_tmp.'.'.$extension)) {
	    if (ref $IMAGE eq 'HASH' and $IMAGE->{'filename'}) {
		Contenido::File::remove($IMAGE->{'filename'});
	    }
    
            # hashref slice assigning - жжесть
            @{%$IMAGE}{'filename', 'width', 'height'} = (
                $filename.'.'.$extension,
                Image::Size::imgsize($filename_tmp.'.'.$extension),
            );
            foreach my $suffix (@preview) {
                
                my $c_line = $state->{'convert_binary'}.' -geometry \''.$suffix.'\' -quality 80 '.$filename_tmp.'.'.$extension.' '.$filename_tmp.'.'.$suffix.'.'.$extension;
                my $result = `$c_line`;
        
                if (length $result > 0) {
                    warn 'Contenido Error: При вызове "'.$c_line.'" произошла ошибка "'.$result.'" ('.$@.")\n";
                    return undef;
                }
                @{%{$IMAGE->{'mini'}{$suffix}}}{'filename', 'width', 'height'} = (
                    $filename.'.'.$suffix.'.'.$extension,
                    Image::Size::imgsize($filename_tmp.'.'.$suffix.'.'.$extension),
                );
                Contenido::File::store($filename.'.'.$suffix.'.'.$extension, $filename_tmp.'.'.$suffix.'.'.$extension);
            }
            @{%{$IMAGE->{'mini'}}}{'filename', 'width', 'height'} = @{%{$IMAGE->{'mini'}{$preview[0]}}}{'filename', 'width', 'height'};
	}
    
	unlink $filename_tmp.'.'.$extension if -e $filename_tmp.'.'.$extension;
	foreach my $suffix (@preview) {    
		unlink $filename_tmp.'.'.$suffix.'.'.$extension if -e $filename_tmp.'.'.$suffix.'.'.$extension;
	}
    } else {
	warn 'ERROR in incoming POST form: "'.$field.' is not file upload (value: "'.$SETS->{$field}.'")';
    }
}

# Дополнительные поля - берем все, что найдем...

my $pattern = "^".$field.q|\.(.*)$|;

foreach my $localfield (keys(%{ $SETS })) {
    if ($localfield =~ /$pattern/) {
        my $imagefield = $1;
        $IMAGE->{$imagefield} = $m->comp("/contenido/components/filter.msn", str => $SETS->{$localfield});
    }
}

return $IMAGE;
</%init>