1 #! /usr/bin/perl

     2 use 5.014;

     3 use strict;

     4 use warnings;

     5 use GetOpt:::Long;

     6 use Net::DNS;

     7 

     8 sub get_domains {

     9     return qw(schlittermann.de);

    10 }

    11 

    12 # query the serial from

    13 # - the nameservers known from the ns records

    14 # - from the primary master if this is not one of the 

    15 #   NS for the zone

    16 # - from a list of additional (hidden) servers

    17 #

    18 # OK - if the serial numbers are in sync

    19 # WARNING - if there is some difference

    20 # CRITICAL - if the serial cannot be found at one of the sources