projects
/
mkws-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fc00a6d
)
Add debugging
author
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 11:40:54 +0000
(13:40 +0200)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 11:40:54 +0000
(13:40 +0200)
etc/mod_perl/MyApache2/CopyCookie.pm
patch
|
blob
|
history
diff --git
a/etc/mod_perl/MyApache2/CopyCookie.pm
b/etc/mod_perl/MyApache2/CopyCookie.pm
index
2cdf24f
..
71c2919
100644
(file)
--- a/
etc/mod_perl/MyApache2/CopyCookie.pm
+++ b/
etc/mod_perl/MyApache2/CopyCookie.pm
@@
-9,8
+9,12
@@
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);
+ my $ho = $f->r->headers_out;
+ my $cookie = $ho->get('Set-Cookie');
+ warn "MyApache2::CopyCookie headers_out='$ho', cookie='$cookie'";
+ $ho->set('X-Set-Cookie', $cookie);
+ my $extra = $ho->get('X-Set-Cookie');
+ warn "MyApache2::CopyCookie extra cookie='$extra'";
return Apache2::Const::OK;
}