Make retrieving subdomain zones possible and allow 63 char TLDs (#4522 and #3500)

Author: thom

interface/lib/classes/remote.d/dns.inc.php

@@ -249,7 +249,7 @@ public function dns_zone_get_id($session_id, $origin) {
 			return false;
 		}
 
-		if(!preg_match('/^[a-z0-9][a-z0-9\-]+[a-z0-9](\.[a-z]{2,4})+$/i', $origin)){
+		if(!preg_match('/^[\w\.\-]{2,64}\.[a-zA-Z0-9\-]{2,63}$/', $origin)){
 			throw new SoapFault('no_domain_found', 'Invalid domain name.');
 			return false;
 		}