passing HTTP status code

cutlass2006 has asked for the wisdom of the Perl Monks concerning the following question:

dear monksters,

consider the following modperl handler code snippet, where I explicitly return a HTTP status code of 200.

sub return_test {
   return Apache2::Const::OK;
}

Is there an elegant way to return the original http status code as a return value ? For example, if this handler was called due to a HTTP Status code of 500 is there any cute way to forward ?

update thx, serious brain cramp ....

Comment on passing HTTP status code

Replies are listed 'Best First'.
Re: passing HTTP status code by spq (Friar) on Oct 12, 2008 at 11:54 UTC
I believe what you are looking for is described at http://perl.apache.org/docs/2.0/api/Apache2/RequestRec.html#C_status_. Which explains: `$status = $r->status();` Or, to modify your example: `sub return_test { my $r = shift; return $r->status(); }` [download]	[reply] [d/l] [select]

Back to Seekers of Perl Wisdom