Revision 51

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

Legend:

 
Added
 
Removed
 
Modified

  • koi8/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);
    119 unlink $filename_tmp.'.shaved.'.$extension if -e $filename_tmp.'.shaved.'.$extension;
    122 120 unlink $filename_tmp.'.'.$suffix.'.'.$extension if -e $filename_tmp.'.'.$suffix.'.'.$extension;
    123 121 }
    124 122 if ( @crops ) {