check-mx

#!/usr/bin/perl -w

# Die Jun 19 14:48:05 CEST 2007
(my $email='pflanze%gmx,ch')=~ tr/%,/@./;

use strict;

$0=~ /(.*?)([^\/]+)\z/s or die "?";
my ($mydir, $myname)=($1,$2);
sub usage {
    print STDERR map{"$_\n"} @_ if @_;
    print "$myname domain expectedmx

  returns true if the domain's mx entry resolves to expectedmx, false otherwise

  options:
  -q  only report through exit code

  (Christian Jaeger <$email>)
";
exit (@_ ? 1 : 0);
}

my @args;
my $DEBUG=0;
our $opt_q;
for (my $i=0; $i<=$#ARGV; $i++) {
    local $_=$ARGV[$i];
    if (/^--?h(elp)?$/) {
    	usage
    } elsif ($_ eq '--') {
    	push @args, @ARGV[$i+1..$#ARGV];
    	last;
    } elsif (/^--?d(ebug)?$/) {
	$DEBUG=1;
    } elsif (/^--?q(uiet)?$/) {
	$opt_q=1;
#     } elsif (/^--?X(?:XXX(?:=(.*))?)?$/) {
#         if (defined $1) {
#             $XXX=$1
#         } else {
#             $XXX=$ARGV[++$i] or usage "missing argument for '$_' option";
#         }
    } elsif (/^-./) {
    	usage("Unknown option '$_'\n");
    } else {
    	push @args, $_
    }
}
usage unless @args==2;

our ($domain, $expectedmx)=@args;

use Chj::DNS::Mx;
use Chj::singlequote;

our $r= new Chj::DNS::Mx;

our $errors;

if (local our @res = $r->mx($domain)) {
    for our $res (@res) {
	local our $exchange= $res->exchange;
	print "domain ".singlequote($domain).": result ".singlequote($exchange) unless $opt_q;
	if ($exchange eq $expectedmx) {
	    print " -> ok\n" unless $opt_q;
	} else {
	    print " -> WRONG\n" unless $opt_q;
	    $errors++;
	}
    }
} else {
    print "domain ".singlequote($domain)." did not return any mx entry\n" unless $opt_q;
    $errors++
}
exit ($errors ? 1 : 0);