#!/usr/bin/perl # # par Julien Wajsberg # # License GPL v2 # use warnings; use strict; use Net::DNS; my $type = "text"; my $header = 0; my $footer = 0; my $erreur = 0; my $domain; if (@ARGV) { while (($_ = shift) and /^-/) { $type = "html" if /^-html$/i ; $header = 1 if /^-header$/i ; $footer = 1 if /^-footer$/i ; } $domain = $_; } my $printer = new Printer($type); #$printer->print_line("Printer $type correctly initialized"); $printer->print_line("Usage: $0 [ -html ] [ -header ] [ -footer ] "), exit 1 unless (defined $domain and $domain =~ /\.$/); $| = 1; $printer->print_header($domain) if ($header); $printer->print_blockheader("Checking domain $domain..."); my $res = Net::DNS::Resolver->new; my $query = $res->query("$domain", "NS"); if ($query) { $res->recurse(0); foreach my $rr (grep { $_->type eq 'NS' } $query->answer) { my $dns = $rr->nsdname; $printer->print_start("$dns :"); $res->nameservers($dns); $query = $res->query("$domain", "SOA"); if ($query) { my @results = $query->answer; if ($#results > 0) { $printer->print_ko("more than one SOA ?!"); $erreur = 1; } elsif ($#results < 0) { $printer->print_ko("no SOA found for $domain"); $erreur = 1; } else { $printer->print_ok("ok"); } } else { $printer->print_ko("query failed: ". $res->errorstring); $erreur = 1; } } } else { $printer->print_line("query failed: ". $res->errorstring); $erreur = 1; } $printer->print_blockfooter(); $printer->print_footer($domain) if ($footer); exit $erreur; #------------------------------------------------------------------- { package Printer ; sub new { my $self = shift; my $type = shift; for ($type) { if (/html/i) { return "Printer::HTML" } elsif (/text/i) { return "Printer::Text" } } } } { package Printer::HTML ; sub print_header($$) { my $self = shift; my $domain = shift; print "Domain Name Servers check for $domain"; print ""; print "\n"; print "\n"; print "

Domain Name Servers check for $domain

\n"; } sub print_blockheader($$) { my $self = shift; my $line = shift; print "

"; print "

", $line, "

\n"; } sub print_blockfooter() { print "

"; } sub print_footer($) { print ""; } sub print_line($$) { my $self = shift; my $line = shift; print "

", $line, "

\n"; } sub print_start($$) { my $self = shift; my $line = shift; print "

", $line, " "; } sub print_ok($$) { my $self = shift; my $line = shift; print "", $line, "

\n"; } sub print_ko($$) { my $self = shift; my $line = shift; print "", $line, "\n"; } } { package Printer::Text ; sub print_line($$) { my $self = shift; my $line = shift; print $line, "\n"; } sub print_start($$) { my $self = shift; my $line = shift; print $line, " "; } sub print_ok($$) { &print_line(@_); } sub print_ko($$) { &print_line(@_); } sub print_header($$) { } sub print_footer($$) { } sub print_blockheader() { &print_line(@_); } sub print_blockfooter() { } } 1; __END__