Re: Adding / Modifing Response Headers on mp2

[Nick Tonkin]

On Thu, 3 Apr 2003, Denis Banovic wrote:

> Hi!
>
> I'm trying to figure out, how to Add / Modify the HTTP Headers like
> Content Type, Cache aso...
>
> on mod_perl 1 I've used:
>
> $r->send_cgi_header($custom_headers);
>
> but this won't work mod_perl 2...
>
> I've searched in Apache::compat all I've found was the function header_out
> that internally calls $r->headers_out()...
>
> Can somebody please tell me how to set the right headers???

TFM is a little hard to find, but when you R http://xrl.us/fix you'll see that
all you need to do to call $r->send_cgi_header() is:

use Apache::Response();

The docs need work, but if you are porting your code from mp1 to mp2 you
really should spend some time reading _all_ the mp2 docs, don't you think?

Start at http://perl.apache.org/docs/2.0/devel/porting/porting.html and just
follow every link from there.

> here is the code from Apache::compat

Most of us already have that :)



- nick

-- 


Nick Tonkin   {|8^)>

Adding / Modifing Response Headers on mp2

[Denis Banovic]

Hi!

I'm trying to figure out, how to Add / Modify the HTTP Headers like
Content Type, Cache aso...

on mod_perl 1 I've used:
 
$r->send_cgi_header($custom_headers);

but this won't work mod_perl 2...

I've searched in Apache::compat all I've found was the function header_out
that internally calls $r->headers_out()... 

Can somebody please tell me how to set the right headers???

Thanks a lot!


here is the code from Apache::compat


sub table_get_set {
my($r, $table) = (shift, shift);
my($key, $value) = @_;

if (1 == @_) {
return wantarray() 
?   ($table->get($key))
: scalar($table->get($key));
}
elsif (2 == @_) {
if (defined $value) {
return wantarray() 
?($table->set($key, $value))
:  scalar($table->set($key, $value));
}
else {
return wantarray() 
?   ($table->unset($key))
: scalar($table->unset($key));
}
}
elsif (0 == @_) {
return $table;
}
else {
my $name = (caller(1))[3];
warn "Usage: \$r->$name([key [,val]])";
}
}

sub header_out {
my $r = shift;
return wantarray() 
?   ($r->table_get_set(scalar($r->headers_out), @_))
: scalar($r->table_get_set(scalar($r->headers_out), @_));
}