Make add-dns.pl croak if you don't configure it.

[autodns.git] / contrib / add-dns.pl

diff --git a/contrib/add-dns.pl b/contrib/add-dns.pl
index 53a0e3ad1cbd47ac7b5e7051b74227a2880c9594..e039230ecacb9ca30833a569987841220c2a8774 100644 (file)
--- a/contrib/add-dns.pl
+++ b/contrib/add-dns.pl
@@ -17,16 +17,31 @@ use IPC::Open3;
 
 sub usage;
 
+
+##############################################################################
+## Configuration section
+##############################################################################
+
+my $from = "FILL HERE";
+my $keyid = "FILL HERE";
+my $to = 'dns-auto@ns0.blackcatnetworks.co.uk,'.
+       'dns-auto@ns1.blackcatnetworks.co.uk';
+
+##############################################################################
+##############################################################################
+
+if ($from eq "FILL HERE") {
+       die "You need to edit the script to specify your email address".
+               " and GPG key ID (please also check the addresses of the".
+               " servers to update)\n");
+}
+
 my $sendmail = "/usr/sbin/sendmail";
 my $gpg = "/usr/bin/gpg";
 
-my $to = 'dns-auto@tuschin.blackcatnetworks.co.uk,
-      dns-auto@ns1.blackcatnetworks.co.uk';
 #my $to = 'dom';
-my $from = 'Urchin Hostmaster <hostmaster@urchin.earth.li>';
 my $cc = $from;
 #my $cc = "";
-my $keyid = "25B2616D";
 my $command;
 my @validcommands = qw(add remove list remotehelp);