From b12832795453354cbde4ce942bdec7e246eb90de Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 26 Jun 2013 11:38:33 +0000 Subject: [PATCH] New --- etc/mod_perl/MyApache2/CopyCookie.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 etc/mod_perl/MyApache2/CopyCookie.pm diff --git a/etc/mod_perl/MyApache2/CopyCookie.pm b/etc/mod_perl/MyApache2/CopyCookie.pm new file mode 100644 index 0000000..730abc3 --- /dev/null +++ b/etc/mod_perl/MyApache2/CopyCookie.pm @@ -0,0 +1,16 @@ + package MyApache2::CopyCookie; + use Apache2::Filter (); + use Apache2::RequestRec (); + use APR::Table (); + + use Apache2::Const -compile => qw(OK); + + sub handler { + my $f = shift; + + my $cookie = $f->r->headers_out->get('Set-Cookie'); + $f->r->headers_out->set('X-Set-Cookie', $cookie); + return Apache2::Const::OK; + } + 1; + -- 1.7.10.4