X-Git-Url: https://code.th-h.de/?p=mail%2Fcheckmail.git;a=blobdiff_plain;f=checkmail.pl;h=4ea8398111ce62111b62a828e7d7b4610cf1fa5b;hp=c89ca9fa2ed2fd4f2e05db6009ed5104f5d7e0a5;hb=ba787c2d08ed975d079c2cdcff3ad52ee4289f66;hpb=382c5a59e4be1ff27a6871a0a504f1c726832d6e

diff --git a/checkmail.pl b/checkmail.pl
index c89ca9f..4ea8398 100644
--- 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).
 # 
-# Copyright (c) 2002-2010 Thomas Hochstein <thh@inter.net>
+# Copyright (c) 2002-2011 Thomas Hochstein <thh@inter.net>
 #
 # 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!
@@ -224,6 +224,9 @@ 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;