From 245709dca0732905dc902861bccc4bf02e1f8949 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Thu, 4 May 2017 23:36:23 -0700
Subject: [PATCH] Only iterate over the last octet network

---
 bind8/find_free.cgi | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/bind8/find_free.cgi b/bind8/find_free.cgi
index acb3d9c52..decfdd620 100755
--- a/bind8/find_free.cgi
+++ b/bind8/find_free.cgi
@@ -122,10 +122,18 @@ $_[1] =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)/;
 my @to = ($1, $2, $3, $4);
 return @to if (@to != 4);
 
-for (my $i=0;$i<4;$i++) {
-	$from[$i]=$from[$i]==0?1:$from[$i];
-	$to[$i]=$to[$i]==255?254:$to[$i];
-}
+for (my $i=3;$i>=0;$i--) {
+	my $e = 0;
+	if ($from[$i] == 0) {
+		$from[$i] = 1;
+		$e++;
+		}
+	if ($to[$i] == 255) {
+		$to[$i] = 254;
+		$e++;
+		}
+	last if ($e);
+	}
 
 my %frecs;