use Apache2::Const -compile => qw(OK);
-sub copy_cookie {
+use constant BUFF_LEN => 1024;
+
+sub handler {
my $f = shift;
+ warn "in MyApache2::CopyCookie (f=$f)";
my $ho = $f->r->headers_out;
my $cookie = $ho->get('Set-Cookie');
- open F, ">/tmp/mike";
- print F "MyApache2::CopyCookie headers_out='$ho', cookie='$cookie'";
+ warn "MyApache2::CopyCookie headers_out='$ho', cookie='$cookie'";
$ho->set('X-Set-Cookie', $cookie);
my $extra = $ho->get('X-Set-Cookie');
- print F "MyApache2::CopyCookie extra cookie='$extra'";
- close F;
+ 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;
}