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/10sanitise-db

@@ -0,0 +1,24 @@
+{
+    # vim: ft=perl ts=4 sw=4 et:
+    foreach my $domain ( $DB->get_all )
+    {
+        my $lc_key = lc( $domain->key );
+
+        next if ( $lc_key eq $domain->key );
+
+        my $rec = $DB->get($lc_key);
+
+        if ($rec)
+        {
+            warn "DomainsDB: "
+              . $domain->key
+              . " NOT migrated as $lc_key exists\n";
+            next;
+        }
+
+        $rec = $DB->new_record($lc_key);
+        $rec->merge_props( $domain->props );
+
+        $domain->delete;
+    }
+}

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);
+    }
+}