Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (athena.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>
 <082a01ce45ce$a8bbc2e0$fa3348a0$@com>
 <alpine.LRH.2.00.1304301419180.26418@server.tqis.com>
In-Reply-To: <alpine.LRH.2.00.1304301419180.26418@server.tqis.com>
Subject: RE: Download then display page
Date: Tue, 30 Apr 2013 14:56:42 -0400
Message-ID: <084901ce45d4$748b90d0$5da2b270$@com>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Thread-Index: Ac5F0GWTU0qbcEYMSAGu3MsXZ9m08QAA//OQ
Content-Language: en-us

Thanks Jim, I'm going to give that a try and see if I can get it to =
work.

-Chris

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

Yes, that's what I have in mind.  I only occassionally write headers.=20
But I envision something similar to what you've got below:

   $redirect =3D ... ;	## URL to the spreadsheet

   $r->content_type('text/html') ;
   $r->headers_out->set( Location =3D> $redirect ) ;
   $r->send_http_header ;

   $r->print( $content->output ) ;
   return Apache2::Const::REDIRECT ;

Originally, I wondered about using a "multipart/mixed" response type.=20
I've never heard that any browser supports such a thing.  Although that
seems like a more elegant solution.

  -Jim

On Tue, 30 Apr 2013, Chris Faust wrote:

>>> 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=20
> 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=20
> Apache2::Const::REDIRECT;
>
> And the $redirect URL would then do the sending of the file itself?
>
> Thanks!
>
>
> -----Original Message-----
> From: Jim Schueler [mailto:jschueler@eloquency.com]
> 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=20
> 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=20
> 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=20
> years, I've relied on javascript.  But there may be reasons for not=20
> wanting a different type solution.
>
>  -Jim
>
>
>
>
> On Tue, 30 Apr 2013, Chris Faust wrote:
>
>>
>> Hi,
>>
>> =A0
>>
>> 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 =

>> automatically started.
>>
>> =A0
>>
>> I can do each separately but not both together, I have something like
> this:
>>
>> =A0
>>
>> ... Make up our xls file download and put it in $output
>>
>> =A0
>>
>> $r->content_type('application/xls');
>>
>> $r->err_headers_out->add('Content-Disposition' =3D> 'attachment;
filename=3D"'
> .
>> $download_name . '"');
>>
>> $r->print($output);
>>
>> $content->param('set some html template vars....');
>>
>> $r->content_type('text/html');
>>
>> print $content->output;
>>
>> =A0
>>
>> When I due the above, then I get prompted for the download but that=20
>> is it, I never get the page. Even if I reverse the order and try to=20
>> do the page
>> first:
>>
>> =A0
>>
>> $r->content_type('text/html');
>>
>> print $content->output;
>>
>> $r->content_type('application/xls');
>>
>> $r->err_headers_out->add('Content-Disposition' =3D> 'attachment;
filename=3D"'
> .
>> $download_name . '"');
>>
>> $r->print($output);
>>
>> $content->param('set some html template vars....');
>>
>> =A0
>>
>> That still doesn't work. Probably not a mod_perl specific question=20
>> but I'm hoping someone can shed some light
>>
>> =A0
>>
>> TIA!
>>
>> -Chris
>>
>> =A0
>>
>> =A0
>>
>>
>>
>
>
>