NAME

DNS::SerialNumber::Check - check the consistency of a zone's DNS serial number

VERSION

Version 0.02

SYNOPSIS

    use DNS::SerialNumber::Check;

    my $sn = DNS::SerialNumber::Check->new;
    my $re = $sn->check("example.com");  # or,
    my $re = $sn->check("example.com",['ns1.example.com','ns2.example.com']);

    print $re->status;
    use Data::Dumper;
    print Dumper $re->info;

METHODS

new()

Initialize the object.

    my $sn = DNS::SerialNumber::Check->new;

check(zonename,[nameservers])

Check if the zone serial number in each nameserver for the given zonename is consistent.

    my $re = $sn->check("example.com");  # or,
    my $re = $sn->check("example.com",['ns1.example.com','ns2.example.com']);

The first will check from the zone's default nameservers (from its NS records). The second will check from the specified nameservers you provided.

status()

Shows the status code within the result, 1 for OK, 0 for BAD.

    print $re->status;

info()

A hashref, shows each nameserver of the zone with the serial number.

    use Data::Dumper;
    print Dumper $re->info;

SEE ALSO

Net::DNS

AUTHOR

Ken Peng <yhpeng@cpan.org>

BUGS/LIMITATIONS

If you have found bugs, please send email to <yhpeng@cpan.org>

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc DNS::SerialNumber::Check

COPYRIGHT & LICENSE

Copyright 2011 Ken Peng, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

cpanm DNS::SerialNumber::Check

perl -MCPAN -e shell
install DNS::SerialNumber::Check