cvs commit: qpsmtpd/plugins bounce_verp
[email protected] (Matt Sergeant)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/20 10:31:26
Modified: plugins bounce_verp
Log:
Switch to connection object for relaying info
Revision Changes Path
1.2 +7 -2 qpsmtpd/plugins/bounce_verp
Index: bounce_verp
===================================================================
RCS file: /cvs/public/qpsmtpd/plugins/bounce_verp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- bounce_verp 20 Sep 2004 08:09:02 -0000 1.1
+++ bounce_verp 20 Sep 2004 17:31:26 -0000 1.2
@@ -110,7 +110,8 @@
sub do_verp {
my ($self, $transaction) = @_;
- if ($transaction->relaying) {
+ if ($self->qp->connection->relaying) {
+ $self->log(LOGINFO, "doing outbound verp");
return $self->do_outbound_verp($transaction);
}
@@ -120,10 +121,11 @@
sub check_verp {
my ($self, $transaction) = @_;
- if ($transaction->relaying) {
+ if ($self->qp->connection->relaying) {
return DECLINED;
}
+ $self->log(LOGINFO, "checking inbound verp");
return $self->do_inbound_verp($transaction);
}
@@ -160,6 +162,7 @@
my $new_address = join('=', $hash, $timestamp, $sender);
+ $self->log(LOGDEBUG, "setting sender to $new_address");
$transaction->sender(Qpsmtpd::Address->new($new_address));
return DECLINED;
@@ -176,6 +179,7 @@
return DECLINED unless $self->is_bounce($transaction);
+ $self->log(LOGDEBUG, "validating bounce recipient: $recip");
#return DENY, "Multiple recipients of bounces not allowed" if $not_allowed;
my $srs = $self->get_srs();
@@ -192,6 +196,7 @@
}
# now set RCPTs to proper address.
+ $self->log(LOGDEBUG, "fixing inbound recipient to be $address");
$transaction->recipients(Qpsmtpd::Address->new($address));
return DECLINED;