X-Git-Url: https://the.earth.li/gitweb/?a=blobdiff_plain;f=autodns.pl;h=fa4e09b6a337cb4005e18f1a2b62d126ad5e3571;hb=f42fd5611d122bd25736db2acb453aad297feb91;hp=5aba950e52b7bb379f2c240fdde0bdbec271a54e;hpb=b3a4e4c944a9535aaf39fe414d76171b4169bd6b;p=autodns.git

diff --git a/autodns.pl b/autodns.pl
index 5aba950..fa4e09b 100755
--- a/autodns.pl
+++ b/autodns.pl
@@ -5,7 +5,7 @@
 # http://www.earth.li/projectpurple/progs/autodns.html
 # Released under the GPL.
 #
-# $Id: autodns.pl,v 1.14 2005/06/15 10:14:28 noodles Exp $
+# $Id: autodns.pl,v 1.15 2005/06/15 10:26:25 noodles Exp $
 #
 
 use strict;
@@ -74,7 +74,7 @@ sub valid_domain($) {
 	my $domain = shift;
 	$domain = lc $domain;
 
-	if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,4}$/) {
+	if ($domain =~ /^(?:[a-z0-9-]+\.)+[a-z]{2,6}$/) {
 		return 1;
 	} elsif ($domain =~ /^(?:[0-9\/-]+\.)+in-addr.arpa$/) {
 		return 1;
@@ -501,6 +501,10 @@ zone \"$domain\" {
 		print REPLY "LIST - show all the zones currently held by you.\n";
 		print REPLY "ADD <domain> - adds the domain <domain> for processing.\n";
 		print REPLY "DEL <domain> - removes the domain <domain> if you own it.\n";
+		if (($priv & 1) == 1) {
+			print REPLY "MASTER <ip address> - set the nameserver".
+			" we should slave off for subsequent ADD commands.\n";
+		}
 	} elsif ($inprocess) {
 		print REPLY "Unknown command!\n";
 	}