Warn about CNAME target missing, #6733

Author: helmo

interface/web/dns/dns_cname_edit.php

@@ -61,6 +61,20 @@ function onSubmit() {
 		if($this->dataRecord["data"] === '@') {
 			$this->dataRecord["data"] = $soa['origin'];
 		}
+
+		// The target name should either end in a . or exist in the current zone.
+		if (!empty($this->dataRecord["data"]) && substr($this->dataRecord["data"], -1) != '.') {
+			$tmp = $app->db->queryOneRecord("SELECT dns_rr.id
+				FROM dns_rr
+					LEFT JOIN dns_soa ON dns_rr.zone = dns_soa.id
+				WHERE (name = ?
+					OR name = CONCAT(?, '.', dns_soa.origin)) AND dns_rr.zone = ?",
+				$this->dataRecord["data"], $this->dataRecord["data"], $this->dataRecord["zone"]);
+
+			if (empty($tmp)) {
+				$app->tform->errorMessage .= $app->tform->wordbook['data_error_not_found'] . '<br/>';
+			}
+		}
 		parent::onSubmit();
 	}
 }

interface/web/dns/lib/lang/ar_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = 'Target hostname empty';
 $wb['data_error_regex'] = 'Target hostname format invalid';
 $wb['data_error_duplicate'] = 'Duplicate A, AAAA, ALIAS, CNAME, or DNAME record';
 $wb['ttl_range_error'] = 'Min. TTL time is 60 seconds.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>

interface/web/dns/lib/lang/bg_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = 'Target hostname empty';
 $wb['data_error_regex'] = 'Target hostname format invalid';
 $wb['data_error_duplicate'] = 'Duplicate A, AAAA, ALIAS, CNAME, or DNAME record';
 $wb['ttl_range_error'] = 'Минималния TTL е 60 секунди.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>

interface/web/dns/lib/lang/br_dns_cname.lng

@@ -14,3 +14,4 @@ $wb['data_error_empty'] = 'O alvo do host está vazio.';
 $wb['data_error_regex'] = 'O alvo do host possui formato inválido.';
 $wb['data_error_duplicate'] = 'Registro A, AAAA, ALIAS, CNAME ou DNAME duplicado';
 $wb['ttl_range_error'] = 'O TTL mínimo são 60 segundos.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';

interface/web/dns/lib/lang/ca_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = 'Le nom d\'hôte cible est vide.';
 $wb['data_error_regex'] = 'Le format du nom d\'hôte cible invalide.';
 $wb['data_error_duplicate'] = 'Duplicate A, AAAA, ALIAS, CNAME, or DNAME record';
 $wb['ttl_range_error'] = 'Min. TTL time is 60 seconds.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>

interface/web/dns/lib/lang/cn_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = '目标主机名为空。';
 $wb['data_error_regex'] = '目标主机名格式无效。';
 $wb['data_error_duplicate'] = '重复的 A、AAAA、ALIAS、CNAME 或 DNAME 记录。';
 $wb['ttl_range_error'] = '最小 TTL 时间为 60 秒。';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>

interface/web/dns/lib/lang/cz_dns_cname.lng

@@ -14,3 +14,4 @@ $wb['data_error_empty'] = 'Cílový název hostitele je prázdný';
 $wb['data_error_regex'] = 'Cílový název hostitele má chybný formát';
 $wb['data_error_duplicate'] = 'Duplikace A záznamu nebo CNAME-záznamu';
 $wb['ttl_range_error'] = 'Min. TTL doba je 60 sekund.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';

interface/web/dns/lib/lang/de_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = 'Ziel Hostname ist leer';
 $wb['data_error_regex'] = 'Ziel Hostname Format ist ungültig';
 $wb['data_error_duplicate'] = 'Duplicate A, AAAA, ALIAS, CNAME, or DNAME record';
 $wb['ttl_range_error'] = 'Min. TTL time is 60 seconds.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>

interface/web/dns/lib/lang/dk_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = 'Mål-værtsnavn er tom';
 $wb['data_error_regex'] = 'Mål-værtsnavn format er ugyldigt';
 $wb['data_error_duplicate'] = 'Duplicate A, AAAA, ALIAS, CNAME, or DNAME record';
 $wb['ttl_range_error'] = 'Min. TTL tid er 60 sekunder.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>

interface/web/dns/lib/lang/el_dns_cname.lng

@@ -14,4 +14,5 @@ $wb['data_error_empty'] = 'Το hostname Προορισμός δεν έχει ο
 $wb['data_error_regex'] = 'Hostname Προορισμός με μη έγκυρη μορφοποίηση';
 $wb['data_error_duplicate'] = 'Duplicate A, AAAA, ALIAS, CNAME, or DNAME record';
 $wb['ttl_range_error'] = 'Min. TTL time is 60 seconds.';
+$wb['data_error_not_found'] = 'Target hostname not found in the current zone. It should end in a . when it\'s external.';
 ?>