develooper Front page | perl.cvs.qpsmtpd | Postings from March 2007

[svn:qpsmtpd] r723 - trunk/plugins

From:
ask
Date:
March 14, 2007 23:49
Subject:
[svn:qpsmtpd] r723 - trunk/plugins
Message ID:
20070315064924.51899CBA2F@x12.develooper.com
Author: ask
Date: Wed Mar 14 23:49:23 2007
New Revision: 723

Modified:
   trunk/plugins/greylisting

Log:
rename %ARGS to %PERMITTED_ARGS

Modified: trunk/plugins/greylisting
==============================================================================
--- trunk/plugins/greylisting	(original)
+++ trunk/plugins/greylisting	Wed Mar 14 23:49:23 2007
@@ -128,8 +128,9 @@
 my $DENYMSG = "This mail is temporarily denied";
 my ($QPHOME) = ($0 =~ m!(.*?)/([^/]+)$!);
 my $DB = "denysoft_greylist.dbm";
-my %ARGS = map { $_ => 1 } qw(per_recipient remote_ip sender recipient 
+my %PERMITTED_ARGS = map { $_ => 1 } qw(per_recipient remote_ip sender recipient 
   black_timeout grey_timeout white_timeout deny_late mode);
+
 my %DEFAULTS = (
   remote_ip => 1,
   sender => 0,
@@ -145,7 +146,7 @@
   my $config = { %DEFAULTS, 
     map { split /\s+/, $_, 2 } $self->qp->config('denysoft_greylist'), 
     %arg };
-  if (my @bad = grep { ! exists $ARGS{$_} } sort keys %$config) {
+  if (my @bad = grep { ! exists $PERMITTED_ARGS{$_} } sort keys %$config) {
     $self->log(LOGALERT, "invalid parameter(s): " . join(',',@bad));
   }
   $self->{_greylist_config} = $config;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About