From: Mike Taylor <mike@indexdata.com>
Date: Wed, 26 Jun 2013 11:38:33 +0000 (+0000)
Subject: New
X-Git-Tag: 0.9.1~505
X-Git-Url: http://jsfdemo.indexdata.com/?a=commitdiff_plain;ds=sidebyside;h=b12832795453354cbde4ce942bdec7e246eb90de;p=mkws-moved-to-github.git

New
---

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;
+