{
    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;
    }
}