Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (nike.apache.org: domain of cfaust@doyougot.com designates
 208.79.232.125 as permitted sender)
From: "Chris Faust" <cfaust@doyougot.com>
To: "'Jim Schueler'" <jschueler@eloquency.com>
Cc: <modperl@perl.apache.org>
References: <07ed01ce45c0$55d1e720$0175b560$@com>
 <alpine.LRH.2.00.1304301338240.26418@server.tqis.com>
In-Reply-To: <alpine.LRH.2.00.1304301338240.26418@server.tqis.com>
Subject: RE: Download then display page
Date: Tue, 30 Apr 2013 14:15:12 -0400
Message-ID: <082a01ce45ce$a8bbc2e0$fa3348a0$@com>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Thread-Index: Ac5Fy6BGUwBixsiXRG+m6cboMO9X4gAAmc7w
Content-Language: en-us

>>But the response should be a redirect to a URL that returns the
spreadsheet instead of a 200 OK.  I believe that the body of the =
original
response will be displayed until the redirect succeeds.

I'm not sure what I follow you, something like this?

$r->content_type('text/html');
print $content->output;
$r->headers_out->set(Location =3D> $redirect);
return Apache2::Const::REDIRECT;

And the $redirect URL would then do the sending of the file itself?

Thanks!

=20
-----Original Message-----
From: Jim Schueler [mailto:jschueler@eloquency.com]=20
Sent: Tuesday, April 30, 2013 1:53 PM
To: Chris Faust
Cc: modperl@perl.apache.org
Subject: Re: Download then display page

I believe the following will work  (never tried it though):

The request should return a 'text/html' type document that displays the
instructions.  But the response should be a redirect to a URL that =
returns
the spreadsheet instead of a 200 OK.  I believe that the body of the
original response will be displayed until the redirect succeeds.

In the old days, we performed this trick by using meta tag equivalents =
of
the response headers.  And I expect browsers will respond to actual HTTP
headers the same way.  I say "the old days" because for last 18 years, =
I've
relied on javascript.  But there may be reasons for not wanting a =
different
type solution.

  -Jim


On Tue, 30 Apr 2013, Chris Faust wrote:

>=20
> Hi,
>=20
> =A0
>=20
> I'm trying to have a form submission package up the results in a xls=20
> file and then start the download for the user as well as present a=20
> page where they can click on the file if the download has not already=20
> automatically started.
>=20
> =A0
>=20
> I can do each separately but not both together, I have something like
this:
>=20
> =A0
>=20
> ... Make up our xls file download and put it in $output
>=20
> =A0
>=20
> $r->content_type('application/xls');
>=20
> $r->err_headers_out->add('Content-Disposition' =3D> 'attachment; =
filename=3D"'
.
> $download_name . '"');
>=20
> $r->print($output);
>=20
> $content->param('set some html template vars....');
>=20
> $r->content_type('text/html');
>=20
> print $content->output;
>=20
> =A0
>=20
> When I due the above, then I get prompted for the download but that is =

> it, I never get the page. Even if I reverse the order and try to do=20
> the page
> first:
>=20
> =A0
>=20
> $r->content_type('text/html');
>=20
> print $content->output;
>=20
> $r->content_type('application/xls');
>=20
> $r->err_headers_out->add('Content-Disposition' =3D> 'attachment; =
filename=3D"'
.
> $download_name . '"');
>=20
> $r->print($output);
>=20
> $content->param('set some html template vars....');
>=20
> =A0
>=20
> That still doesn't work. Probably not a mod_perl specific question but =

> I'm hoping someone can shed some light
>=20
> =A0
>=20
> TIA!
>=20
> -Chris
>=20
> =A0
>=20
> =A0
>=20
>=20
>