diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2012-05-02 11:45:19 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2012-05-02 11:45:19 +0100 |
| commit | 3f5c3e5ae8085ccadbc84cc6899d01a99f3e8035 (patch) | |
| tree | aa963cc0ea65ca5b9ec31ae621b099e1fd9dccce /perllib/FixMyStreet/App/Controller/Photo.pm | |
| parent | 12e3f1a37bc13d4f9a85e5a0eea9cb79e5b1ac9c (diff) | |
Strip images before display (can shrink thumbnail from 60K to 4K).
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Photo.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Photo.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Photo.pm b/perllib/FixMyStreet/App/Controller/Photo.pm index c54bad238..5d5832b08 100644 --- a/perllib/FixMyStreet/App/Controller/Photo.pm +++ b/perllib/FixMyStreet/App/Controller/Photo.pm @@ -114,6 +114,7 @@ sub _shrink { $image->BlobToImage($photo); my $err = $image->Scale(geometry => "$size>"); throw Error::Simple("resize failed: $err") if "$err"; + $image->Strip(); my @blobs = $image->ImageToBlob(); undef $image; return $blobs[0]; @@ -129,6 +130,7 @@ sub _crop { throw Error::Simple("resize failed: $err") if "$err"; $err = $image->Extent( geometry => '90x60', gravity => 'Center' ); throw Error::Simple("resize failed: $err") if "$err"; + $image->Strip(); my @blobs = $image->ImageToBlob(); undef $image; return $blobs[0]; |