argh

bin/_old/old/dnsnotify

@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+
+# usage: dnsnotify zone slave [...]
+# example: dnsnotify example.org 1.2.3.4 1.2.3.5
+
+use Net::DNS;
+
+$zone = shift;
+@master_ns = @ARGV;
+
+$res = new Net::DNS::Resolver;
+
+foreach $ns (@master_ns) {
+	$packet = new Net::DNS::Packet($zone, "SOA", "IN");
+	die unless defined $packet;
+
+	($packet->header)->opcode("NS_NOTIFY_OP");
+	($packet->header)->rd(0);
+	($packet->header)->aa(1);
+
+	$res->nameservers($ns);
+
+	# Prints outgoing packet - the NOTIFY
+	# $packet->print;
+
+	$reply = $res->send($packet);
+
+	if (defined $reply) {
+		
+			print "Received NOTIFY answer from " . $reply->answerfrom . "\n";
+			# Print received packet - the answer
+			# $reply->print;
+	
+	} else {
+	
+		warn "\$res->send indicates NOTIFY error for $ns\n";
+	}
+}
+
+exit 0;
+