Revision 52

Date:
2010/08/25 13:06:42
Author:
ahitrov@rambler.ru
Revision Log:
Правильное удаление промежуточных файлов
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/contenido/components/set_image.msn

     
    100 100 my $result = `$c_line`;
    101 101 if (length $result > 0) {
    102 102 print "Contenido Error: При вызове '$c_line' произошла ошибка '$result' ($@)\n";
    103 } else {
    104 unlink $filename_tmp.".".$suffix;
    105 $filename_tmp .= ".shaved";
    106 103 }
    107 104 }
    108 105
    109 my $c_line = $state->{'convert_binary'}.' -geometry \''.$suffix.'!\' -quality 80 '.$filename_tmp.'.'.$extension.' '.$filename_tmp.'.'.$suffix.'.'.$extension;
    106 my $c_line = $state->{'convert_binary'}.' -geometry \''.$suffix.'!\' -quality 80 '.$filename_tmp.'.shaved.'.$extension.' '.$filename_tmp.'.'.$suffix.'.'.$extension;
    110 107 my $result = `$c_line`;
    111 108
    112 109 if (length $result > 0) {
    … …  
    119 116 );
    120 117 %{$IMAGE->{'crop'}{$suffix}} = %{$IMAGE->{'mini'}{$suffix}};
    121 118 Contenido::File::store($filename.'.'.$suffix.'.'.$extension, $filename_tmp.'.'.$suffix.'.'.$extension);
    122 unlink $filename_tmp.'.'.$suffix.'.'.$extension if -e $filename_tmp.'.'.$suffix.'.'.$extension;
    119 unlink $filename_tmp.'.shaved.'.$extension if -e $filename_tmp.'.shaved.'.$extension;
    120 unlink $filename_tmp.'.'.$suffix.'.'.$extension if -e $filename_tmp.'.'.$suffix.'.'.$extension;
    123 121 }
    124 122 if ( @crops ) {
    125 123 if ( !exists $IMAGE->{'mini'}{'filename'} ) {