------=_Part_7226_22489556.1198882435184
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Hi,

What is the correct way to send http status code of 206 from from Modperl
Registry script [In modperl2/apache2]? I searched the modperl site but did
not find any examples.

I looked at the following redirect example [by setting
$r->status(Apache2::Const::HTTP_PARTIAL_CONTENT) and returning
Apache2::Const::HTTP_PARTIAL_CONTENT.]
This gives a http status code of 200 and internal error message in the
server.

http://perl.apache.org/docs/2.0/user...erl__Registry_



OK, after a while, I also tried setting $r->statusline( ) and this seems to
work, but I am not sure if this the right way. I am pasting a sample code
that works correctly


Thanx,
HB.
----Sample code that works fine ----

use Apache2::Request;
use Apache2::RequestUtil;
use Data:umper;
use Apache2::Const -compile => qw(HTTP_PARTIAL_CONTENT OK HTTP_OK);
use APR::Table ();
use strict;
use constant MOD_PERL => $ENV{MOD_PERL};


my $r = shift;
$r->headers_out->set('Accept-Ranges'=> 'bytes');
$r->content_type('audio/mpeg');
$r->headers_out->set('Content-Length' => 2);
$r->headers_out->set('Content-Range' => 'bytes 0-1/40000');
$r->status_line(Apache2::Const::HTTP_PARTIAL_CONTENT. ' Partial
Content' );
$r->print('ZZ');
return Apache2::Const::OK;

------=_Part_7226_22489556.1198882435184
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

Hi,


What is the correct way to send http status code of 206 from from Modperl Registry script [In modperl2/apache2]? I searched the modperl site but did not find any examples.

I looked at the following redirect example [by setting $r->status(Apache2::Const::HTTP_PARTIAL_CONTENT) and returning Apache2::Const::HTTP_PARTIAL_CONTENT.]

This gives a http status code of 200 and internal error message in the server.


http://perl.apache.org/docs/2.0/user...erl__Registry_


OK, after a while, I also tried setting $r->statusline( ) and this seems to work, but I am not sure if this the right way. I am pasting a sample code that works correctly



Thanx,
HB.
----Sample code that works fine ----

use Apache2::Request;
use Apache2::RequestUtil;
use Data:umper;
use Apache2::Const -compile => qw(HTTP_PARTIAL_CONTENT OK HTTP_OK);

use APR::Table ();
use strict;
use constant MOD_PERL => $ENV{MOD_PERL};


        my $r = shift;
        $r->headers_out->set('Accept-Ranges'=> 'bytes');
        $r->content_type('audio/mpeg');

        $r->headers_out->set('Content-Length' => 2);
        $r->headers_out->set('Content-Range' => 'bytes 0-1/40000');
        $r->status_line(Apache2::Const::HTTP_PARTIAL_CONTEN T. ' Partial Content' );

        $r->print('ZZ');
        return Apache2::Const::OK;



 


------=_Part_7226_22489556.1198882435184--