initial commit of file from CVS for e-smith-base on Thu 26 Oct 11:24:52 BST 2023

root/etc/e-smith/db/configuration/migrate/10SystemPrimaryDomain

@@ -0,0 +1,46 @@
+{
+    use esmith::DomainsDB;
+
+    my $domain = $DB->get('DomainName');
+    return unless defined $domain; # Can't migrate without domain name
+
+    my $DomainName = $domain->value;
+
+    # Force lower case
+    $DomainName = lc($DomainName);
+    $domain->set_value($DomainName);
+
+    # Force lower case for SystemName as well, while we are at it
+    my $system = $DB->get('SystemName');
+    if ($system)
+    {
+	my $SystemName = lc($system->value);
+	$system->set_value($SystemName);
+    }
+
+    my $domains = esmith::DomainsDB->open ||
+	esmith::DomainsDB->create;
+
+    # And update domains db shadow
+    ($domain) = $domains->get_all_by_prop(SystemPrimaryDomain => 'yes');
+
+    if (defined $domain)
+    {
+       # Nothing to do if it hasn't changed.
+       return if (lc($domain->key) eq "$DomainName");
+
+       # Otherwise we need to delete the old domain
+       $domain->delete;
+    }
+
+    # And create the new.
+    $domain = $domains->get($DomainName) ||
+		    $domains->new_record($DomainName,
+			{
+			    type => 'domain',
+			    Content => 'Primary',
+			    Description => 'Primary domain',
+			    Nameservers => 'localhost',
+			});
+    $domain->merge_props(SystemPrimaryDomain => 'yes', Removable => 'no');
+}