From 75e726119fff8edc610bb71591757b4175bdebe7 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 26 Jun 2013 14:57:37 +0200 Subject: [PATCH] X-Set-Cake instead of cookie. Jakub thinks this is a good idea. --- etc/mod_perl/MyApache2/CopyCookie.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/etc/mod_perl/MyApache2/CopyCookie.pm b/etc/mod_perl/MyApache2/CopyCookie.pm index 64089a2..86e9b69 100644 --- a/etc/mod_perl/MyApache2/CopyCookie.pm +++ b/etc/mod_perl/MyApache2/CopyCookie.pm @@ -17,16 +17,16 @@ sub handler { my $ho = $f->r->headers_out; my $cookie = $ho->get('Set-Cookie'); if (defined $cookie && $cookie ne "") { - $ho->set('X-Set-Cookie', $cookie); + $ho->set('X-Set-Cake', $cookie); } - # If the client sent an existing cookie as X-Cookie, but didn't + # If the client sent an existing cookie as X-Cake, but didn't # set Cookie, copy the former to the latter. my $hi = $f->r->headers_in; $cookie = $hi->get('Cookie'); if (!defined $cookie || $cookie eq "") { - $cookie = $hi->get('X-Cookie'); - warn "copying X-Cookie '$cookie' to Cookie"; + $cookie = $hi->get('X-Cake'); + warn "copying X-Cake '$cookie' to Cookie"; $hi->set('Cookie', $cookie); } -- 1.7.10.4