47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
|
{
|
||
|
|
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');
|
||
|
|
}
|