{
    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 .= "    'protocol' => 'imap/notls',\n";
	$OUT .= "    'port' => '143',\n";
	$OUT .= "    'folders' => '',\n";
	$OUT .= "    'namespace' => '',\n";
	$OUT .= "    'maildomain' => '$domain',\n";
	$OUT .= "    'smtphost' => 'localhost',\n";
	$OUT .= "    'realm' => '$domain',\n";
	$OUT .= "    'preferred' => ''\n";
	$OUT .= ");\n";
    }
}
