in reply to Re: Mail::CheckUser inconsistent results
in thread Mail::CheckUser inconsistent results

Awesome answer, Anonymous Monk!

Thanks very much for all that.

But I don't see any inconsistent results with your code. Some of that output was from Mail::CheckUser, right?

tel2

  • Comment on Re^2: Mail::CheckUser inconsistent results

Replies are listed 'Best First'.
Re^3: Mail::CheckUser inconsistent results
by tel2 (Pilgrim) on Aug 27, 2015 at 01:38 UTC
    Hi again Anonymous Monk.

    Your output looks doubled.  Did you run it twice - once with Alpha($_) uncommented and once with Omega($_) uncommented, or what?

    Strangely, today when I run my one liners on my webhost I seem to be getting 100% positive (i.e. wrong) results, regardless of the domain, as long as the address syntax is correct.  For example:

    $ echo "a@abczz123ffz.com" | perl -MMail::CheckUser=check_email,last_check -ne 'BEGIN{$Mail::CheckUser::Skip_SMTP_Checks = 1};chomp;for $i (0..9){print "$_ -> ";if (check_email($_)){print "OK\n"}else{print last_check()->{reason}."\n"}}'
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    a@abczz123ffz.com -> OK
    
    Just tried it on a different host and the results are 100% negative (i.e. correct).  Any ideas?  If I take this up with the webhost, what should I say?

    Thanks.

      Your output looks doubled. Did you run it twice - once with Alpha($_) uncommented and once with Omega($_) uncommented, or what?

      Yes I did , its why the output is slightly different format each time

      Just tried it on a different host and the results are 100% negative (i.e. correct). Any ideas?

      Just the same ones :) Try adding this and see what you get

      use Mail::CheckUser qw/ check_email last_check /; BEGIN{ $Mail::CheckUser::Skip_SMTP_Checks = 1; $Mail::CheckUser::Treat_Timeout_As_Fail = 1; $Mail::CheckUser::Debug = 1; }

      or maybe look inside :) look at what its doing ... so i do that and I try I get

      So this mean my local DNS server is telling me those adresses don't really exist

      Maybe your DNS server is lying to you , it happens, DNS hijacking

        Thanks again, Anonymous Monk!

        I'm looking into those things now.