Store compiled photos on file system.

1 files changed, 6 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Photo.pm b/perllib/FixMyStreet/App/Controller/Photo.pm
index a6717fc33..fc4c3fde7 100644
--- a/perllib/FixMyStreet/App/Controller/Photo.pm
+++ b/perllib/FixMyStreet/App/Controller/Photo.pm
@@ -6,6 +6,8 @@ BEGIN {extends 'Catalyst::Controller'; }
 
 use DateTime::Format::HTTP;
 use Digest::SHA1 qw(sha1_hex);
+use File::Path;
+use File::Slurp;
 use Path::Class;
 
 =head1 NAME
@@ -95,6 +97,10 @@ sub index :LocalRegex('^(c/)?(\d+)(?:\.(full|tn|fp))?\.jpeg$') {
 sub output : Private {
     my ( $self, $c, $photo ) = @_;
 
+    # Save to file
+    File::Path::make_path( FixMyStreet->path_to( 'web', 'photo', 'c' )->stringify );
+    File::Slurp::write_file( FixMyStreet->path_to( 'web', $c->req->path )->stringify, \$photo );
+
     my $dt = DateTime->now()->add( years => 1 );
 
     $c->res->content_type( 'image/jpeg' );