[svn:qpsmtpd] r810 - trunk/plugins

[charlieb]

Author: charlieb
Date: Mon Oct 22 18:53:29 2007
New Revision: 810

Modified:
   trunk/plugins/check_badrcptto

Log:
POD update, and change variable name for recipient address ($from => $to).


Modified: trunk/plugins/check_badrcptto
==============================================================================
--- trunk/plugins/check_badrcptto       (original)
+++ trunk/plugins/check_badrcptto       Mon Oct 22 18:53:29 2007
@@ -1,4 +1,5 @@
-# this plugin checks the badrcptto config (like badmailfrom for rcpt address)
+# this plugin checks the badrcptto config (like badmailfrom, but for rcpt 
address
+# rather than sender address)
 use Qpsmtpd::DSN;
 
 sub hook_rcpt {
@@ -6,12 +7,12 @@
   my @badrcptto = $self->qp->config("badrcptto") or return (DECLINED);
   return (DECLINED) unless $recipient->host && $recipient->user;
   my $host = lc $recipient->host;
-  my $from = lc($recipient->user) . '@' . $host;
+  my $to = lc($recipient->user) . '@' . $host;
   for my $bad (@badrcptto) {
     $bad = lc $bad;
     $bad =~ s/^\s*(\S+)/$1/;
     return Qpsmtpd::DSN->no_such_user("mail to $bad not accepted here")
-      if $bad eq $from;
+      if $bad eq $to;
     return Qpsmtpd::DSN->no_such_user("mail to $bad not accepted here")
       if substr($bad,0,1) eq '@' && $bad eq "[EMAIL PROTECTED]";
   }