Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
MIME-Version: 1.0
Date: Tue, 6 Oct 2015 14:36:32 +0530
Message-ID: 
 <CACgMzfwHc1J2JeSDdbZPTSjVW9_dKWO+fnj_goL4op5COEQh6g@mail.gmail.com>
Subject: Unable to set custom header
From: Ashish Mukherjee <ashish.mukherjee@gmail.com>
To: modperl@perl.apache.org
Cc: sourabh.d.v@smartinsight.jp
Content-Type: multipart/alternative; boundary=001a1139b5063b671005216bf2e1

--001a1139b5063b671005216bf2e1
Content-Type: text/plain; charset=UTF-8

Hello,

I am trying to set a custom header through a mod_perl handler.

My perl handler code is:

sub handler {
    my $r = shift;

    $r->headers_out->add("foo" => "bar");
    $r->log->error($r->connection->remote_ip()." is client IP");

    return Apache2::Const::OK;
}

The handler gets called as I am able to see the log message, but the header
is not emitted.

My Apache configuration is -

  ProxyRequests On
  ProxyVia On
  ProxyRemote * http://localhost:3128

  SetHandler modperl
  PerlPostReadRequestHandler +Foo::Proxy

  <Location />
            ProxyPass http://www.something.com/
            ProxyPassReverse http://www.something.com/
   </Location>

When I do the same through mod_header like this it works -

RequestHeader set foo bar

I want foo: bar to go as a header in the HTTP request to my proxy on port
3128.

Can anyone advise why my perl handler doesn't work when it should be doing
the same thing as mod_headers?

Regards,
Ashish

--001a1139b5063b671005216bf2e1
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr">Hello,<div><br></div><div>I am trying to set a custom head=
er through a mod_perl handler.=C2=A0</div><div><br></div><div>My perl handl=
er code is:<br></div><div><br></div><div><div>sub handler {</div><div>=C2=
=A0 =C2=A0 my $r =3D shift;</div><div><br></div><div>=C2=A0 =C2=A0 $r-&gt;h=
eaders_out-&gt;add(&quot;foo&quot; =3D&gt; &quot;bar&quot;);</div><div>=C2=
=A0 =C2=A0 $r-&gt;log-&gt;error($r-&gt;connection-&gt;remote_ip().&quot; is=
 client IP&quot;);</div></div><div><div><br></div><div>=C2=A0 =C2=A0 return=
 Apache2::Const::OK;</div></div><div>}</div><div><br></div><div>The handler=
 gets called as I am able to see the log message, but the header is not emi=
tted.</div><div><br></div><div>My Apache configuration is -</div><div><br><=
/div><div><div>=C2=A0 ProxyRequests On</div><div>=C2=A0 ProxyVia On</div><d=
iv>=C2=A0 ProxyRemote * <a href=3D"http://localhost:3128">http://localhost:=
3128</a></div><div><br></div></div><div><div>=C2=A0 SetHandler modperl</div=
><div>=C2=A0 PerlPostReadRequestHandler +Foo::Proxy<br></div><div>=C2=A0 =
=C2=A0 =C2=A0 =C2=A0</div><div>=C2=A0 &lt;Location /&gt;</div><div>=C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ProxyPass <a href=3D"http://www.somethin=
g.com/">http://www.something.com/</a></div><div>=C2=A0 =C2=A0 =C2=A0 =C2=A0=
 =C2=A0 =C2=A0 ProxyPassReverse <a href=3D"http://www.something.com/">http:=
//www.something.com/</a></div><div>=C2=A0 =C2=A0&lt;/Location&gt;<br></div>=
</div><div><br></div><div>When I do the same through mod_header like this i=
t works -</div><div><br></div><div><div>RequestHeader set foo bar</div></di=
v><div><br></div><div>I want foo: bar to go as a header in the HTTP request=
 to my proxy on port 3128.=C2=A0</div><div><br></div><div>Can anyone advise=
 why my perl handler doesn&#39;t work when it should be doing the same thin=
g as mod_headers?</div><div><br></div><div>Regards,</div><div>Ashish</div><=
/div>

--001a1139b5063b671005216bf2e1--