From 6bcbd862f70d003feb6cd529ed8f606d67f9b3a4 Mon Sep 17 00:00:00 2001
From: Phil Davis <phil.davis@inf.org>
Date: Tue, 11 Nov 2014 00:16:06 +0545
Subject: [PATCH] Add is_unqualified_hostname function

---
 etc/inc/util.inc | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/etc/inc/util.inc b/etc/inc/util.inc
index c64a5ed508..6a2047b212 100644
--- a/etc/inc/util.inc
+++ b/etc/inc/util.inc
@@ -670,7 +670,18 @@ function is_subnetoralias($subnet) {
 		return is_subnet($subnet);
 }
 
-/* returns true if $hostname is a valid hostname */
+/* returns true if $hostname is just a valid hostname (top part without any of the domain part) */
+function is_unqualified_hostname($hostname) {
+	if (!is_string($hostname))
+		return false;
+
+	if (preg_match('/^(?:[a-z0-9_]|[a-z0-9_][a-z0-9_\-]*[a-z0-9_])$/i', $hostname))
+		return true;
+	else
+		return false;
+}
+
+/* returns true if $hostname is a valid hostname, with or without being a fully-qualified domain name. */
 function is_hostname($hostname) {
 	if (!is_string($hostname))
 		return false;