projects
/
mail
/
checkmail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix annoying error message (Release 0.6.1).
[mail/checkmail.git]
/
checkmail.pl
diff --git
a/checkmail.pl
b/checkmail.pl
index
c89ca9f
..
4ea8398
100644
(file)
--- a/
checkmail.pl
+++ b/
checkmail.pl
@@
-1,15
+1,15
@@
-#! /usr/bin/perl -
W
+#! /usr/bin/perl -
w
#
#
-# checkmail Version 0.
5
by Thomas Hochstein
+# checkmail Version 0.
6.1
by Thomas Hochstein
#
# This script tries to verify the deliverability of (a) mail address(es).
#
#
# This script tries to verify the deliverability of (a) mail address(es).
#
-# Copyright (c) 2002-201
0
Thomas Hochstein <thh@inter.net>
+# Copyright (c) 2002-201
1
Thomas Hochstein <thh@inter.net>
#
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
#
# It can be redistributed and/or modified under the same terms under
# which Perl itself is published.
-our $VERSION = "0.
5
";
+our $VERSION = "0.
6.1
";
################################# Configuration ################################
# Please fill in a working configuration!
################################# Configuration ################################
# Please fill in a working configuration!
@@
-224,6
+224,9
@@
sub checksmtp {
# connection failure?
if ($success < 0) {
$status = connection_failed(@message);
# 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;
# verification impossible?
} elsif ($success) {
$status = 3;
This page took
0.010904 seconds
and
4
git commands to generate.