# 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;
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;
} else {
# Clear text.
- my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
+ my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch --verify");
# Feed it the mail.
print GPGIN $entity->bodyhandle->as_string;
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";
}