PATCH: Check relayclient in dnsbl

[Gordon Rowell]

--- plugins/dnsbl.orig  2005-07-02 12:17:32.000000000 +1000
+++ plugins/dnsbl       2005-07-02 17:17:00.000000000 +1000
@@ -17,6 +17,8 @@
 sub connect_handler {
   my ($self, $transaction) = @_;
+  return (DECLINED) if $self->qp->connection->relay_client();
+
   my $remote_ip = $self->qp->connection->remote_ip;

   # perform RBLSMTPD checks to mimic Dan Bernstein's rblsmtpd
@@ -155,6 +157,8 @@
   my ($self, $transaction, $rcpt) = @_;
   my $connection = $self->qp->connection;

+  return (DECLINED) if $self->qp->connection->relay_client();
+
   # RBLSMTPD being non-empty means it contains the failure message to 
return
   if (defined ($ENV{'RBLSMTPD'}) && $ENV{'RBLSMTPD'} ne '') {
     my $result = $ENV{'RBLSMTPD'};