Add UI field for slave server key

https://sourceforge.net/p/webadmin/bugs/5657/

bind8/create_slave.cgi

@@ -57,6 +57,7 @@ foreach my $z (&find("zone", $vconf)) {
 		}
 	}
 my $masterport = $in{'port_def'} ? undef : $in{'port'};
+my $masterkey = $in{'key_def'} ? undef : $in{'key'};
 my @masters = split(/\s+/, $in{'masters'});
 foreach my $m (@masters) {
 	&check_ipaddress($m) || &check_ip6address($m) ||
@@ -106,6 +107,9 @@ my $masters = { 'name' => 'masters',
 if (defined($masterport)) {
 	$masters->{'values'} = [ 'port', $masterport ];
 	}
+if ($masterkey) {
+	$masters->{'values'} = [ 'key', $masterkey ];
+	}
 my $dir = { 'name' => 'zone',
 	 'values' => [ $in{'zone'} ],
 	 'type' => 1,

bind8/lang/en

@@ -184,6 +184,7 @@ slave_ecannot=You are not allowed to edit this zone
 slave_opts=Zone Options
 slave_masters=Master servers
 slave_masterport=Server port
+slave_masterkey=Server key
 slave_max=Maximum transfer time
 slave_file=Records file
 slave_check=Check names?

bind8/slave_form.cgi

@@ -59,6 +59,15 @@ print &ui_table_row($text{'slave_masterport'},
 	&ui_opt_textbox("port", undef, 5, $text{'default'},
 		        $text{'slave_master_port'}), 3);
 
+# Master key
+my @keys = &find("key", $conf);
+if (@keys) {
+	print &ui_table_row($text{'slave_masterkey'},
+		&ui_select("key", undef, 
+			[ [ undef, $text{'slave_nokey'} ],
+			  (map { $_->{'value'} } @keys) ]));
+	}
+
 # Create on slave servers?
 my @servers = grep { $_->{'sec'} } &list_slave_servers();
 if (@servers && $access{'remote'}) {