blob: 64a4aef93963c0d322754b740c84b6cebbdf1560 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
package FixMyStreet::App::Controller::Photo;
use Moose;
use namespace::autoclean;
BEGIN {extends 'Catalyst::Controller'; }
=head1 NAME
FixMyStreet::App::Controller::Photo - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
=head2 index
Display a photo
=cut
sub index :Path :Args(0) {
my ( $self, $c ) = @_;
my $id = $c->req->param('id');
my $comment = $c->req->param('c');
return unless ( $id || $comment );
my $photo;
if ( $comment ) {
# FIXME implement comment photos
return;
} else {
$photo = $c->model('DB::Problem')->find( {id => $id, state => 'confirmed' } );
}
return unless $photo;
$photo = $photo->photo;
if ( $c->req->param('tn' ) ) {
$photo = _resize( $photo, 'x100' );
} elsif ( 0 ) { # emptyhomes
$photo = _resize( $photo, '195x' );
}
print $photo;
}
sub _resize {
my ($photo, $size) = @_;
use Image::Magick;
my $image = Image::Magick->new;
$image->BlobToImage($photo);
my $err = $image->Scale(geometry => "$size>");
throw Error::Simple("resize failed: $err") if "$err";
my @blobs = $image->ImageToBlob();
undef $image;
return $blobs[0];
}
=head1 AUTHOR
Struan Donald
=head1 LICENSE
This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
__PACKAGE__->meta->make_immutable;
1;
|
