thh/checkmail
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Activity

Fix regexp for syntax-checking.

Browse source 
It was matching ""@domain; AFAIU RFC 5322,
only "something"@domain should be legal, but
not an empty quoted string.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2011-07-24 12:28:26 +02:00
parent ea5d225aa4
commit 5327436fa4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
checkmail.pl
View file

@ -93,8 +93,9 @@ my (%targets,$curstat,$status,$log,$message);
foreach (@addresses) {
my $address = $_;
# regexp taken from http://www.regular-expressions.info/email.html
# and escaping of "/" added two times
if ($address !~ /^(?:[a-z0-9!#$%&'*+\/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+\/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?$/i) {
# with escaping of "/" added two times and "*" changed to "+"
# in localpart, second alternative
if ($address !~ /^(?:[a-z0-9!#$%&'*+\/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+\/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f]+)")@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?$/i) {
printf(" > Address <%s> is syntactically INVALID.\n",$address) if !($options{'q'});
$curstat = 2;
} else {