Re: server port number in requests

[André Warnier <suppressed>]

André Warnier wrote:
> André Warnier wrote:
> > John ORourke wrote:
> > > Hi folks,
> > >
> > > I can't seem to find a way to retrieve the inbound port number during 
> > > requests.
> > >
> > > I have a server listening on multiple ports, and need to know which 
> > > one the request came in on.  Here's the setup:
> > >
> > > apache config:
> > >    Listen 127.0.0.1:81
> > >    Listen 127.0.0.1:82
> > >    NameVirtualHost *:*
> > >    <VirtualHost *:*>
> > >       ......
> > >    </VirtualHost>
> > I believe you could resolve this as follows (although it is really a 
> > "brute force" method) :
> > Instead of one <VirtualHost *:*>, you could define 2 sections, 
> > entirely copy of eachother except for :
> >
> > <VirtualHost *:81>
> >   PerlSetVar ConnType "HTTP"
> >   ....
> > </VirtualHost>
> >
> > <VirtualHost *:82>
> >   PerlSetVar ConnType "HTTPS"
> >   ....
> > </VirtualHost>
> >
> > and then in your script/handler get the ConnType config value to tell 
> > the difference.
>
> Addendum :
> Apart from he brute force method above, I believe there must be numerous 
> other ways to achieve best what you really need.
> For instance, I would have a look at the Apache SetEnvIf configuration 
> directive, which may be used to set an environment variable later 
> retrieved by your script/module.
> I would also imagine that a HTTPS request already includes some specific 
> HTTP headers which a HTTP request does not have, and you could test for 
> that (either in the script/module or with SetEnvIf).
> Which method really works best in your case, and which is the most 
> efficient, is left as an exercise to the reader.

Addendum # 2 :

Here is a more mod_perl-ish solution :

  use Apache2::RequestRec ();
  use Apache2::Connection ();
  use APR::SockAddr ();

sub handler {

my $r = shift;
my $c = $r->connection;
my $serverport = $c->local_addr->port;

# ...  and now you know

}

Refs :
http://perl.apache.org/docs/2.0/api/Apache2/RequestRec.html#C_connection_
http://perl.apache.org/docs/2.0/api/Apache2/Connection.html#C_local_addr_
http://perl.apache.org/docs/2.0/api/APR/SockAddr.html

Note : I am deriving this purely from the documentation, and haven't 
tried it myself yet.