Make domain clash checking case-insensitive

diff --git a/bind8/create_delegation.cgi b/bind8/create_delegation.cgi
index 17b2d1e..f212291 100755 (executable)
--- a/bind8/create_delegation.cgi
+++ b/bind8/create_delegation.cgi
@@ -39,7 +39,7 @@ else {
        }
 $in{'zone'} =~ s/\.$//;
 foreach $z (&find("zone", $vconf)) {
-       if ($z->{'value'} eq $in{'zone'}) {
+       if (lc($z->{'value'}) eq lc($in{'zone'})) {
                &error($text{'master_etaken'});
                }
        }

diff --git a/bind8/create_forward.cgi b/bind8/create_forward.cgi
index dd33277..1ec8f8a 100755 (executable)
--- a/bind8/create_forward.cgi
+++ b/bind8/create_forward.cgi
@@ -47,7 +47,7 @@ foreach $m (@masters) {
 #      &error($text{'create_enone'});
 #      }
 foreach $z (&find("zone", $vconf)) {
-       if ($z->{'value'} eq $in{'zone'}) {
+       if (lc($z->{'value'}) eq lc($in{'zone'})) {
                &error($text{'master_etaken'});
                }
        }

diff --git a/bind8/create_master.cgi b/bind8/create_master.cgi
index 3e28d6e..2522cef 100755 (executable)
--- a/bind8/create_master.cgi
+++ b/bind8/create_master.cgi
@@ -71,7 +71,7 @@ if ($in{'tmpl'}) {
                }
        }
 foreach $z (&find("zone", $vconf)) {
-       if ($z->{'value'} eq $in{'zone'}) {
+       if (lc($z->{'value'}) eq lc($in{'zone'})) {
                &error($text{'master_etaken'});
                }
        }

diff --git a/bind8/create_slave.cgi b/bind8/create_slave.cgi
index b978334..7062eef 100755 (executable)
--- a/bind8/create_slave.cgi
+++ b/bind8/create_slave.cgi
@@ -45,7 +45,7 @@ else {
         }
 $in{'zone'} =~ s/\.$//;
 foreach $z (&find("zone", $vconf)) {
-       if ($z->{'value'} eq $in{'zone'}) {
+       if (lc($z->{'value'}) eq lc($in{'zone'})) {
                &error($text{'master_etaken'});
                }
        }