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);