Listen port var?

[Peter Eisch]

Is there a "universal" environment var or some other way to tell what port
is being used to handle a particular session?  I'm using this qpsmtpd.conf
under Apache::Qpsmtpd and I had to patch the check_earlytalker to
accommodate the SSL port.  Has anyone done this differently or better?

<excerpt>
<VirtualHost _default_:465>
  PerlSetEnv ListenPort 465
  PerlSetVar QpsmtpdDir /home/smtpd/qpsmtpd
  PerlModule Apache::Qpsmtpd
</excerpt>

I'm setting a $ENV{ListenPort} in the conf and in check_earlytalker I pop
out of apr_connect_handler with:

  return DECLINED
        if (defined $ENV{ListenPort} && $ENV{ListenPort} == 465);

Maybe there's a way to query apache for what the local port is?  (/me not
much of a mod_perl hacker).

peter