On 7/30/07 5:11 PM, "Peter J. Holzer" <[EMAIL PROTECTED]> wrote:
> Have a look at > http://svn.perl.org/viewcvs/qpsmtpd/contrib/hjp/config_me_localaddr/config_me_ > localaddr?view=markup&rev=716 > > Does this do what you want? > It does. I have to patch lib/Apache/Qpsmtpd.pm with: --- qpsmtpd.orig/lib/Apache/Qpsmtpd.pm 2006-02-26 06:22:16.000000000 -0600 +++ qpsmtpd/lib/Apache/Qpsmtpd.pm 2007-07-30 18:00:17.000000000 -0500 @@ -62,6 +62,7 @@ sub start_connection { remote_info => $remote_info, remote_ip => $remote_ip, remote_host => $remote_host, + local_ip => $opts{conn}->local_ip, @_); } Then, in your plugin using Ask's suggestion: --- config_me_localaddr.orig 2007-07-30 18:03:10.000000000 -0500 +++ config_me_localaddr 2007-07-30 17:56:59.000000000 -0500 @@ -35,7 +35,7 @@ sub hook_config { my $local_ip; unless ($self->connection && $self->connection->local_ip) { $self->log(LOGNOTICE, "cannot determnine locak IP address of connection"); - return DECLINED; + return(DECLINED, `hostname`); } $local_ip = $self->connection->local_ip; my $local_name = gethostbyaddr(inet_aton($local_ip), AF_INET); Life is good, thank you! peter
