+ } elsif ($inprocess && /^MASTER\s(.*)$/) {
+ if (($priv & 1) != 1) {
+ print REPLY "You're not authorised to use the MASTER ",
+ "command.\n";
+ } elsif ($1 =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/) {
+ $server = $1;
+ print REPLY "Set master IP address to $1\n";
+ } else {
+ print REPLY "$1 doesn't look like a valid IPv4 ",
+ "address to me.\n";
+ }