New

diff --git a/etc/mod_perl/MyApache2/CopyCookie.pm b/etc/mod_perl/MyApache2/CopyCookie.pm
new file mode 100644 (file)
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;
+