dnsnotify

[Jos Backus <Jos.Backus@nl.origin-it.com>]

Anyone care to test this to see if it works? You will need Net::DNS-0.12 by
Michael Fuhr, available at a CPAN mirror near you, or from

	http://www.dimensional.com/~mfuhr/perldns/Net-DNS-release.tar.gz

My test setup suggests that it should :-)

	#!/usr/local/bin/perl

	# usage: dnsnotify zone slave [...]
	# example: dnsnotify example.org 1.2.3.4 1.2.3.5

	use strict;

	use Net::DNS;

	my $zone      = shift;
	my @master_ns = @ARGV;

	my $type      = "SOA";
	my $class     = "IN";

	my $packet = new Net::DNS::Packet($zone, $type, $class);
	die unless defined $packet;

	$packet->header->opcode("NS_NOTIFY_OP");
	$packet->header->rd(0);

	$packet->print;

	my $res = new Net::DNS::Resolver;
	$res->nameservers(@master_ns);

	my $reply = $res->send($packet); 
	$reply->print;

	exit 0;

Thanks,
-- 
Jos Backus                          _/ _/_/_/  "Reliability means never
                                   _/ _/   _/   having to say you're sorry."
                                  _/ _/_/_/             -- D. J. Bernstein
                             _/  _/ _/    _/
Jos.Backus@nl.origin-it.com  _/_/  _/_/_/      use Std::Disclaimer;