render_file

render_file.pl

$app->helper('render_file' => sub {
    my $c     = shift;
    my %args     = @_;
    my $filepath = $args{filepath};

    unless ( -f $filepath && -r $filepath ) {
	$c->app->log->error("Cannot read file [$filepath]. error [$!]");
	return;
    }

    my $filename = $args{filename} || fileparse($filepath);
    my $status   = $args{status}   || 200;

    my $headers = Mojo::Headers->new();
    $headers->add( 'Content-Type',        'application/x-download;name=' . $filename );
    $headers->add( 'Content-Disposition', 'attachment;filename=' . $filename );
    $c->res->content->headers($headers);

    # Stream content directly from file
    $c->res->content->asset( Mojo::Asset::File->new( path => $filepath ) );
    return $c->rendered($status);
} );