From 5c713e15f75a987b37acce49958aea618455154b Mon Sep 17 00:00:00 2001
From: Daniel Maya <daniel.maya@artica.es>
Date: Tue, 21 Jun 2016 16:15:57 +0200
Subject: [PATCH] New feature domain names. Ticket #3130.

---
 pandora_console/include/functions_api.php | 37 ++++++++++++++++++-----
 1 file changed, 29 insertions(+), 8 deletions(-)

diff --git a/pandora_console/include/functions_api.php b/pandora_console/include/functions_api.php
index beb3f1d69c..86c3825ff1 100644
--- a/pandora_console/include/functions_api.php
+++ b/pandora_console/include/functions_api.php
@@ -186,15 +186,36 @@ function isInACL($ip) {
 	// If the IP is not in the list, we check one by one, all the wildcard registers
 	foreach($config['list_ACL_IPs_for_API'] as $acl_ip) {
 		if (preg_match('/\*/', $acl_ip)) {
-			
+
+			if($acl_ip[0]=='*' && strlen($acl_ip)>1){
+				//example *.lab.artica.es == 151.80.15.*
+				$acl_ip = str_replace('*.','',$acl_ip);
+				$name = array();
+				$name = gethostbyname($acl_ip);
+				$names = explode('.',$name);
+				$names[3] = "";
+				$names = implode('.',$names);
+				if (preg_match('/'.$names.'/', $ip)) {
+					return true;
+				}
+
+			}else{
+				//example 192.168.70.* or *
+				$acl_ip = str_replace('.','\.',$acl_ip);
+				// Replace wilcard by .* to do efective in regular expression
+				$acl_ip = str_replace('*','.*',$acl_ip);
+				// If the string match with the beginning of the IP give it access
+				if (preg_match('/'.$acl_ip.'/', $ip)) {
+					return true;
+				}
+			}
 			// Scape for protection
-			$acl_ip = str_replace('.','\.',$acl_ip);
-			
-			// Replace wilcard by .* to do efective in regular expression
-			$acl_ip = str_replace('*','.*',$acl_ip);
-			
-			// If the string match with the beginning of the IP give it access
-			if (preg_match('/'.$acl_ip.'/', $ip)) {
+
+		}else{
+			//example lab.artica.es without '*'
+			$name = array();
+			$name = gethostbyname($acl_ip);
+			if (preg_match('/'.$name.'/', $ip)) {
 				return true;
 			}
 		}