projects
/
mkws-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Copy data
[mkws-moved-to-github.git]
/
etc
/
mod_perl
/
MyApache2
/
CopyCookie.pm
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 Apache2::Const -compile => qw(OK);
+use constant BUFF_LEN => 1024;
+
sub handler {
my $f = shift;
warn "in MyApache2::CopyCookie (f=$f)";
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'";
$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;
}
return Apache2::Const::OK;
}