Changeset 3230
- Timestamp:
- Mar 29, 2009, 1:00:42 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm
r3194 r3230 28 28 use Digest::MD5::File qw/file_md5_hex md5_hex/; 29 29 use File::Slurp; 30 use Encode qw/encode decode /;30 use Encode qw/encode decode is_utf8/; 31 31 use POSIX qw(ceil floor); 32 32 use base qw/ … … 166 166 my ( $self ) = @_; 167 167 168 my $file_sum = file_md5_hex( 169 $self->site_resized_file 170 ); 168 my $file_sum; 169 170 eval { 171 $file_sum = file_md5_hex( 172 encode('iso-8859-1', $self->site_resized_file) 173 ); 174 }; 171 175 172 176 173 177 my $thumbnail_sum = file_md5_hex( 174 $self->site_thumb_file,178 encode('iso-8859-1', $self->site_thumb_file), 175 179 ); 176 180 177 181 my $original_sum = file_md5_hex( 178 $self->site_high_file182 encode('iso-8859-1', $self->site_high_file) 179 183 ); 180 184 … … 200 204 $self->send_chunks( 201 205 { 202 filepath => $self->site_resized_file,206 filepath => encode('iso-8859-1', $self->site_resized_file), 203 207 type => 'file', 204 208 original_sum => $original_sum, … … 208 212 $self->send_chunks( 209 213 { 210 filepath => $self->site_thumb_file,214 filepath => encode('iso-8859-1', $self->site_thumb_file), 211 215 type => 'thumb', 212 216 original_sum => $original_sum, … … 232 236 $self->send_chunks( 233 237 { 234 filepath => $self->site_high_file,238 filepath => encode('iso-8859-1', $self->site_high_file), 235 239 type => 'high', 236 240 original_sum => $original_sum,
Note: See TracChangeset
for help on using the changeset viewer.