X-Git-Url: https://code.th-h.de/?p=mail%2Fcheckmail.git;a=blobdiff_plain;f=checkmail.pl;h=271da4f8eeff139e3919f9020ea7f297dfcdf0a4;hp=c8f9e911c484f410978af9a56e9290e55f61d752;hb=e8c5b7b2ff65a415212c2589256f7809e3ac3b2e;hpb=ea5d225aa40f7a9017e459c08a99ac6a17261ac4 diff --git a/checkmail.pl b/checkmail.pl index c8f9e91..271da4f 100644 --- a/checkmail.pl +++ b/checkmail.pl @@ -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 { @@ -223,10 +224,13 @@ sub checksmtp { # connection failure? if ($success < 0) { $status = connection_failed(@message); + # reset status - the address has been checked and _is_ valid! + $status = 3; + print " > Address verification currently impossible. You'll have to try again or send a test mail ...\n" if !($options{'q'}); # verification impossible? } elsif ($success) { $status = 3; - print " > Address verificaton impossible. You'll have to send a test mail ...\n" if !($options{'q'}); + print " > Address verification impossible. You'll have to send a test mail ...\n" if !($options{'q'}); } } # if -r is not set or status was not set to 3: valid address