--0015174c37fe54946a048f2fdecd
Content-Type: text/plain; charset=ISO-8859-1

Hello,

When a request is handled by mod_perl, I'd like to know what port was used
to request the server. But $r->server->port always returns 0. I have tested
$r->main and $r->prev, but the problem doesn't come from here. And I didn't
find any other way to get the port. Even $r->uri and such don't return the
port, even though $r->hostname returns the server hostname. Where is my
mistake?

Thanks for your time.

--0015174c37fe54946a048f2fdecd
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

<font color=3D"#663300"><font face=3D"georgia,serif">Hello,<br><br>When a r=
equest is handled by mod_perl, I'd like to know what port was used to r=
equest the server. But $r->server->port always returns 0. I have test=
ed $r->main and $r->prev, but the problem doesn't come from here.=
And I didn't find any other way to get the port. Even $r->uri and s=
uch don't return the port, even though $r->hostname returns the serv=
er hostname. Where is my mistake?<br>
<br>Thanks for your time.<br><br></font></font>

--0015174c37fe54946a048f2fdecd--

On Wednesday, September 01, 2010 12:07:43 C=E9dric Bertolini wrote:
> When a request is handled by mod_perl, I'd like to know what port was used
> to request the server. But $r->server->port always returns 0. I have test=
ed
> $r->main and $r->prev, but the problem doesn't come from here. And I didn=
't
> find any other way to get the port. Even $r->uri and such don't return the
> port, even though $r->hostname returns the server hostname. Where is my
> mistake?

$r->connection->local_addr->port;
$r->connection->remote_addr->port;

Torsten Förtsch

=2D-
Need professional modperl support? Hire me! (http://foertsch.name)

Like fantasy? http://kabatinte.net