qpsmtpd/sme8/qpsmtpd-0.40-rhsbl_disconnect.patch

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.40/plugins/rhsbl mezzanine_patched_qpsmtpd-0.40/plugins/rhsbl
--- qpsmtpd-0.40/plugins/rhsbl  2007-06-14 13:57:24.000000000 -0400
+++ mezzanine_patched_qpsmtpd-0.40/plugins/rhsbl        2007-10-16 17:28:06.000000000 -0400
@@ -1,4 +1,13 @@
+sub register {
+  my ($self, $qp, $denial ) = @_;
+  if ( defined $denial and $denial =~ /^disconnect$/i ) {
+    $self->{_rhsbl}->{DENY} = DENY_DISCONNECT;
+  }
+  else {
+    $self->{_rhsbl}->{DENY} = DENY;
+  }
 
+}
 
 sub hook_mail {
   my ($self, $transaction, $sender, %param) = @_;
@@ -48,12 +57,12 @@
   my $result = $self->process_sockets;
   if ($result && defined($self->{_rhsbl_zones_map}{$result})) {
     if ($result =~ /^$host\./ ) {
-      return (DENY, "Mail from $host rejected because it " . $self->{_rhsbl_zones_map}{$result});
+      return ($self->{_rhsbl}->{DENY}, "Mail from $host rejected because it " . $self->{_rhsbl_zones_map}{$result});
     } else {
-      return (DENY, "Mail from HELO $hello rejected because it " . $self->{_rhsbl_zones_map}{$result});
+      return ($self->{_rhsbl}->{DENY}, "Mail from HELO $hello rejected because it " . $self->{_rhsbl_zones_map}{$result});
     }
   }
-  return (DENY, $result) if $result;
+  return ($self->{_rhsbl}->{DENY}, $result) if $result;
   return DECLINED;
 }
 
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.40/plugins/rhsbl mezzanine_patched_qpsmtpd-0.40/plugins/rhsbl
2			--- qpsmtpd-0.40/plugins/rhsbl 2007-06-14 13:57:24.000000000 -0400
3			+++ mezzanine_patched_qpsmtpd-0.40/plugins/rhsbl 2007-10-16 17:28:06.000000000 -0400
4			@@ -1,4 +1,13 @@
5			+sub register {
6			+ my ($self, $qp, $denial ) = @_;
7			+ if ( defined $denial and $denial =~ /^disconnect$/i ) {
8			+ $self->{_rhsbl}->{DENY} = DENY_DISCONNECT;
9			+ }
10			+ else {
11			+ $self->{_rhsbl}->{DENY} = DENY;
12			+ }
13
14			+}
15
16			sub hook_mail {
17			my ($self, $transaction, $sender, %param) = @_;
18			@@ -48,12 +57,12 @@
19			my $result = $self->process_sockets;
20			if ($result && defined($self->{_rhsbl_zones_map}{$result})) {
21			if ($result =~ /^$host\./ ) {
22			- return (DENY, "Mail from $host rejected because it " . $self->{_rhsbl_zones_map}{$result});
23			+ return ($self->{_rhsbl}->{DENY}, "Mail from $host rejected because it " . $self->{_rhsbl_zones_map}{$result});
24			} else {
25			- return (DENY, "Mail from HELO $hello rejected because it " . $self->{_rhsbl_zones_map}{$result});
26			+ return ($self->{_rhsbl}->{DENY}, "Mail from HELO $hello rejected because it " . $self->{_rhsbl_zones_map}{$result});
27			}
28			}
29			- return (DENY, $result) if $result;
30			+ return ($self->{_rhsbl}->{DENY}, $result) if $result;
31			return DECLINED;
32			}
33