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:
9c089e5
)
Copy data
author
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 12:25:27 +0000
(14:25 +0200)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 26 Jun 2013 12:25:27 +0000
(14:25 +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
b0f669f
..
8961d74
100644
(file)
--- a/
etc/mod_perl/MyApache2/CopyCookie.pm
+++ b/
etc/mod_perl/MyApache2/CopyCookie.pm
@@
-6,6
+6,8
@@
use APR::Table ();
use Apache2::Const -compile => qw(OK);
+use constant BUFF_LEN => 1024;
+
sub handler {
my $f = shift;
warn "in MyApache2::CopyCookie (f=$f)";
@@
-16,6
+18,12
@@
sub handler {
$ho->set('X-Set-Cookie', $cookie);
my $extra = $ho->get('X-Set-Cookie');
warn "MyApache2::CopyCookie extra cookie='$extra'";
+
+ while ($f->read(my $buffer, BUFF_LEN)) {
+ $f->print($buffer);
+ }
+ warn "MyApache2::CopyCookie copied data";
+
return Apache2::Const::OK;
}