Front page | perl.qpsmtpd |
Postings from July 2007
On 7/30/07 5:11 PM, "Peter J. Holzer" <hjp@hjp.at> 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
Thread Previous
|
Thread Next