Front page | perl.qpsmtpd |
Postings from July 2004
--- sender_permitted_from Fri Mar 5 12:46:24 2004
+++ /var/qmail/qpsmtpd/qpsmtpd/plugins/sender_permitted_from Sat Jul 31 18:10:18 2004
@@ -30,6 +30,7 @@
sub register {
my ($self, $qp, @args) = @_;
+ $self->{_args}{spf_deny} = 0;
%{$self->{_args}} = @args;
$self->register_hook("mail", "mail_handler");
$self->register_hook("rcpt", "rcpt_handler");
@@ -60,7 +61,7 @@
my $from = $sender->user . '@' . $host;
my $ip = $self->qp->connection->remote_ip;
- my $helo = $self->qp->connection->hello_host;
+ my $helo = defined($self->qp->connection->hello_host) ? $self->qp->connection->hello_host : '';
my $query = Mail::SPF::Query->new(ip => $ip, sender => $from, helo => $helo,
sanitize => 1,
@@ -97,7 +98,8 @@
}
if ($result eq 'fail' or $result eq 'softfail') {
- $self->log(LOGDEBUG, "result for $rcpt->address was $result: $comment");
+ #$self->log(LOGDEBUG, "result for $rcpt->address was $result: $comment");
+ $self->log(LOGDEBUG, "result for " . $rcpt->address . " was $result: $comment");
}
return DECLINED;
Thread Previous