Mailing List Archive

Author: dos
Date: Wed May 25 20:53:47 2005
New Revision: 178573

URL: http://svn.apache.org/viewcvs?rev=178573&view=rev
Log:
bug 4347: fix set_addr_list() validation -- now only checks for non-blank string

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm?rev=178573&r1=178572&r2=178573&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Conf/Parser.pm Wed May 25 20:53:47 2005
@@ -620,7 +620,7 @@
sub set_addrlist_value {
my ($conf, $key, $value, $line) = @_;

- unless (defined $value && $value =~ /^(?:\S+\@\S+(?:\s+\S+\@\S+)*)$/) {
+ unless (defined $value && $value !~ /^$/) {
return $Mail::SpamAssassin::Conf::MISSING_REQUIRED_VALUE;
}
$conf->{parser}->add_to_addrlist ($key, split (' ', $value));
@@ -629,7 +629,7 @@
sub remove_addrlist_value {
my ($conf, $key, $value, $line) = @_;

- unless (defined $value && $value =~ /^(?:\S+\@\S+(?:\s+\S+\@\S+)*)$/) {
+ unless (defined $value && $value !~ /^$/) {
return $Mail::SpamAssassin::Conf::MISSING_REQUIRED_VALUE;
}
$conf->{parser}->remove_from_addrlist ($key, split (' ', $value));