diff options
| author | Struan Donald <struan@exo.org.uk> | 2011-05-19 10:06:27 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2011-05-19 10:06:27 +0100 |
| commit | 05d0484425f0e69f762fcce8ed10df12ea515e8e (patch) | |
| tree | a245ab8af1757bc1c6abd53e045770e8c3a5338d /perllib/FixMyStreet | |
| parent | 127f8a032fb138bb99a0ffd2ea0015b1a2dc14c1 (diff) | |
send out photo with correct headers
Diffstat (limited to 'perllib/FixMyStreet')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Photo.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Photo.pm b/perllib/FixMyStreet/App/Controller/Photo.pm index 64a4aef93..3dc1275f0 100644 --- a/perllib/FixMyStreet/App/Controller/Photo.pm +++ b/perllib/FixMyStreet/App/Controller/Photo.pm @@ -4,6 +4,8 @@ use namespace::autoclean; BEGIN {extends 'Catalyst::Controller'; } +use DateTime::Format::HTTP; + =head1 NAME FixMyStreet::App::Controller::Photo - Catalyst Controller @@ -48,7 +50,12 @@ sub index :Path :Args(0) { $photo = _resize( $photo, '195x' ); } - print $photo; + my $dt = DateTime->now(); + $dt->set_year( $dt->year + 1 ); + + $c->res->content_type( 'image/jpeg' ); + $c->res->header( 'expires', DateTime::Format::HTTP->format_datetime( $dt ) ); + $c->res->body( $photo ); } sub _resize { |