21 lines
521 B
Plaintext
21 lines
521 B
Plaintext
{
|
|
use esmith::DomainsDB;
|
|
my $ddb = esmith::DomainsDB->open_ro;
|
|
# If there's no domains db, there's nothing to do
|
|
return unless $ddb;
|
|
|
|
# For any bare hostname, create a qualified host record
|
|
# for each domain, then delete the bare host record
|
|
foreach my $host (grep { $_->key !~ /\./ } $DB->get_all)
|
|
{
|
|
my $key = $host->key;
|
|
foreach my $d ($ddb->domains)
|
|
{
|
|
$d = $d->key;
|
|
next if $DB->get("$key.$d");
|
|
$DB->new_record("$key.$d", { $host->props });
|
|
}
|
|
$host->delete;
|
|
}
|
|
}
|