Re: Alias and PerlOutputFilterHandler in virtual host configuration

[Roger Munk]

On Sun, Feb 15, 2009 at 5:12 PM, André Warnier <a...@ice-sa.com> wrote:
> see http://perl.apache.org/docs/2.0/api/APR/Table.html#C_get_
> (you only get the first one this way)
> my @cookies = $f->r->headers_out->get("Set-Cookie");
> would get you an array with both.

Thanks, when I tried receiving the cookies in an array, using the code
below, I only see the second cookie now in the output. Since both
cookies are set with seperate "Set-Cookie" headers are they getting
overwritten at some point, or is there a problem with my code?

    unless ($f->ctx)
    {
        my @Cookies = $f->r->headers_out->get("Set-Cookie");

        foreach my $Cookie (@Cookies)
        {
            $Cookie =~ s/expires.*GMT\;//g;
            $f->r->headers_out->set("Set-Cookie" => "$Cookie");
        }
        $f->ctx(1);
    }

- Roger