{
    use esmith::util;

    my @prefixes = esmith::util::computeAllLocalNetworkPrefixes($LocalIP,
                                                                $LocalNetmask);

    require esmith::NetworksDB;
    my $n = esmith::NetworksDB->open;
    foreach my $network ($n->get_all_by_prop(type => 'network'))
    {
	push(@prefixes,
	    esmith::util::computeAllLocalNetworkPrefixes(
		$network->key, $network->prop('Mask')));
    }

    foreach my $prefix ( @prefixes )
    {
	my $dot = ( $prefix =~ /\d+\.\d+\.\d+\.\d+/ ) ? '' : '.';

	$OUT .= $prefix . $dot .
	    qq(:allow,CVM_ACCOUNT_SPLIT_CHARS="",CVM_SASL_PLAIN="cvm-local:/var/lib/cvm/cvm-unix-local.socket",) .
	    qq(IMAP_CAPABILITY="SORT THREAD=REFERENCES MULTIAPPEND UNSELECT LITERAL+ IDLE CHILDREN LISTEXT LIST-SUBSCRIBED"\n);
    }
}
