initial commit of file from CVS for e-smith-domains on Thu 26 Oct 11:21:08 BST 2023

root/etc/e-smith/db/domains/migrate/20nameservers

@@ -0,0 +1,30 @@
+{
+    # vim: ft=perl ts=4 sw=4 et:
+
+    use esmith::ConfigDB;
+
+    my $db = esmith::ConfigDB->open_ro;
+
+    for my $domain ( $DB->get_all )
+    {
+        my %props = $domain->props;
+
+        if (exists $props{Nameserver})
+        {
+            $props{Nameservers} ||= $props{Nameserver};
+            $domain->delete_prop("Nameserver");
+        }
+
+        if (($props{Nameservers} || '') eq 'corporate')
+        {
+            $props{Nameservers} = '' 
+                unless ($db->get_prop('dnscache', 'Forwarder'));
+        }
+
+        $props{Nameservers} ||= (($props{SystemPrimaryDomain}||'no') eq 'yes') ?
+                                'localhost' : 'internet'; 
+
+
+        $domain->merge_props(%props);
+    }
+}