diff options
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Photo.pm')
| -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 { |