- print REPLY "In order to use the service, you will need to send GPG signed\n";
- print REPLY "messages.\n\n";
- print REPLY "The format of the text in these messages is important, as they represent\n";
- print REPLY "commands to autodns. Commands are formatted one per line, and enclosed\n";
- print REPLY "by \"BEGIN\" and \"END\" commands (without the quotes).\n";
- print REPLY "Current valid commands are:\n";
- print REPLY "BEGIN - begin processing.\n";
- print REPLY "END - end processing.\n";
- print REPLY "HELP - display this message.\n";
- 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";
+ print REPLY <<EOF;
+In order to use the service, you will need to send GPG signed messages.
+The format of the text in these messages is important, as they represent
+commands to autodns. Commands are formatted one per line, and enclosed
+by "BEGIN" and "END" commands (without the quotes).
+
+Current valid commands are:
+
+BEGIN - begin processing.
+END - end processing.
+HELP - display this message.
+LIST - show all the zones currently held by you.
+ADD <domain> - adds the domain <domain> for processing.
+DEL <domain> - removes the domain <domain> if you own it.
+EOF
+ if (($priv & 1) == 1) {
+ print REPLY "MASTER <ip address> - set the nameserver".
+ " we should slave off for subsequent ADD\ncommands.\n";
+ }
+ if (($priv & 2) == 2) {
+ print REPLY "ADDUSER <username> <keyid> <privilege> ",
+ "<masterip> - add a new user. Imports any key",
+ "\nattached to the message into the keyring.\n";
+ }