X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=etc%2Fmod_perl%2FMyApache2%2FCopyCookie.pm;fp=etc%2Fmod_perl%2FMyApache2%2FCopyCookie.pm;h=2cdf24fc72cb19af1cded8c3db58d1ffafa7d8b8;hb=fc00a6d4a68ad0ba64696037992b19b453316583;hp=730abc3991daf5982a7a5336c5be3831e6e93fec;hpb=b12832795453354cbde4ce942bdec7e246eb90de;p=mkws-moved-to-github.git diff --git a/etc/mod_perl/MyApache2/CopyCookie.pm b/etc/mod_perl/MyApache2/CopyCookie.pm index 730abc3..2cdf24f 100644 --- a/etc/mod_perl/MyApache2/CopyCookie.pm +++ b/etc/mod_perl/MyApache2/CopyCookie.pm @@ -1,16 +1,17 @@ - package MyApache2::CopyCookie; - use Apache2::Filter (); - use Apache2::RequestRec (); - use APR::Table (); +package MyApache2::CopyCookie; - use Apache2::Const -compile => qw(OK); +use Apache2::Filter (); +use Apache2::RequestRec (); +use APR::Table (); - sub handler { - my $f = shift; +use Apache2::Const -compile => qw(OK); - my $cookie = $f->r->headers_out->get('Set-Cookie'); - $f->r->headers_out->set('X-Set-Cookie', $cookie); - return Apache2::Const::OK; - } - 1; +sub handler { + my $f = shift; + my $cookie = $f->r->headers_out->get('Set-Cookie'); + $f->r->headers_out->set('X-Set-Cookie', $cookie); + return Apache2::Const::OK; +} + +1;