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:
bad4149
)
Horrible horrible
author
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 11:44:19 +0000
(13:44 +0200)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 11:44:19 +0000
(13:44 +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
71c2919
..
f8ed2e7
100644
(file)
--- a/
etc/mod_perl/MyApache2/CopyCookie.pm
+++ b/
etc/mod_perl/MyApache2/CopyCookie.pm
@@
-11,10
+11,12
@@
sub handler {
my $ho = $f->r->headers_out;
my $cookie = $ho->get('Set-Cookie');
- warn "MyApache2::CopyCookie headers_out='$ho', cookie='$cookie'";
+ open F, ">/tmp/mike";
+ print F "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'";
+ print F "MyApache2::CopyCookie extra cookie='$extra'";
+ close F;
return Apache2::Const::OK;
}