Fwd: All responses are 200 (server error)

Nico Coetzee <[email protected]> Tue, 28 Sep 2010 06:07:09 +0200
Newsgroups	gmane.comp.apache.mod-perl
Message-ID	<[email protected]>
Oops - seems I didn't include the group on my reply ....

FYI


Here is another test I did (simpler)

-------------------- Apache Config --------------------

PerlModule FNBC::test_statusline
PerlWarn On

<Location /test1>
   SetHandler perl-script
   PerlResponseHandler FNBC::test_statusline
</Location>

-------------------- test_statusline.pm --------------------

package FNBC::test_statusline;
use strict;
use warnings;
use Apache2::Access ();
use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use Apache2::Const -compile => qw( OK );

sub handler {
   my $r = shift;
   $r->status_line("499 We have been FooBared");
   $r->err_headers_out->add( 'X-Testing' => 'True' );
   $r->content_type( "text/html" );
   my $body = "<html><head><title>Testing</title></head><body><h3>It really
does work...</h3></body></html>";
   $r->set_content_length( length( $body ) );
   $r->print( $body );
   return Apache2::Const::OK;
}
1;

-------------------- Trace --------------------

GET /test1/sdjakgd HTTP/1.1
Host: webdavtest:81
User-Agent: Links (2.2; Linux 2.6.32-24-generic x86_64; 210x65)
Accept: */*
Accept-Encoding: gzip, deflate
Accept-Charset: us-ascii, ISO-8859-1, ISO-8859-2, ISO-8859-3, ISO-8859-4,
ISO-8859-5, ISO-8859-6, ISO-8859-7, ISO-8859-8, ISO-8859-9, ISO-8859-10,
ISO-8859-13, ISO-8859-14, ISO-8859-15, ISO-8859-16, windows-1250,
windows-1251, windows-1252, windows-1256, windows-1257, cp437, cp737, cp850,
cp852, cp866, x-cp866-u, x-mac, x-mac-ce, x-kam-cs, koi8-r, koi8-u, koi8-ru,
TCVN-5712, VISCII, utf-8
Accept-Language: en, *;q=0.1
Connection: Keep-Alive

HTTP/1.1 200 OK
Date: Tue, 28 Sep 2010 06:06:13 GMT
Server: Apache/2.2.3 (CentOS)
X-Testing: True
Content-Length: 92
Connection: close
Content-Type: text/html; charset=UTF-8

<html><head><title>Testing</title></head><body><h3>It really does
work...</h3></body></html>


I really would like to know why I can not set the status line.... I followed
the example from
http://perl.apache.org/docs/2.0/api/Apache2/RequestRec.html#C_status_line_

Thanks

Nico