From b69b538d6163b4231acfe3c8f4b21e9f7f0fc7f0 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 23 Mar 2022 19:02:10 -0700
Subject: [PATCH] Fix handling of keys in allow-transfer
 https://github.com/webmin/webmin/issues/1611

---
 bind8/bind8-lib.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bind8/bind8-lib.pl b/bind8/bind8-lib.pl
index 33c1673b5..b94586b3e 100755
--- a/bind8/bind8-lib.pl
+++ b/bind8/bind8-lib.pl
@@ -690,9 +690,9 @@ my ($addr, @vals, $dir);
 my @sp = split(/\s+/, $in{$_[0]});
 for(my $i=0; $i<@sp; $i++) {
 	!$_[3] || &check_ipaddress($sp[$i]) || &error(&text('eip', $sp[$i]));
-	if (lc($sp[$i+1]) eq "key") {
-		push(@vals, { 'name' => $sp[$i++],
-			      'values' => [ "key", $sp[++$i] ] });
+	if (lc($sp[$i]) eq "key") {
+		push(@vals, { 'name' => $sp[$i],
+			      'values' => [ "\"".$sp[++$i]."\"" ] });
 		}
 	else {
 		push(@vals, { 'name' => $sp[$i] });