Thank you Anonymous Monk! I did need to change it a bit to make it work as I was having issues getting the headers information and things appear to working rather nicely now.
For future reference, and in case others find it useful, the modified send_file is:
return send_file(
\'fake contents to be replaced in override',
streaming => 1,
callbacks => {
override => sub {
eval {
my ( $respond, $response ) = @_;
require LWP;
my $ua = LWP::UserAgent->new;
my $writer ;
$ua->get(
$new_route,
':content_cb' => sub {
my ( $data, $response, $protocol ) = @_;
if(not $writer ){
my $h = $response->headers ;
my %m = map {$_ => $h->header($_)}
('Content-Length', 'Content-Type', 'Last-Modified'
+);
$writer = $respond->( [ $response->code, [ %m ] ] );
}
$writer->write( $data );
}, ## end of :content_cb
); ## end of $ua->get
} or Dancer::Logger::error("stream-file: bad eval $@");
return;
}, ## end of override
},
); ## end of send_file
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|