{
    use esmith::DomainsDB;
    my $db = esmith::DomainsDB->open_ro;
    my @domains = ($DomainName,
        map { $_->key }
            grep { my $p = $_->prop('SystemPrimaryDomain') || ''; $p ne 'yes' }
                $db->get_all());
    foreach my $domain (@domains)
    {
        $OUT .= "\$servers['$domain'] = array(\n";
        $OUT .= "    'name' => 'IMAP Server',\n";
        $OUT .= "    'server' => 'localhost',\n";
        $OUT .= "    'hordeauth' => false,\n";
        $OUT .= "    'protocol' => 'imap/notls',\n";
        $OUT .= "    'port' => '$imap{TCPPort}',\n";
        $OUT .= "    'maildomain' => '$domain',\n";
        $OUT .= "    'smtphost' => 'localhost',\n";
        $OUT .= "    'smtpport' => '$smtpd{TCPPort}',\n";
        $OUT .= "    'realm' => '$domain',\n";
        $OUT .= "    'preferred' => ''\n";
        $OUT .= ");\n";
    }
}

